Class TWinRoller (unit WinRoll)

Inherits from

TComponent

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 : Boolean

Published 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;



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 : Boolean

Published 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;