Class TwiaTile (unit wiaTile)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);

============================================================================== Create Purpose: To Initialize the Object Details: Let the base class get a creack at initialization and then set up the default values and create the bitmap place holders.


Functions

destructor Destroy;

============================================================================== Destroy Purpose: To Free any memory associated with this object ==============================================================================

procedure ChangedImage(Sender: TObject);

============================================================================== ChangedImage ==============================================================================} // 2.

function GetFade: Boolean;


function GetPalette: HPALETTE;

============================================================================== GetPalette ==============================================================================} // 2.

function GetTran: Boolean;


procedure Paint;

============================================================================== Paint ==============================================================================} // 2.

procedure SetFade(Value: Boolean);


procedure SetFadeColor(Value: TColor);

if FTranColor <> Value then

procedure SetImage(Value: TBitMap);

============================================================================== SetImage ==============================================================================

procedure SetMode(Value: TwiaTileMode);


procedure SetTran(Value: Boolean);

This is a seriously twisted way of supporting backwards compatability, I know.

procedure SetTranColor(Value: TColor);


Properties

property Align :


property Enabled :


property FadeColor : TColor


property Faded : Boolean

Left in for Backwards Compability

property Height :


property Image : TBitMap


property ParentShowHint :


property ShowHint :


property TileMode : TwiaTileMode

Left in for Backwards Compability {$ENDIF

property TranColor : TColor

property ImageTrn : TBitMap read TrnBmp stored False; // for debug property ImageIma : TBitMap read FImage stored False; // for debug

property Transparent : Boolean


property Visible :


property Width :


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables

FFadeColor : TColor;


FImage : TBitmap;


FInternalImage : TBitmap;


FMode : TwiatileMode;

FTransparent : Boolean; // 2.

FTranColor : TColor;

2.

TrnBmp : TBitmap;



Constructors


constructor Create(AOwner: TComponent);

============================================================================== Create Purpose: To Initialize the Object Details: Let the base class get a creack at initialization and then set up the default values and create the bitmap place holders. ==============================================================================


Functions


destructor Destroy;

============================================================================== Destroy Purpose: To Free any memory associated with this object ==============================================================================


procedure ChangedImage(Sender: TObject);

============================================================================== ChangedImage ==============================================================================} // 2.00 -> 2.01 conversion changed some logic. Changes not commented.


function GetFade: Boolean;


function GetPalette: HPALETTE;

============================================================================== GetPalette ==============================================================================} // 2.00 -> 2.01 conversion changed some logic. Changes not commented.


function GetTran: Boolean;


procedure Paint;

============================================================================== Paint ==============================================================================} // 2.00 -> 2.01 conversion changed some logic. Changes not commented.


procedure SetFade(Value: Boolean);


procedure SetFadeColor(Value: TColor);

if FTranColor <> Value then


procedure SetImage(Value: TBitMap);

============================================================================== SetImage ==============================================================================


procedure SetMode(Value: TwiaTileMode);


procedure SetTran(Value: Boolean);

This is a seriously twisted way of supporting backwards compatability, I know. - ieh.


procedure SetTranColor(Value: TColor);


Properties


property Align :


property Enabled :


property FadeColor : TColor


property Faded : Boolean

Left in for Backwards Compability


property Height :


property Image : TBitMap


property ParentShowHint :


property ShowHint :


property TileMode : TwiaTileMode

Left in for Backwards Compability {$ENDIF


property TranColor : TColor

property ImageTrn : TBitMap read TrnBmp stored False; // for debug property ImageIma : TBitMap read FImage stored False; // for debug


property Transparent : Boolean


property Visible :


property Width :


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseMove :


event OnMouseUp :


Variables


FFadeColor : TColor;


FImage : TBitmap;


FInternalImage : TBitmap;


FMode : TwiatileMode;

FTransparent : Boolean; // 2.00 FFaded : Boolean;


FTranColor : TColor;

2.01


TrnBmp : TBitmap;