| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ImageList

UserL ©   (2002-02-14 08:06:00) 

Как динамически загрузить картинки в ImageList с параметром Stretch?

---

Sasha9   (2002-02-27 19:25:00) [1]

bitmap.canvas.strechdraw

---

Rurik   (2002-02-27 15:17:00) [2]

У меня таже проблема что и у UserL :
необходимо хранить в ImageList картинки разных размеров
UserL видимо хотел сначала растянуть до какогото размера
и потом записать в imagelist - так вот код приведенный
VID не работает т.к. picture.bitmap видимо хранит
картинку с исходным разрешением, а stretch происходит при прорисовке. например такой код :

JPGF := TJpegImage.Create ;
JPGF.LoadFromFile(Fname);
Tbmp := TImage.Create(SELF) ;
Tbmp.Width := 110 ;
Tbmp.Height := 83 ;
Tbmp.Stretch := True ;
Tbmp.Picture.Bitmap.Assign(JPGF);
Sfrm.ImageList1.Add(Tbmp.Picture.Bitmap,nil) ;

взывает в runtime ошибку "invalid image size" в последней строчке при попытке загрузить картинку с размером, отличающемся от заданного в ImageList.With и ImageList.Height
где ошибка?

---

VID   (2002-02-14 09:28:00) [3]


Procedure LoadBitMap;
Var Bmp:TBitMap;
Begin
Bmp:=TBitMap.Create;
Bmp.LoadFromFile("Имя Файла");
ImageList1.Add(B, nil);
BMP.FREE;
END;

А вот насчёт Stretch...это не очень понятно, но можно попробовать так:

Пусть IMG: TImage

Begin
Img.Stretch := True;
Img.Picture.LoadFromFile("имя bmp файла");
ImageList1.Add(Img.Picture.BitMap, Nil);
END;


---

Наверх