Скачать: CL | DM;

Как сохранить все картинки из 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. Что не так?

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c