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
где ошибка?

bitmap.canvas.strechdraw

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