Unit FormSize

Classes

TFormSizer -

Functions

Register -

Types

TCoordinate
TNotifyOnTracking

Constants

Variables


Functions


procedure Register;


Types


TCoordinate=(ctNone, ctEquals, ctGreater, ctLess);
************************ This component is FREE ***************************** Use this component at your own risk! Feel free to modify it (of course please e-mail me a copy...). Good luck! ***************************************************************************** Unit :FormSizer.Pas - Delphi VCL component Date :16/08/1996 Creator :Madaffari Giuseppe - SoftPlus (giumad@antares.it) Version :1.00 This unit is designed to extend forms functionality. Based on original idea of Michael Novak (mjn@ksu.ksu.edu) and developed for the Delphi-Talk mailing list subscribers. Hope you find it useful. Any comment and suggestion please forward to: Giuseppe Madaffari - giumad@antares.it How to use TFormSizer component: This component work to give you additional control over TForm behaviour. Dropping this non-visual control on a form, you will be able to set a lot of extra informations for the internal window management. The new available properties are: MinTrackHeight : the minimum height a window can be resized to; MinTrackWidth : the minimum width a window can be resized to; MaxTrackHeight : the maximum height a window can be resized to; MaxTrackWidth : the minimum width a window can be resized to; MaximizedHeight : the height of the maximized window; MaximizedWidth : the height of the maximized window; MaximizedTop : the x-coordinate of the top left corner of a maximized window; MaximizedLeft : the y-coordinate of the top left corner of a maximized window; UseDesignTimeDef : the control'properties will be set to the design time's value; Events : indicate what events must be hooked; The only available event is OnTracking which is called wenever Window need to retrieve the tracking information for a window (message WM_GETMINMAXINFO). You could use this event to dynamically change the values setted at design time. N.B.: in order to enable the component, you must insert a call to the method Activate in the OnCreate handler of the form. Setting any of the above properties to the value of 0, means that Window will use the default values for the specific window class.
TNotifyOnTracking = procedure(Sender: TObject; Var Info: TMINMAXINFO) of object

Constants


Variables