Class TAnimatedBitmap (unit JLAniBmp) |
Inherits from
TGraphicControl
==========================================================================} { } { animated Bitmap for Delphi 16 & 32 bit } { } { written 1996 by Jörg Lingner, Munich/Germany (jlingner@t-online.de) } { Based on Borland's TImage-Component (VCL-source). } { } { FREEWARE - using it at your own risk } {==========================================================================
constructor Create(AOwner: TComponent);
- ==========================================================================
destructor Destroy;
==========================================================================
procedure Paint;
==========================================================================
procedure CalculateVisibleArea;
==========================================================================
function GetCanvas:TCanvas;
==========================================================================
function HasBitmap:Boolean;
==========================================================================
procedure PictureChanged (Sender:TObject);
==========================================================================
procedure SetActivePicture(aVal:Word);
==========================================================================
procedure SetBitmap (aVal:TBitmap);
==========================================================================
procedure SetColumns (aVal:Word);
==========================================================================
procedure SetInterval (aVal:Word);
==========================================================================
procedure SetRows (aVal:Word);
==========================================================================
procedure ShowNextPicture (Sender:TObject);
==========================================================================
property ActivePicture : Word
property Bitmap : TBitmap
property Columns : Word
property Enabled :
property Interval : Word
property ReversePlay : Boolean
property Rows : Word
property ShowHint :
property Tag :
property Visible :
property Canvas : TCanvas
event OnClick :
event OnDblClick :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
fActivePicture : Word;
FBitmap : TBitmap;
fColumns : Word;
fInterval : Word;
fLeftBmpPos : Word;
fPicHeight : Word;
fPicWidth : Word;
fReversePlay : Boolean;
fRows : Word;
fTopBmpPos : Word;
Timer1 : TTimer;
constructor Create(AOwner: TComponent);
==========================================================================
destructor Destroy;
==========================================================================
procedure Paint;
==========================================================================
procedure CalculateVisibleArea;
==========================================================================
function GetCanvas:TCanvas;
==========================================================================
function HasBitmap:Boolean;
==========================================================================
procedure PictureChanged (Sender:TObject);
==========================================================================
procedure SetActivePicture(aVal:Word);
==========================================================================
procedure SetBitmap (aVal:TBitmap);
==========================================================================
procedure SetColumns (aVal:Word);
==========================================================================
procedure SetInterval (aVal:Word);
==========================================================================
procedure SetRows (aVal:Word);
==========================================================================
procedure ShowNextPicture (Sender:TObject);
==========================================================================
property ActivePicture : Word
property Bitmap : TBitmap
property Columns : Word
property Enabled :
property Interval : Word
property ReversePlay : Boolean
property Rows : Word
property ShowHint :
property Tag :
property Visible :
property Canvas : TCanvas
event OnClick :
event OnDblClick :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
fActivePicture : Word;
FBitmap : TBitmap;
fColumns : Word;
fInterval : Word;
fLeftBmpPos : Word;
fPicHeight : Word;
fPicWidth : Word;
fReversePlay : Boolean;
fRows : Word;
fTopBmpPos : Word;
Timer1 : TTimer;