[cadil]

На рисунок Image1 накладывается другой рисунок Image2 с прозрачным фоном. При сохранении фонового рисунка Image1 - Image2 сохраняется на белом фоне, хотя фон у него прозрачный:

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
jpg: TJpegImage;
v: TRect;
BufRct: Trect; //
BackRct: Trect; //
begin
jpg := TJpegImage.Create;
Image2.Transparent := True; //
BufRct := Bounds(Image2.Left, Image2.Top, 36, 36); //
BackRct := Bounds(Image1.Left, Image1.Top, 36, 36); //
Image1.Canvas.CopyRect(BufRct, Image2.Canvas, BackRct); //
...
jpg.Assign(image1.picture.graphic);
jpg.CompressionQuality := 95;
jpg.Compress;
jpg.SaveToFile(Edit1.Text+'.jpg');
jpg.free;
end;

Admin: Используем теги для оформления кода!

Где у меня ошибка? Как вывести фон за Image2?
Все, что связано с рисунком Image2 помечено двумя слэшами.
Спасибо!

[Phedor]

Прозрачность тоже хранится как цвет. Т.е. цвет с определенным кодом будет прозрачным. В данном случае белый. Все что на картинке белое, станет прозрачным.

[cadil]

Сообщение от Phedor

Прозрачность тоже хранится как цвет. Т.е. цвет с определенным кодом будет прозрачным. В данном случае белый. Все что на картинке белое, станет прозрачным.

Пробовал по-разному:
Image2.Transparent := True; //
Brush.Color := clWhite; //
Image2.TransParentColor := Image2.canvas.pixels[1, 1];
- Undeclared identifier: 'TransParentColor'

а в этом варианте
Image2.Transparent := True; //
AlphaBlendValue:=255;
AlphaBlend:=True;
- все выполняется, но прозрачности нет!
Где-то неправильно прописана команда. А где?!