TForm1 = class(TForm)
...
imgOrg: TImage;
...
End;
Var
gifSlide: TGIFImage;
Begin
gifSlide := TGIFImage(Form1.imgOrg.Picture.Graphic);
ShowMessageBox(IntToStr(gifSlide.Images.Count))
Form1의 imgOrg에 4 프레임짜리 GIF를 넣고
Runtime에 확인해 보면 64개(16배)로 프레임 수가 늘어나는 데 대책이 없을 까요?
|