Delphi 자체 GIF 컨트롤이 있는 애니메이션 이미지 로드 및 재생

704 단어 Delphi로드맵
delphi는 CodeGear 시기부터 인터넷에 널리 퍼진 TGIFImage 컨트롤러(원본 파일 이름은 GIFImage.pas)를 VCL에 집적하여 사용 방법과 원판의 TGIFImage 저장의 경미한 차이를 보였다.
먼저 셀 Vcl을 참조합니다.Imaging.Timage 컨트롤과 함께 다음과 같은 GIFImg이 사용됩니다.
방법1:
procedure LoadGIFImage(img: TImage);
var
  aGIFImage: TGIFImage;
begin
  aGIFImage:=TGIFImage.Create;
  aGIFImage.LoadFromFile('C:\test.gif');
  aGIFImage.Animate := True; //          ,         
  img.Picture.Assign(aGIFImage);
  aGIFImage.Free;
end;

방법2:
procedure LoadGIFImage(img: TImage);
begin
  img.Picture.LoadFromFile('C:\test.gif');
  if img.Picture.Graphic is TGIFImage then
    TGIFImage(img.Picture.Graphic).Animate := True;
end;

좋은 웹페이지 즐겨찾기