Mon code avec TGraphic.Draw (Canvas, Rect) ne fonctionne pas

Question

Dans Delphi 10 Seattle, j'ai besoin d'insérer une image dans une ImageList. L'image est dans un descendant de TGraphicControl (voir le code source ci-dessous). L'insertion semble fonctionner. Cependant, je ne reçois que un rectangle blanc dans le ImageList:

function InsertCloudImageIntoImageList(AdvCloudImage1: TAdvCloudImage): Integer; 
// TAdvCloudImage = class(TGraphicControl) 
// WebPicture is TCloudPicture = class(TGraphic) 
var 
    TempBitmap: TBitmap; 
    R: TRect; 
begin 
    Result := 0; 
    TempBitmap := TBitmap.Create; 
    try 
    TempBitmap.SetSize(16, 16); 
    R.Width := 16; 
    R.Height := 16; 
    R.Top := 0; 
    R.Left := 0; 

    AdvCloudImage1.WebPicture.Draw(TempBitmap.Canvas, R); 
    Result := Form1.ImageList1.Add(TempBitmap, nil); 
    finally 
    TempBitmap.Free; 
    end; 
end; 

Je soupçonne que le bogue est dans le dessin sur la toile bitmap?

Answer 1

La manière correcte de dessiner ici est d'appeler Draw sur le canevas du bitmap de destination, en passant le graphique source. La méthode que vous appelez est déclarée protected dans TGraphic, ce qui indique que vous n'êtes pas censé l'appeler à partir du code consommateur.

Ainsi, au lieu de

AdvCloudImage1.WebPicture.Draw(TempBitmap.Canvas, R); 

Vous devez utiliser

TempBitmap.Canvas.Draw(0, 0, AdvCloudImage1.WebPicture); 

Cela simplifie grandement la fonction puisque vous ne avez plus besoin de la variable TRect. En outre, il ne sert à rien d'attribuer Result plus d'une fois. La fonction entière peut être:

function InsertCloudImageIntoImageList(AdvCloudImage1: TAdvCloudImage): Integer; 
var 
    TempBitmap: TBitmap; 
begin 
    TempBitmap := TBitmap.Create; 
    try 
    TempBitmap.SetSize(16, 16); 
    TempBitmap.Canvas.Draw(0, 0, AdvCloudImage1.WebPicture); 
    Result := Form1.ImageList1.Add(TempBitmap, nil); 
    finally 
    TempBitmap.Free; 
    end; 
end;