Re: How to insert gif (to animate)

Return to index

Author

Message

Yernar

Posted: 02/12/2003 8:34:15

unit main;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  RVStyle, RVScroll, RichView, Animate, GIFCtrl;

type

  TGifForm = class(TForm)

    GifRichView: TRichView;

    GifRVStyle: TRVStyle;

    procedure FormCreate(Sender: TObject);

  private

  public

  end;

var

  GifForm: TGifForm;

implementation

{$R *.DFM}

procedure TGifForm.FormCreate(Sender: TObject);

var

  GifAnimator: TRxGIFAnimator;

begin

  GifAnimator:=TRxGIFAnimator.Create(nil);

  GifAnimator.Image.LoadFromFile('keden.gif');

  GifAnimator.Animate:=True;

  GifRichView.AddNL('', 0, 0);

  GifRichView.AddControlEx('RxGif', GifAnimator, 1, rvvaBaseline);

  GifRichView.Format;

end;

end.