Class TApples (unit DFCtrls)

Inherits from

TDFControl

Published declarations

Constructors


constructor Create(AOwner: TComponent);

Public Declarations

--------------------------------------} { TApples.



Functions

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.

Properties

property Align :


property Apple : TBitmap


property Background : TBackgndObj


property Bevel : TDFBevel


property Enabled :


property LineWrap : Boolean


property TransparentColor : TColor


property Value : Extended


property Visible :


Events

event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseEnter : TNotifyEvent


event OnMouseLeave : TNotifyEvent


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables

FApple : TBitmap;

Private Declarations

FLineWrap : Boolean;


FTransparentColor : TColor;


FValue : Extended;



Constructors


constructor Create(AOwner: TComponent);

Public Declarations

--------------------------------------} { TApples.Create } {--------------------------------------


Functions


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 } {--------------------------------------


Properties


property Align :


property Apple : TBitmap


property Background : TBackgndObj


property Bevel : TDFBevel


property Enabled :


property LineWrap : Boolean


property TransparentColor : TColor


property Value : Extended


property Visible :


Events


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnEndDrag :


event OnMouseDown :


event OnMouseEnter : TNotifyEvent


event OnMouseLeave : TNotifyEvent


event OnMouseMove :


event OnMouseUp :


event OnStartDrag :


Variables


FApple : TBitmap;

Private Declarations


FLineWrap : Boolean;


FTransparentColor : TColor;


FValue : Extended;