| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Provodnick ©   (2004-12-06 12:12:00) 

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

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:33:00) [1]

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

---

abc   (2004-12-06 17:20:00) [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:06:00) [3]

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

---

Наверх