| Class TAlignPanel (unit AlignPnl) |
TCustomPanel
acDefault: If the width > heitht, align Controls horizontally acHorizontal: Align Controls horizontally acVertical: Align Controls vertically
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
function GetControlsList: TList;
procedure AlignControls(AControl: TControl; var Rect: TRect);
procedure Loaded;
procedure RealignButtons;
procedure AdjustSize(ALeft, ATop: Integer; var W: Integer; var H: Integer);
procedure SetAlignChildren(Value: TAlignPanelAlignChildren);
procedure SetSpace(Value: Integer);| Properties |
property Align :
property AlignChildren : TAlignPanelAlignChildren
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
property TabOrder :
property Visible :
property Horizontal : Boolean| Events |
| Variables |
ButtonHeight : Integer;
ButtonWidth : Integer;
FAlignChildren : TAlignPanelAlignChildren;
FHorizontal : Boolean;
FSpace : Integer;
FTopControlCount : Integer;
FTopControls : array [0..3] of TTopControl;| Constructors |
constructor Create(AOwner: TComponent);TAlignPanel --------------------------------------------------------------
| Functions |
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);| Properties |
property Align :
property AlignChildren : TAlignPanelAlignChildrennew 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 : IntegerThe space between the child-Controls (0 to 8 pixels):
property TabOrder :
property Visible :
property Horizontal : Boolean| Events |
| Variables |
ButtonHeight : Integer;
ButtonWidth : Integer;
FAlignChildren : TAlignPanelAlignChildren;
FHorizontal : Boolean;
FSpace : Integer;
FTopControlCount : Integer;
FTopControls : array [0..3] of TTopControl;