Class TwiaTile (unit wiaTile) |
Inherits from
TGraphicControl
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.
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);
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 :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
FFadeColor : TColor;
FImage : TBitmap;
FInternalImage : TBitmap;
FMode : TwiatileMode;
FTransparent : Boolean; // 2.
FTranColor : TColor;
2.
TrnBmp : TBitmap;
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.
==============================================================================
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);
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 :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
FFadeColor : TColor;
FImage : TBitmap;
FInternalImage : TBitmap;
FMode : TwiatileMode;
FTransparent : Boolean; // 2.00 FFaded : Boolean;
FTranColor : TColor;
2.01
TrnBmp : TBitmap;