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

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

Как вывести GIF в PaintBox

Ciber SLasH ©   (2003-11-15 02:50:00) 

Я использую для вывода GIF'а модуль GraphicEx:

procedure TForm1.KOLForm1FormCreate(Sender: PObj);
var
 Stream: PStream;
 GIF: TGIFGraphic;
begin
 Stream := NewReadFileStream('LockMK.gif');
 Stream.Position := 0;
 GIF := TGIFGraphic.Create;
 GIF.LoadFromStream(Stream);
 GIF.Bitmap.Draw(PaintBox.Canvas.Handle ,0,0);
 Stream.Free;
 GIF.Free
end;

Но ничего не выводится :(
Где ошибка ?

---

Dimaxx   (2003-11-15 13:34:00) [1]

Отрисовку PaintBox'а нужно производить в событии PaintBox.OnPaint.

---

Наверх