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

WinHack

Администратор
23 Фев 2015
2,907
1,916
bsfo.ru
Если Вам нужно переправить 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;