Текущий архив: 2003.11.27;
Скачать: CL | DM;

Вниз

Картинки из TImageList   Найти похожие ветки 

← →
Nucl   (2003-11-17 18:02) [0]

Как подставлять картинки из TImageList в Timage ???

---

← →
TUser   (2003-11-17 18:04) [1]

Assign

---

← →
Nucl   (2003-11-18 10:12) [2]

а вот и нет
var
MyBitmap : TBitmap;
begin
try
MyBitmap := TBitmap.Create;
if Btn_ImageList.GetBitmap(0,MyBitmap) then
Image1.Picture.Bitmap := MyBitmap;
finally
MyBitmap.Free;
end;
end;

---

← →
VAleksey   (2003-11-18 10:24) [3]

А одной строкой?
ImageList1.GetBitmap(0,Image1.Picture.Bitmap);

---

Страницы: 1 вся ветка

Текущий архив: 2003.11.27;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.007 c