Class TAlignPanel (unit AlignPnl) |
Inherits from
TCustomPanel
acDefault: If the width > heitht, align Controls horizontally
acHorizontal: Align Controls horizontally
acVertical: Align Controls vertically
constructor Create(AOwner: TComponent);
- TAlignPanel --------------------------------------------------------------
function GetControlsList: TList;
procedure AlignControls(AControl: TControl; var Rect: TRect);
procedure Loaded;
procedure RealignButtons;
if (Align = alNone) then H := Temp;
procedure AdjustSize(ALeft, ATop: Integer; var W: Integer; var H: Integer);
procedure SetAlignChildren(Value: TAlignPanelAlignChildren);
procedure SetSpace(Value: Integer);
property Align :
property AlignChildren : TAlignPanelAlignChildren
new properties:
property BevelInner :
property BevelOuter :
property BevelWidth :
property BorderStyle :
property BorderWidth :
property Ctl3D :
property Enabled :
property Font :
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property Space : Integer
The space between the child-Controls (0 to 8 pixels):
property TabOrder :
property Visible :
property Horizontal : Boolean
ButtonHeight : Integer;
ButtonWidth : Integer;
FAlignChildren : TAlignPanelAlignChildren;
FHorizontal : Boolean;
FSpace : Integer;
FTopControlCount : Integer;
FTopControls : array [0..3] of TTopControl;
constructor Create(AOwner: TComponent);
TAlignPanel --------------------------------------------------------------
function GetControlsList: TList;
procedure AlignControls(AControl: TControl; var Rect: TRect);
procedure Loaded;
procedure RealignButtons;
if (Align = alNone) then H := Temp;
procedure AdjustSize(ALeft, ATop: Integer; var W: Integer; var H: Integer);
procedure SetAlignChildren(Value: TAlignPanelAlignChildren);
procedure SetSpace(Value: Integer);
property Align :
property AlignChildren : TAlignPanelAlignChildren
new properties:
property BevelInner :
property BevelOuter :
property BevelWidth :
property BorderStyle :
property BorderWidth :
property Ctl3D :
property Enabled :
property Font :
property ParentColor :
property ParentCtl3D :
property ParentFont :
property ParentShowHint :
property PopupMenu :
property ShowHint :
property Space : Integer
The space between the child-Controls (0 to 8 pixels):
property TabOrder :
property Visible :
property Horizontal : Boolean
ButtonHeight : Integer;
ButtonWidth : Integer;
FAlignChildren : TAlignPanelAlignChildren;
FHorizontal : Boolean;
FSpace : Integer;
FTopControlCount : Integer;
FTopControls : array [0..3] of TTopControl;