Unit Sizer

Classes

TComponentSize - *************************************************************************} {* *} {* Component : TSizerPanel Desc: Panel that resizes all container*} {* components *} {* Written By: P.
TOrigin -
TScale -
TSizerPanel -

Functions

Register - Case FAlignmentX Of alxLeft : ALeft:=0; alxRight : ALeft:=Parent.

Types

TAlignmentX
TAlignmentY
TRect2

Constants

Variables


Functions


procedure Register;

Case FAlignmentX Of alxLeft : ALeft:=0; alxRight : ALeft:=Parent.ClientWidth-AWidth; alxCenter: ALeft:=(Parent.ClientWidth-AWidth) Div 2; alxClient: Begin ALeft:=0; AWidth:=Parent.Width; End; End; Case FAlignmentY Of alyTop : ATop:=0; alyBottom: ATop:=Parent.ClientHeight-AHeight; alyCenter: ATop:=(Parent.ClientHeight-AHeight) Div 2; alyClient: Begin ATop:=0; AHeight:=Parent.Height; End; End;

Types


TAlignmentX=(alxNone,alxLeft,alxCenter,alxRight ,alxClient);

TAlignmentY=(alyNone,alyTop ,alyCenter,alyBottom,alyClient);

TRect2 = record
Left : Integer;
Top : Integer;
Width : Integer;
Height : Integer;
end;

Constants


Variables