Как поменять Bitmap между двумя TImageList

Тема в разделе "Delphi", создана пользователем WinHack, 2 дек 2016.

  1. WinHack
    Если Вам нужно переправить Bitmap изображение из одного TImageList в другой, Вы можете использовать следующую процедуру:

    Код:
    procedure ImageList_MoveBitmap(
       const sourceImageList,
       targetImageList: TImageList;
       const sourcePosition: integer) ;
    var
       bitmap : TBitmap;
    begin
       bitmap := TBitmap.Create;
       try
         sourceImageList.GetBitmap(sourcePosition,bitmap) ;
         targetImageList.Add(bitmap,nil) ;
    sourceImageList.Delete(sourcePosition) ;
       finally
         bitmap.Free;
       end;
    end;
    Предположим, что два объекта TImageList находятся на Form1. Добавим Bitmap из позиции 7 ImageList1 в ImageList2.

    Код:
    procedure TForm1.BitBtn1Click(Sender: TObject) ;
    begin
       ImageList_MoveBitmap(ImageList1, ImageList2, 7) ;
    end;