| Class TAnimatedBitmap (unit JLAniBmp) |
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 } {==========================================================================
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
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);| Properties |
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| Events |
event OnClick :
event OnDblClick :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
fActivePicture : Word;
FBitmap : TBitmap;
fColumns : Word;
fInterval : Word;
fLeftBmpPos : Word;
fPicHeight : Word;
fPicWidth : Word;
fReversePlay : Boolean;
fRows : Word;
fTopBmpPos : Word;
Timer1 : TTimer;| Constructors |
constructor Create(AOwner: TComponent);==========================================================================
| Functions |
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);==========================================================================
| Properties |
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| Events |
event OnClick :
event OnDblClick :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp : | Variables |
fActivePicture : Word;
FBitmap : TBitmap;
fColumns : Word;
fInterval : Word;
fLeftBmpPos : Word;
fPicHeight : Word;
fPicWidth : Word;
fReversePlay : Boolean;
fRows : Word;
fTopBmpPos : Word;
Timer1 : TTimer;