C++ Builder прозрачные растровые изображения покрывают холст

Question

В OnPaint событие TFormЯ хочу рисовать растровые изображения, которые не покрывают фон или другой нарисованный объект, потому что они имеют прозрачные части.

Если я нарисую изображение поверх изображения, это работает.

Но когда я рисую на форме Canvas, это не работает: белая часть изображения, которая должна быть прозрачной, покрывает другие объекты холста белым квадратным цветом.

Canvas->CopyMode = cmMergePaint ;
Graphics::TBitmap * Image=new Graphics::TBitmap();
Image->Transparent = true;
MainForm->Images->GetBitmap(14, Image);

Canvas->Draw(10,10,Image;
MainForm->Images->GetBitmap(0, Image);
Canvas->Draw(15,15,Image);

Обновить

Когда я рисую на изображении с помощью MainForm->Images->Draw(Image->Canvas...)Я получаю прозрачный квадрат, внутри которого ничего нет, и я могу перемещаться по другим компонентам.

Когда я рисую, используя MainForm->Images->GetBitmap(ImgIndex[HisType]+Rotation, Image)Я получаю правильное растянутое изображение в форме, но без прозрачных пленок, т.е. его белые части покрывают другие компоненты.

В то время как MainForm->Images->Draw(Canvas, X, Y, ImgIndex[HisType]+Rotation, dsTransparent, itImage); делает работу, мне нужно растянуть его для этого компонента в зависимости от переменной размера.

TRect DstRect(X,Y, X+32 + ( 1 - Rotation ) * 32 * Size, Y+32 + Rotation * 32 * Size);
Graphics::TBitmap * Image=new Graphics::TBitmap();
Image->Transparent=true;
//MainForm->Images->GetBitmap(ImgIndex[HisType]+Rotation, Image);
MainForm->Images->Draw(Image->Canvas, 0, 0, ImgIndex[HisType]+Rotation, dsTransparent, itImage);
Canvas->StretchDraw(DstRect, Image);
delete Image;

//MainForm->Images->Draw(Canvas, X, Y, ImgIndex[HisType]+Rotation, dsTransparent, itImage);

Answer 1

Нашел решение, спасибо Реми. Сначала мы должны заполнить только что созданное растровое изображение одним цветом и не дать ему опустеть, чтобы прозрачность работала...

Size=1; //debug
TRect DstRect(X,Y, X+32 + ( 1 - Rotation ) * 32 * Size, Y+32 + Rotation * 32 * Size);
Graphics::TBitmap * Image=new Graphics::TBitmap();
Image->Width = 32;
Image->Height = 32;
Image->Canvas->FillRect(Rect(0,0,32,32));
MainForm->Images->GetBitmap(ImgIndex[HisType]+Rotation, Image);
//MainForm->Images->Draw(Image->Canvas, 0, 0, ImgIndex[HisType]+Rotation, dsTransparent, itImage);
Image->Canvas->Pen->Color = clRed;
Image->Canvas->MoveTo( 3, 3 );
Image->Canvas->LineTo( 29, 29 );
Image->Transparent=true;
Canvas->StretchDraw(DstRect, Image);
delete Image;

Answer 2

Использование Images->Draw() вместо этого, пусть TImageList обрабатывать чертеж для вас:

MainForm->Images->Draw(Canvas, 10, 10, 14, dsTransparent, itImage);
MainForm->Images->Draw(Canvas, 15, 15, 0, dsTransparent, itImage);