TEditLabel Apparently does not like Anchoring to other controls.
lazarus / 31-LCL

----------------------------------------------------------------------
jamie · 2021-02-18 02:08

If you drop a TEDITLABLE on the form and then go into the anchor
editor to have the top of it anchor to the form or any control, the
caption text that is on top "Default" slides under the form..

 If you adjust the spacing in the anchor editor, all it does is makes
the Caption text move up more. In fact, if you don't anchor the top to
the form the spacing spinner will adjust the text spacing between its
own EDIT control.

 Kind of a mixed up mess...

  I dropped a TPanel on the form and placed the control in that
instead and the adjusted the panel to anchor for the time being, I
will need to handle the Painting later when sizing the panel to adjust
the EDITLABLE.

 I don't know if this should be reported but it share does not behave
well with the anchoring editor.

----------------------------------------------------------------------
Handoko · 2021-02-18 02:17

Did you mean TLabeledEdit?

I can reproduce the issue, tested on Lazarus 2.0.10 GTK2.

----------------------------------------------------------------------
Blaazen · 2021-02-18 03:54

TLabaledEdit is composed component where Label is anchored to Edit.
When you anchor, you actually anchor only the Edit. I don't know how
to simply hack it. Maybe TFrame?

----------------------------------------------------------------------
Bart · 2021-02-18 22:45

It should have been designed as a composed control like we did with
TEditButton etc.
Basically embed the controls you see in a TCustomControl and forward
all events.
A PITA to write, but once done you can base more components on it.
E.g. TSpin(Float)EditEx use the same ancestor as TEditButton and
family.
This ancestor is coded to have 2 components side by side, but it maybe
can be adopted to have controls above each other as well?

Bart