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

TLatchLabel -

Functions

Register -

Types

TLatchTo

Constants

Variables


Functions


procedure Register;


Types


TLatchTo =(ltNone,ltLeftAbove, ltCenterAbove, ltRightAbove,
             ltLeftBelow,ltCenterBelow, ltRightBelow,
             ltLeftTop, ltLeftCenter, ltLeftBottom,
             ltRightTop, ltRightCenter, ltRightBottom);

Constants


Variables