![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() На рисунок 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 помечено двумя слэшами. Спасибо! Последний раз редактировалось Admin, 30.05.2008 в 11:54. |
#2
|
|||
|
|||
![]() Прозрачность тоже хранится как цвет. Т.е. цвет с определенным кодом будет прозрачным. В данном случае белый. Все что на картинке белое, станет прозрачным.
|
#3
|
|||
|
|||
![]() Цитата:
Пробовал по-разному: Image2.Transparent := True; // Brush.Color := clWhite; // Image2.TransParentColor := Image2.canvas.pixels[1, 1]; - Undeclared identifier: 'TransParentColor' а в этом варианте Image2.Transparent := True; // AlphaBlendValue:=255; AlphaBlend:=True; - все выполняется, но прозрачности нет! Где-то неправильно прописана команда. А где?! |