Class TMabRollUp (unit Mabrup) |
Inherits from
TCustomControl
constructor Create(AOwner: TComponent);
- Public declarations
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;
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 :
event OnDragDrop :
event OnDragOver :
event OnMouseMove :
FBorderWidth : Byte;
FCaption : TCaption;
Protected declarations
FCaptionHeight : Byte;
FRolledUp : Boolean;
SavedHeight : Integer;
Private declarations
constructor Create(AOwner: TComponent);
Public declarations
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;
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 :
event OnDragDrop :
event OnDragOver :
event OnMouseMove :
FBorderWidth : Byte;
FCaption : TCaption;
Protected declarations
FCaptionHeight : Byte;
FRolledUp : Boolean;
SavedHeight : Integer;
Private declarations