Мой код с TGraphic.Draw (Canvas, Rect) не работает

Question

В Delphi 10 Seattle мне нужно вставить изображение в ImageList. Изображение находится в потоке TGraphicControl (см. Исходный код ниже). Вставка, похоже, работает. Тем не менее, я получаю только белый прямоугольник в 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; 

Я подозреваю, что ошибка в чертеже на растровом холсте?

Answer 1

Правильный способ рисования здесь - вызвать Draw на холсте растрового изображения, передав исходный графический файл. Выбранный метод объявлен protected в TGraphic, что указывает на то, что вы не собираетесь называть его из потребительского кода.

Таким образом, вместо

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

Вы должны использовать

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

Это значительно упрощает функцию, так как вам больше не нужна переменная TRect. Кроме того, нет смысла назначать Result более одного раза. Вся функция может быть:

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;