image : TImage;
- Код: Выделить всё
image[1].Picture.LoadFromFile('box.png');
for x := 5 to 55 do
for y := 5 to 55 do
image[1].Picture.Bitmap.Canvas.Pixels[x,y] := clRed; //<=== здесь сбой... вместо красного рисует прозрачным...
image[2].Picture.LoadFromFile('box.png');
for x := 0 to image[2].Height do
for y := 0 to image[2].Width do
image[2].Picture.Bitmap.Canvas.Pixels[x,y] := clRed; //<=== а здесь рисует нормально...
Требуется, чтобы "рисовал" от 5 до 55...
однако: image - рисует правильно только когда от 0 до Height...Width, а в остальных случаях делает прозрачным
Вот ещё важно, изначально в image загружен *.png с прозрачностью
Вопрос: Как это реализовать??? и в чём подвох?!
В аттаче код и project1 lazarus.
PS: (кстати у TImage точно такие же проблемы с прозрачностью, если накладывать на изображение CopyRect или BitBlt или StretchDraw)
.