Вставка изображений и их прозрачность

[m@N!ac]

В Image1 загружается фон, по нажатию кнопки Button1 должно вставляться изображение с координатами, указанными в Edit1 и Edit2, но при этом во вставляемом изображении должны учитываться прозрачные области (окрашеные в белый), т.е. они не должны закрывать фон в Image1. Написал так:

var
pic:TBitmap;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
image1.Picture.Bitmap.LoadFromFile('canv.bmp');
pic:=TBitmap.Create;
pic.Transparent:=true;
pic.TransparentColor:=clwhite;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
source,dest:TRect;
begin
pic.LoadFromFile('pic.bmp');
source:=bounds(0,0,48,48);
dest:=bounds(strtoint(edit1.Text),strtoint(edit2.Text),48,48);
image1.Canvas.CopyRect(dest,pic.Canvas,source);
end;

но получилось без прозрачности, не подскажете что надо исправить?

[VDLab]

BMP с прозрачностью вставить и не получится, тут GIF нужно использовать, а для него должен быть установлен соотв компонент(GIFImage вроде).

[Vovandows]

В твоем случаее белый цвет должен быть везде одинаковый. И попробуй поставить в самый левый нижний угол своей картинки точку белого цвета.

[BOBAH13]

Ну если работает на "таком уровне" то почему не поставить PNGImage ? и просто грузить готовое ( причем даже с альфа каналом ) изображение

[mutabor]

m@N!ac, ты на правильном пути, Transparent включает прозрачность в битмапе, а TransparentColor задает цвет, больше ничего не надо. Я немного подзабыл, попробуй метод Draw вместо CopyRect. Также попробуй не на канву имиджа выводи, а в его битмап. И еще попробуй задать прозрачность после загрузки изображения в битмап, а не перед.

[DeKot]

Mutabor Вы правы.Прозрачность задается после загрузки .bmp в BitMap.
buffer: TBitMap;
buffer.Transparent:= true;
Прозрачность проявляется только при использовании метода Draw на канву
Form1.Canvas.Draw(x,y,buffer);
Цвет можно не задавать, он определяется автоматически по левому нижнему пикселю .bmp.

[SERG1980]

Цвет прозрачности ещё можно задать так:
Pic.TransparentColor:=Pic.Canvas.Pi xels[1,1];
А так DeKot сказал правильно, сначала загружаем а потом определяем