Цитата:
|
Сообщение от The Shadow
Ставь на форму дополнительные Imag'ы.
|
Еще раз - спасибо! Все получилось.
Я, оказывается, рано обрадовался. При сохранении рисунка - дополнительный сохраняется на белом фоне, хотя фон у него прозрачный.
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;
Где у меня ошибка? Все, что связано с дополнительным рисунком Image2 помечено двумя слэшами. Спасибо.