TTMSFNCRibbonToolBar - TLabeledEdit

[Gasparik_Lubomir (Gašparík Ľubomír)]

If you put TLabeledEdit on TTMSFNCRibbonToolBar and you try to reduce the main window so that TMSFNCRibbonToolBar1->Compact = true then a runtime error occurs"...raised exception class EListError with message 'List index out of bounds (3). TList range is 0..2'.". Yes, of course I can use TMSFNCLabelEdit1 where this problem does not occur.

[Pieter]

This is unfortunately reproducible with TPanel & TLabeledEdit as a child, with the following code:

procedure TForm9.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := Panel1.ControlCount - 1 downto 0 do
  begin
    Panel1.Controls[I].Parent := nil;
  end;
end;

So unfortunately this is a bug in VCL. We'll report this to Embarcadero.

[Pieter]

You can track the bug here:

https://embt.atlassian.net/servicedesk/customer/portal/1/RSS-2452

[Gasparik_Lubomir (Gašparík Ľubomír)]

Thanks LabeledEdit, I replaced MaskEdit. I don't want to be annoying, but one more observation. TTMSFNCRibbonPageControlContainer (TMSFNCRibbon1PageControlPage0->Stroke) has a strange line overlap under the Page 1 text. Is this intentional or can it be set somewhere? In my opinion, it should look like in the case of TabSheet2 where the line continues to the line around the TAB.

[Pieter]

Hi,

We have improved the border drawing, next version will address this.
Thanks for reporting!

[Gasparik_Lubomir (Gašparík Ľubomír)]

Thank you Pieter for version 6.3.0.0 now the border is drawn correctly .

[Pieter]

Thanks for the feedback!