| Class TwiaTile (unit wiaTile) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure ChangedImage(Sender: TObject);
function GetFade: Boolean;
function GetPalette: HPALETTE;
function GetTran: Boolean;
procedure Paint;
procedure SetFade(Value: Boolean);
procedure SetFadeColor(Value: TColor);
procedure SetImage(Value: TBitMap);
procedure SetMode(Value: TwiaTileMode);
procedure SetTran(Value: Boolean);
procedure SetTranColor(Value: TColor);| Properties |
property Align :
property Enabled :
property FadeColor : TColor
property Faded : Boolean
property Height :
property Image : TBitMap
property ParentShowHint :
property ShowHint :
property TileMode : TwiaTileMode
property TranColor : TColor
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;
FTranColor : TColor;
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 : BooleanLeft in for Backwards Compability
property Height :
property Image : TBitMap
property ParentShowHint :
property ShowHint :
property TileMode : TwiaTileModeLeft in for Backwards Compability {$ENDIF
property TranColor : TColorproperty 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;