[Lazarus] LabeledEdit with more than one EditLabel

[Gabor Boros]

Hi,

I want to make a LabeledEdit descendant with two EditLabels. But it is 
not an easy task because TBoundLabel have a hardcoded name SubLabel.
Worked out a solution for myself, see the attachment. But that solve 
only the naming problem. What is the good and easy solution for others? 
Double every thing for the new label in example 
TCustomLabeledEdit.DoPositionLabel?

Gabor
-------------- next part --------------
A non-text attachment was scrubbed...
Name: boundlabel_inc.diff
Type: text/x-patch
Size: 269 bytes
Desc: not available
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20140919/77a2176c/attachment-0002.bin>