Unit SMPanel

Classes

TSMPanel -

Functions

Register -

Types

TNotifyMoveEvent
TNotifyResizeEvent
TResizeDirection
TResizeDirectionSet

Constants

Variables


Functions


procedure Register;


Types


TNotifyMoveEvent = Procedure (Sender : TObject; X: Integer; Y : Integer; Var CanMove : Boolean) Of Object

TNotifyResizeEvent = Procedure (Sender : TObject; ResizeDirection : TResizeDirection; Var CanResize : Boolean) Of Object

TResizeDirection = (rdNone,rdTop,rdBottom,rdLeft,rdRight,rdTopLeft,rdTopRight,rdBottomLeft,rdBottomRight);
***************************************************************************** Sizable/Movable Panel Demo prepared for UNDO // Written by Clinton R. Johnson - xepol@poboxes.com // Based on an article by M. Hamilton - MHamilton@bunge.com.au (and a little extra by Robert Vivrette) // Fully extends the concept of resizing, and provides the fundamentals required to include this code in any component. Minimum and maximum window sizes are enforced. Moving the mouse over the regions which cause resizing also cause the cursor to change to the appropriate cursor shape. // This code is released into the public domain.
TResizeDirectionSet = Set Of TResizeDirection

Constants


Variables