Class TSizerPanel (unit Sizer) |
Inherits from
TCustomPanel
constructor Create(AOwner: TComponent);
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);
property Align :
property AlignmentX : TAlignmentX
property AlignmentY : TAlignmentY
property Enabled :
property Iterate : Boolean
property Origin : TOrigin
property ParentFont :
property Scale : TScale
event OnResize :
FAlignmentX : TAlignmentX;
FAlignmentY : TAlignmentY;
FComponentInfo : TClassList;
FIterate : Boolean;
FOrigin : TOrigin;
FScale : TScale;
constructor Create(AOwner: TComponent);
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);
property Align :
property AlignmentX : TAlignmentX
property AlignmentY : TAlignmentY
property Enabled :
property Iterate : Boolean
property Origin : TOrigin
property ParentFont :
property Scale : TScale
event OnResize :
FAlignmentX : TAlignmentX;
FAlignmentY : TAlignmentY;
FComponentInfo : TClassList;
FIterate : Boolean;
FOrigin : TOrigin;
FScale : TScale;