Как сохранить все картинки из TImageList ?

← →
ImageList1 (2006-12-02 02:45) [0]

var Bm1 : TBitMap; begin Bm1 := TBitMap.Create; try CopyImage(ImageList1.GetImageBitmap, IMAGE_BITMAP, ???, ???, 0); if SaveDialog1.Execute then Bm1.SaveToFile(SaveDialog1.FileName); finally Bm1.Free; end;

Как узнать размер картинки? Или какой ещё есть способ?
Предлагать вытягивать картинки по одной - не надо. Потому, что это называется делать через ***у.

← →
DesWind © (2006-12-02 03:01) [1]

А ImageList1.GetImageBitmap.Height/Width ?

← →
ImageList1 (2006-12-02 03:14) [2]

8 на 8.

← →
ImageList1 (2006-12-02 03:17) [3]

В смысле ImageList1.GetImageBitmap - это просто LongWord.
а ImageList1.Height/Width - 8 на 8.

← →
DesWind © (2006-12-02 03:26) [4]

var
bm: Tbitmap;
begin
bm:=TBitmap.Create;
ImageList1.GetBitmap(Index,bm);
...//и делаем с bm че хотим.
end;

← →
DesWind © (2006-12-02 03:37) [5]

А понЯл! Те надо все картинки в одной!

Размер по хендлу GetBitmapDimensionEx.

Чем хороши такие вопросы, сам узнаешь много нового воспользовавшись поиском...

← →
ImageList1 (2006-12-02 06:02) [6]

Чёто пустая картинка выходит почему-то ...

← →
ImageList1 (2006-12-03 01:56) [7]

В смысле у картинки получается, что размер 0x0. Что не так?

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