ImageField.CopyM(X, Y : Integer; Name : String)
Нарисовать изображение с прозрачностью

Метод ImageField.CopyM рисует изображение с использованием прозрачности в координатах X, Y. Используется изображение с именем Name из списка изображений программы. Регистр имени не учитывается.

Список изображений программы можно смотреть и изменять в редакторе, выбрав корневой элемент "Программа" в списке модулей.

Поддерживаются изображения с альфа-каналом. Для изображений без альфа канала, цвет 0xFF00FF ( XXX ) используется как прозрачный.

Пример 1, прозрачный цвет:

Procedure OnCreate;
Var
  X, Y : Integer;
Begin          
  Img.Resize(256, 256);     
  Img.FillRect(0, 0, 255, 255, 0xFFFFFF);    
  
  For Y:=0 To 10 Do
    For X:=0 To 10 Do
      Img.CopyM(X*24, Y*24, 'Add');     
      
  For Y:=0 To 8 Do
    For X:=0 To 8 Do
      Img.CopyM(X*32, Y*32, 'Cancel');     
End;

Результат работы:


Пример 2, Альфа-канал:

Procedure OnCreate;
Var
  X, Y : Integer;
Begin          
  Img.Resize(800, 600);     
  Img.FillRect(0, 0, 800, 600, 0xFFFFFF);    
  
  For Y:=0 To 25 Do
    For X:=0 To 30 Do
      Img.CopyM(X*24, Y*24, 'Add');     
      
  For Y:=0 To 25 Do
    For X:=0 To 30 Do
      Img.CopyM(X*32, Y*32, 'Cancel');     
      
  Img.CopyM(0, 0, 'Кубики');     
End;

Результат работы:

© RTIT