Therefore, I changed TeeGDIPlus.pas, function TGDIPlusCanvas.Draw, in the following way:
Code: Select all
procedure TGDIPlusCanvas.Draw(X,Y:Integer; const AGraphic:TGraphic);
...
var tmpB : TBitmap;
begin
if AGraphic is TBitmap then
begin
//********* Collinor *************
if AGraphic.Transparent then
begin
tmpB:=TranspBitmap(AGraphic,X,Y);
DoDraw(tmpB);
tmpB.Free;
end
else
//Collinor *************
DoDraw(TBitmap(AGraphic))
end
else
...
end;