Статьи
|
Если Вам нужно переправить 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;
|