Текущий архив: 2004.05.16;
Скачать: CL | DM;

Вниз

Как вывести GIF в PaintBox   Найти похожие ветки 

← →
Ciber SLasH ©   (2003-11-15 02:50) [0]

Я использую для вывода 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) [1]

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

---

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

Текущий архив: 2004.05.16;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.049 c