Unit MinMax

-------------------------------------------------------------------------------------} { A "MinMax Form Sizer" component for Delphi32. } { Copyright 1996, Patrick Brisacier. All Rights Reserved. } { This component can be freely used and distributed in commercial and private } { environments, provided this notice is not modified in any way. } { -------------------------------------------------------------------------------------} { Feel free to contact us if you have any questions, comments or suggestions at } { PBrisacier@mail.dotcom.fr (Patrick Brisacier) } { -------------------------------------------------------------------------------------} { Thanks to Brad Stowers (bstowers@pobox.com) for his help. } { -------------------------------------------------------------------------------------} { Date last modified: 08/20/96 } { -------------------------------------------------------------------------------------} { -------------------------------------------------------------------------------------} { TMinMax v1.01 } { -------------------------------------------------------------------------------------} { Description: } { A component that allows you to minimize and maximize forms size. You can also } { allow user to resize or not a running form. } { Properties: } { property MaxSize: TMinMaxPoint; } { property MaxPosition: TMinMaxPoint; } { property MinTrackSize: TMinMaxPoint; } { property MaxTrackSize: TMinMaxPoint; } { property Options: TMinMaxOptions; } { } { See example contained in example.zip file for more details. } { -------------------------------------------------------------------------------------} { Revision History: } { 1.00: + Initial release } { 1.01: + Problem corrected in the HookWndProc by Brad Stowers (bstowers@pobox.com) } { -------------------------------------------------------------------------------------

Classes

TMinMax -
TMinMaxPoint -

Functions

Register - Hook the new parent's window procedure

Types

TMinMaxOption
TMinMaxOptions

Constants

Variables


Functions


procedure Register;

Hook the new parent's window procedure

Types


TMinMaxOption = (opAllowResize, opMaxPosition, opMaxSize, opMaxTrackSize, opMinTrackSize);

TMinMaxOptions = set of TMinMaxOption

Constants


Variables