Class TMabRollUp (unit Mabrup)

Inherits from

TCustomControl

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

procedure Paint;

Draw the 'roll up' button.

procedure SetBorderWidth(ABorderWidth: Byte);


procedure SetCaption(ACaption: TCaption);


procedure SetCaptionHeight(ACaptionHeight: Byte);


procedure SetRolledUp(ARolledUp: Boolean);


procedure WMLButtonUp(var msg: TWMLButtonUp);

if RolledUp and (csDesigning in ComponentState) then with (Parent as TCustomControl).

procedure DrawCaption;


Properties

property BorderWidth : Byte

Published declarations

property Caption : TCaption


property CaptionHeight : Byte


property Font :

republished properties

property ParentFont :


property ParentShowHint :


property PopupMenu :


property RolledUp : Boolean


property ShowHint :


property Visible :


Events

event OnDragDrop :


event OnDragOver :


event OnMouseMove :


Variables

FBorderWidth : Byte;


FCaption : TCaption;

Protected declarations

FCaptionHeight : Byte;


FRolledUp : Boolean;


SavedHeight : Integer;

Private declarations


Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


procedure Paint;

Draw the 'roll up' button.


procedure SetBorderWidth(ABorderWidth: Byte);


procedure SetCaption(ACaption: TCaption);


procedure SetCaptionHeight(ACaptionHeight: Byte);


procedure SetRolledUp(ARolledUp: Boolean);


procedure WMLButtonUp(var msg: TWMLButtonUp);

if RolledUp and (csDesigning in ComponentState) then with (Parent as TCustomControl).Canvas do begin Brush.Style := bsClear; Pen.Color := clWindowFrame; Pen.Style := psDash; Rectangle(0, 0, Self.Width, Self.SavedHeight); Pen.Style := psSolid; Brush.Style := bsSolid; end; } rc := Rect(BorderWidth, CaptionHeight + BorderWidth * 2, Width - BorderWidth, Height - BorderWidth); Frame3d(Canvas, rc, clBtnShadow, clBtnHighlight, 1);


procedure DrawCaption;


Properties


property BorderWidth : Byte

Published declarations


property Caption : TCaption


property CaptionHeight : Byte


property Font :

republished properties


property ParentFont :


property ParentShowHint :


property PopupMenu :


property RolledUp : Boolean


property ShowHint :


property Visible :


Events


event OnDragDrop :


event OnDragOver :


event OnMouseMove :


Variables


FBorderWidth : Byte;


FCaption : TCaption;

Protected declarations


FCaptionHeight : Byte;


FRolledUp : Boolean;


SavedHeight : Integer;

Private declarations