Class TSizerPanel (unit Sizer)

Inherits from

TCustomPanel

Constructors


constructor Create(AOwner: TComponent);



Functions

destructor Destroy;


procedure GetControlOrgSize(ComponentName:String; Var Left,Top,Width,Height:Integer);


procedure GetControlSize(ComponentName:String; Var Left,Top,Width,Height:Integer);

TControl(Temp.

procedure SetAlignmentX(Value:TAlignmentX);

procedure TSizerPanel.

procedure SetAlignmentY(Value:TAlignmentY);


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


procedure SetControlOrgSize(ComponentName:String; Left,Top,Width,Height:Integer);


procedure SetControlSize(ComponentName:String; Left,Top,Width,Height:Integer);


procedure SetIterate(Value:Boolean);

TControl(Temp.

Function GetControl(Name:string):TComponentSize;

End;

procedure Paint;

If csDesigning in ComponentState Then Begin Origin.

procedure Resize;


procedure CreateParams(var Params: TCreateParams);


Procedure ResizeIterator(Use:TWinControl; FractionX,FractionY:Real; ResizeInfo:TScale);


Properties

property Align :


property AlignmentX : TAlignmentX


property AlignmentY : TAlignmentY


property Enabled :


property Iterate : Boolean


property Origin : TOrigin


property ParentFont :


property Scale : TScale


Events

event OnResize :


Variables

FAlignmentX : TAlignmentX;


FAlignmentY : TAlignmentY;


FComponentInfo : TClassList;


FIterate : Boolean;


FOrigin : TOrigin;


FScale : TScale;



Constructors


constructor Create(AOwner: TComponent);


Functions


destructor Destroy;


procedure GetControlOrgSize(ComponentName:String; Var Left,Top,Width,Height:Integer);


procedure GetControlSize(ComponentName:String; Var Left,Top,Width,Height:Integer);

TControl(Temp.ObjRef).Refresh;


procedure SetAlignmentX(Value:TAlignmentX);

procedure TSizerPanel.WMEraseBkgnd(var Message: TWMEraseBkgnd); begin Message.Result := 0; end;


procedure SetAlignmentY(Value:TAlignmentY);


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


procedure SetControlOrgSize(ComponentName:String; Left,Top,Width,Height:Integer);


procedure SetControlSize(ComponentName:String; Left,Top,Width,Height:Integer);


procedure SetIterate(Value:Boolean);

TControl(Temp.ObjRef).Refresh;


Function GetControl(Name:string):TComponentSize;

End;


procedure Paint;

If csDesigning in ComponentState Then Begin Origin.Width:=Width; Origin.Height:=Height; End Else ResizeIterator(Self,Width/Origin.Width,Height/Origin.Height,FScale);


procedure Resize;


procedure CreateParams(var Params: TCreateParams);


Procedure ResizeIterator(Use:TWinControl; FractionX,FractionY:Real; ResizeInfo:TScale);


Properties


property Align :


property AlignmentX : TAlignmentX


property AlignmentY : TAlignmentY


property Enabled :


property Iterate : Boolean


property Origin : TOrigin


property ParentFont :


property Scale : TScale


Events


event OnResize :


Variables


FAlignmentX : TAlignmentX;


FAlignmentY : TAlignmentY;


FComponentInfo : TClassList;


FIterate : Boolean;


FOrigin : TOrigin;


FScale : TScale;