Текущий архив: 2002.03.14;
Скачать: 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 вся ветка
Текущий архив: 2002.03.14;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.011 c
