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

ImageList   Найти похожие ветки 

← →
UserL   (2002-02-14 08:06) [0]

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

---

← →
VID ©   (2002-02-14 09:28) [1]


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;


---

← →
Rurik   (2002-02-27 15:17) [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
где ошибка?

---

← →
Sasha9 ©   (2002-02-27 19:25) [3]

bitmap.canvas.strechdraw

---

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

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



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