Class TAlignPanel (unit AlignPnl)

Inherits from

TCustomPanel

acDefault: If the width > heitht, align Controls horizontally acHorizontal: Align Controls horizontally acVertical: Align Controls vertically

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 : 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


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 : 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


Events


Variables


ButtonHeight : Integer;


ButtonWidth : Integer;


FAlignChildren : TAlignPanelAlignChildren;


FHorizontal : Boolean;


FSpace : Integer;


FTopControlCount : Integer;


FTopControls : array [0..3] of TTopControl;