TitleSuffix: String;
The TitleSuffix property determines suffix for tab header text.
To determine the text displayed in the tab header, use the INavigationBarHeader.Title property.
Executing the example requires a form with the NavigationBar component on it named NavigationBar1. The repository also contains forms with the F_FORM1, F_FORM2 identifiers. Those forms will be connected to the NavigationBar1 component tab panels.
Sub TESTFormOnCreate(Sender: Object; Args: IEventArgs);
Var
Pad: INavigationBarPad;
Begin
Pad := New NavigationBarPad.Create;
Pad.Header.Title := "Pad " + NavigationBar1.Pads.Count.ToString;
Pad.Header.TitleSuffix := "(suffix of " + NavigationBar1.Pads.Count.ToString + " pad)";
Pad.Content.MetabaseObject := "DimensionCombo1";
NavigationBar1.Pads.Add(Pad);
Pad := New NavigationBarPad.Create;
Pad.Header.Title := "Pad " + NavigationBar1.Pads.Count.ToString;
Pad.Header.TitleSuffix := "(suffix of " + NavigationBar1.Pads.Count.ToString + " pad)";
Pad.Content.MetabaseObject := "DimensionCombo2";
NavigationBar1.Pads.Add(Pad);
End Sub TESTFormOnCreate;
The NavigationBar1 tab collection is configured at the form launch. Two tabs are created in the collection and for each of them the header and the panel are configured.
An approximate form available for the form after configuration of the NavigationBar1 component:
See also: