| Class TSizerPanel (unit Sizer) |
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);
procedure SetAlignmentX(Value:TAlignmentX);
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);
Function GetControl(Name:string):TComponentSize;
procedure Paint;
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;