Class TApples (unit DFCtrls) |
Inherits from
TDFControl
Published declarations
constructor Create(AOwner: TComponent);
- Public Declarations
--------------------------------------} { TApples.
destructor Destroy;
--------------------------------------} { TApples.
procedure PaintBackup;
Protected Declarations --------------------------------------} { TApples.
procedure SetApple(Val: TBitmap);
--------------------------------------} { TApples.
procedure SetLineWrap(Val: Boolean);
--------------------------------------} { TApples.
procedure SetTransparentColor(Val: TColor);
--------------------------------------} { TApples.
procedure SetValue(Val: Extended);
--------------------------------------} { TApples.
property Align :
property Apple : TBitmap
property Background : TBackgndObj
property Bevel : TDFBevel
property Enabled :
property LineWrap : Boolean
property TransparentColor : TColor
property Value : Extended
property Visible :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseEnter : TNotifyEvent
event OnMouseLeave : TNotifyEvent
event OnMouseMove :
event OnMouseUp :
event OnStartDrag :
FApple : TBitmap;
Private Declarations
FLineWrap : Boolean;
FTransparentColor : TColor;
FValue : Extended;
constructor Create(AOwner: TComponent);
Public Declarations
--------------------------------------} { TApples.Create } {--------------------------------------
destructor Destroy;
--------------------------------------} { TApples.Destroy } {--------------------------------------
procedure PaintBackup;
Protected Declarations
--------------------------------------} { TApples.Paint } {--------------------------------------
procedure SetApple(Val: TBitmap);
--------------------------------------} { TApples.SetApple } {--------------------------------------
procedure SetLineWrap(Val: Boolean);
--------------------------------------} { TApples.SetLineWrap } {--------------------------------------
procedure SetTransparentColor(Val: TColor);
--------------------------------------} { TApples.SetTransparentColor } {--------------------------------------
procedure SetValue(Val: Extended);
--------------------------------------} { TApples.SetValue } {--------------------------------------
property Align :
property Apple : TBitmap
property Background : TBackgndObj
property Bevel : TDFBevel
property Enabled :
property LineWrap : Boolean
property TransparentColor : TColor
property Value : Extended
property Visible :
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnMouseDown :
event OnMouseEnter : TNotifyEvent
event OnMouseLeave : TNotifyEvent
event OnMouseMove :
event OnMouseUp :
event OnStartDrag :
FApple : TBitmap;
Private Declarations
FLineWrap : Boolean;
FTransparentColor : TColor;
FValue : Extended;