| Class TWinRoller (unit WinRoll) |
TComponent
| Constructors |
constructor Create(Owner: TComponent);| Functions |
destructor Destroy;
procedure CalcArea;
procedure OnRollerDestroy( Sender: TObject );
procedure PaintRollerButton;
procedure Rollup;
procedure SetEnabled( Val: Boolean );
procedure SetRoller( Val: Boolean );
procedure SetVisible( Val: Boolean );
procedure WinProc(var Message: TMessage);| Properties |
property Enabled : Boolean
property Roller : Boolean
property Visible : Boolean| Events |
event OnRoller : TRollerNotifyEvent| Variables |
ButtonArea : TRect;
DefWinProc : TFarProc;
DefWinProcInstance : Pointer;
DrawPushed : Boolean;
FEnabled : Boolean;
FOnFormDestroy : TNotifyEvent;
FOnRoller : TRollerNotifyEvent;
FRoller : Boolean;
FVisible : Boolean;
Pushed : Boolean;
RestoreWndProc : Boolean;
rgn : HRGN;
Stop : Boolean;| Constructors |
constructor Create(Owner: TComponent);Public declarations
| Functions |
destructor Destroy;
procedure CalcArea;
procedure OnRollerDestroy( Sender: TObject );
procedure PaintRollerButton;if FRoller then Rollup;
procedure Rollup;
procedure SetEnabled( Val: Boolean );
procedure SetRoller( Val: Boolean );
procedure SetVisible( Val: Boolean );
procedure WinProc(var Message: TMessage);| Properties |
property Enabled : BooleanPublished declarations
property Roller : Boolean
property Visible : Boolean| Events |
event OnRoller : TRollerNotifyEvent| Variables |
ButtonArea : TRect;
DefWinProc : TFarProc;Private declarations
DefWinProcInstance : Pointer;
DrawPushed : Boolean;
FEnabled : Boolean;
FOnFormDestroy : TNotifyEvent;
FOnRoller : TRollerNotifyEvent;
FRoller : Boolean;
FVisible : Boolean;
Pushed : Boolean;
RestoreWndProc : Boolean;
rgn : HRGN;
Stop : Boolean;