Карта сайтаСсылкиКонтакты

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

PDF Печать
Статьи

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

 

Добавить комментарий


Защитный код
Обновить