| Class TPreviewForm (unit GIFPrvw) |
TForm
| Constructors |
| Functions |
procedure BackBtnClick(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure ForwardBtnClick(Sender: TObject);
procedure ImageChanged(Sender: TObject);
procedure ImageFrameChanged(Sender: TObject);
procedure NextBtnClick(Sender: TObject);
procedure PlayBtnClick(Sender: TObject);
procedure RewindBtnClick(Sender: TObject);
procedure SliderChange(Sender: TObject);
procedure StopBtnClick(Sender: TObject);
procedure CalculateFormSize;
procedure EnableButtons;| Properties |
| Events |
| Variables |
BackBtn : TSpeedItem;
ForwardBtn : TSpeedItem;
FrameNo : TLabel;
Image : TRxGIFAnimator;
ImagePanel : TPanel;
Label1 : TLabel;
NextBtn : TSpeedItem;
PlayBtn : TSpeedItem;
RewindBtn : TSpeedItem;
Slider : TRxSlider;
SliderPanel : TPanel;
SpeedBar : TSpeedBar;
SpeedbarSection1 : TSpeedbarSection;
StopBtn : TSpeedItem;| Constructors |
| Functions |
procedure BackBtnClick(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure ForwardBtnClick(Sender: TObject);
procedure ImageChanged(Sender: TObject);
procedure ImageFrameChanged(Sender: TObject);
procedure NextBtnClick(Sender: TObject);
procedure PlayBtnClick(Sender: TObject);
procedure RewindBtnClick(Sender: TObject);
procedure SliderChange(Sender: TObject);
procedure StopBtnClick(Sender: TObject);
procedure CalculateFormSize;TPreviewForm
procedure EnableButtons;Private declarations
| Properties |
| Events |
| Variables |
BackBtn : TSpeedItem;
ForwardBtn : TSpeedItem;
FrameNo : TLabel;
Image : TRxGIFAnimator;
ImagePanel : TPanel;
Label1 : TLabel;
NextBtn : TSpeedItem;
PlayBtn : TSpeedItem;
RewindBtn : TSpeedItem;
Slider : TRxSlider;
SliderPanel : TPanel;
SpeedBar : TSpeedBar;
SpeedbarSection1 : TSpeedbarSection;
StopBtn : TSpeedItem;