[개발/델파이] Delphi7에서 Animated GIF 사용하기

Delphi7에서 GIF 파일을 핸들링하는 법에 대해 간단히 포스팅해보겠습니다.

 

먼저 Rx Library가 같이 설치된 상태라고 가정하고 진행하겠습니다.

(RX Library - http://sourceforge.net/projects/rxlib/ )

 

가장 먼저 할일은 사용할 파일을 use에 아래와 같이 넣어줍니다.

 

view plaincopy to clipboardprint?

uses Animate, GIFCtrl;   

 

다음으로는 객체를 생성해야 겠죠. 여기서는 동적으로 생성

(폼을 사용하지 않고 생성하는 법에 대해 기술하겠습니다)

 

 

view plaincopy to clipboardprint?

GIFtest := TRxGIFAnimator.Create(ParentImage);  

with GIFtest do  

begin  

    Parent := ParentImage;  

    AutoSize := True;  

    Left := 0;  

    Top := 0;  

    Animate := False;  

    Visible := True;  

    Image.LoadFromFile('C:\test.gif');  

end;  

 

위와 같이 객체를 생성해주는 부분에서

객체를 생성하고 부모와 좌표를 적당히 설정하면 끝!

 

그리고 애니메이션이 필요한 경우에는  Animate속성을 True로 설정하면 됩니다.

팁 출처: 인터넷