Class TClipBitmap (unit Clipmap)

Inherits from

TGraphicControl

By Daniel Parnell. s921878@minyos.its.rmit.edu.au http://minyos.its.rmit.edu.au/~s921878

Constructors


constructor Create(AOwner : TComponent);

Public declarations


Functions

procedure Calculate;


destructor Destroy;


procedure Loaded;


procedure Paint;


procedure HasChanged(sender : TObject);


procedure SetBitmap1(Bitmap : TBitmap);


procedure SetBitmap2(Bitmap : TBitmap);


procedure SetClipMap(Bitmap : TBitmap);


Properties

property Bitmap1 : TBitmap


property Bitmap2 : TBitmap


property height :


property left :


property Mask : TBitmap


property top :

Published declarations

property width :


Events

event OnClick :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

fBitmap1 : TBitmap;

Private declarations

fBitmap2 : TBitmap;


fClipMap : TBitmap;


TempMap : TBitmap;



Constructors


constructor Create(AOwner : TComponent);

Public declarations


Functions


procedure Calculate;


destructor Destroy;


procedure Loaded;


procedure Paint;


procedure HasChanged(sender : TObject);


procedure SetBitmap1(Bitmap : TBitmap);


procedure SetBitmap2(Bitmap : TBitmap);


procedure SetClipMap(Bitmap : TBitmap);


Properties


property Bitmap1 : TBitmap


property Bitmap2 : TBitmap


property height :


property left :


property Mask : TBitmap


property top :

Published declarations


property width :


Events


event OnClick :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


fBitmap1 : TBitmap;

Private declarations


fBitmap2 : TBitmap;


fClipMap : TBitmap;


TempMap : TBitmap;