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 } {==========================================================================

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;