Hi,
EDIT : ok with 2.2.0, but not for the HelpProgram, see 2nd png/EDIT
Starting with a TLabeledEdit on a TForm and a TButton below for increasing the height of the font of theEditLabel text, here are the lines of code I've used :
procedure TForm1.FormCreate(Sender: TObject);
begin
Caption := 'EditLabel.Font.Height = ' + intToStr(LabeledEdit1.EditLabel.Font.Height);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
LabeledEdit1.EditLabel.Font.Height := LabeledEdit1.EditLabel.Font.Height+1;
Caption := 'EditLabel.Font.Height = ' + intToStr(LabeledEdit1.EditLabel.Font.Height);
end;
Then F9, and click the button, here it goes :
see gif file below
Comments :
Little Height sizes (6 7 8 9) are really bad !
From size 0 (the default) to size 33 (not tried higher), only 3 Heights are fine : 22, 30 and 31.
And looking carefully, you'll notice that with Height 1 the text is located at the top of the EditLabel, which is a wrong place, even if text is not readable.
And I'm not sure the Layout property is working fine (not noticed any change when playing with values)
Context is Debian 11.3, Gtk 2.24, FPC 3.2 Lazarus 2.0.12
And more or less, it is the same problem as the Help Program, see png attachment and look at the (missing bottom of the) "g" letter in the right pane.