Unit latchlab |
************************************************ TLatchLabel is a label that will latch itself to its focuscontrol. If the focus control is moved or resized the label will follow. Additional Properties Latched : If true the label will follow its windowed control. LatchTo : How to position itself in relation to the focuscontrol. if ltnone it will retain its position relative to where it was placed. LatchMargin : For the fixed position it sets the margin between the label and control. LatchRunTime : Determins if the latch also applies to runtime. This Source Code remains Copyrighted to CopyRight (c) 1997 PA van Lonkhuyzen It may be distributed/modified/used freely. The Author may be contacted via email peterv@global.co.za post P A van Lonkhuyzen PO Box 1041 Randpark Ridge 2156 South Africa ***************************************************) {$D-,L-} {Remove if you wish to debug this code
Classes |
Functions |
Register -
Types |
Constants |
Variables |
Functions |
Types |
TLatchTo =(ltNone,ltLeftAbove, ltCenterAbove, ltRightAbove, ltLeftBelow,ltCenterBelow, ltRightBelow, ltLeftTop, ltLeftCenter, ltLeftBottom, ltRightTop, ltRightCenter, ltRightBottom);
Constants |
Variables |