Font Sizes Drop Down in Editor

rbuser

I was just curious if there is a way to add font sizes to the report
designer (edit report mode). In other words, the smallest one now is 8.
I can type in a 7 but was just curious if there was a way to add 7 to
the drop down.

Delphi xe7, 16.01 (or 16.02) not sure enterprise edition

nicocizik

Hi Jeff,

There technically is a way to do this by manually accessing the toolbar
item action however it isn't very elegant and I can't guarantee this
will work for all future versions.

We will consider adding an easier way to alter the toolbar items for a
later release.

Below is some test code that I wrote.

uses
ppDesignToolbarsTBX, ppDesignToolActions;

var
lFormatToolbar: TppCustomFormatToolbar;
lFontSizeAction: TppFontSizeAction;
begin

lFormatToolbar :=
TppCustomFormatToolbar(ppDesigner1.Form.LayoutManager.ToolManager.Toolbars.ItemsByName['Format']);
lFontSizeAction :=
TppFontSizeAction(lFormatToolbar.FontSizeComboBox.Action);
lFontSizeAction.Items.Clear;
lFontSizeAction.Items.CommaText := '1, 2, 3, 4, 5, 6, 7, 8, 9, 10';

ppDesigner1.ShowModal;

end;