Unit SMPanel |
Classes |
TSMPanel -
Functions |
Register -
Types |
TNotifyMoveEvent
TNotifyResizeEvent
TResizeDirection
TResizeDirectionSet
Constants |
Variables |
Functions |
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 |