| Class TMabRollUp (unit Mabrup) |
TCustomControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure Paint;
procedure SetBorderWidth(ABorderWidth: Byte);
procedure SetCaption(ACaption: TCaption);
procedure SetCaptionHeight(ACaptionHeight: Byte);
procedure SetRolledUp(ARolledUp: Boolean);
procedure WMLButtonUp(var msg: TWMLButtonUp);
procedure DrawCaption;| Properties |
property BorderWidth : Byte
property Caption : TCaption
property CaptionHeight : Byte
property Font :
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;
FCaptionHeight : Byte;
FRolledUp : Boolean;
SavedHeight : Integer;| 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 : BytePublished 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