Форум: "Основная";
Текущий архив: 2004.12.19;
Скачать: [xml.tar.bz2];

Вниз

В Image повторно загруженный рисунок не отображается!   Найти похожие ветки 

← →
Provodnick   (2004-12-06 12:12) [0]

Здравствуйте. Подскажите пожалуйста, почему данный код не дает ожидаемый результат - на экране появляется только первый рисунок?

procedure TForm1.Button1Click(Sender: TObject);
begin
 flag:=not flag;
 if flag then
   ImageList2.GetBitmap(1,Image1.Picture.Bitmap)
 else
   ImageList2.GetBitmap(0,Image1.Picture.Bitmap);
end;

---

← →
Provodnick   (2004-12-06 17:06) [1]

Ну неужели никто и вправду не знает!?! НЕ ВЕРЮ!!!

---

← →
abc   (2004-12-06 17:20) [2]

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture:=nil;
flag:=not flag;
if flag then
  ImageList2.GetBitmap(1,Image1.Picture.Bitmap)
else
  ImageList2.GetBitmap(0,Image1.Picture.Bitmap);
end;

---

← →
Provodnick   (2004-12-06 17:33) [3]

Спасибо, все заработало! Но освобождаются ли при этом все объекты ядра?

---

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

Форум: "Основная";
Текущий архив: 2004.12.19;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.037 c