Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > ImageList

Автор: grib 13.10.2004, 22:36

немогу перерисовать Image, т.е. один раз он картинку рисует, но поменять не хочет.

Код

ImageList1.GetBitMap(0,Image1.Picture.Bitmap);
ImageList1.GetBitMap(1,Image1.Picture.Bitmap); //неработает

Автор: Alex 13.10.2004, 23:03

Код

ImageList1.GetBitMap(0,Image1.Picture.Bitmap);
Image1.Picture.Bitmap:=  nil;
ImageList1.GetBitMap(1,Image1.Picture.Bitmap);

Автор: grib 13.10.2004, 23:09

то есть надо сначала очистить Image - OK я понял, а почему ТАК? - просто интересно

Автор: Alex 13.10.2004, 23:13

Из ImgList.pas:

Код

function TCustomImageList.GetBitmap(Index: Integer; Image: TBitmap): Boolean;
begin
  Result := (Image <> nil) and HandleAllocated and (Index > -1) and (Index < Count);
  if Result then
    with Image do
    begin
      Height := FHeight;
      Width := FWidth;
      Draw(Canvas, 0, 0, Index);
    end;
end;

Автор: grib 13.10.2004, 23:15

ведь когда делаешь без ImageList'а так не надо делать?
Image1.Picture.LoadFromFile('1.bmp');
Image1.Picture.LoadFromFile('2.bmp');
и все работает!

Добавлено @ 23:18
ага, спасибо, понял