На рисунок Image1 накладывается другой рисунок Image2 с прозрачным фоном. При сохранении фонового рисунка Image1 - Image2 сохраняется на белом фоне, хотя фон у него прозрачный:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | 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 помечено двумя слэшами.
Спасибо!
30.05.2008, 11:50
Как сохранить фон за рисунком?
Древовидный вид