Designer Font Combo Box

rbuser

I was just curious, in the report designer, there is a font size combo
box, with 8 thru 72 font sizes in it. Is there a simple way to add
different font sizes to the combo box? Or is a custom report designer
needed for that?

nardmoseley

Using RB 10, the following will work...

uses
ppDesignToolActions,
ppDesignLayoutManager;

var
lLayoutManager: TppDesignLayoutManager;
lToolActionManager: TppDesignToolActionManager;
lFormatActions: TppFormatActionList;
lFontSizeAction: TppFontSizeAction;
begin

lLayoutManager := ppDesigner1.Form.LayoutManager;

lToolActionManager := lLayoutManager.ToolActionManager;

lFormatActions :=
TppFormatActionList(lToolActionManager.ActionLists.ItemsByName['Format']);

lFontSizeAction :=
TppFontSizeAction(lFormatActions.GetActionForName('FontSize'));

// add a font size
lFontSizeAction.Items.Insert(0, '6');


end;



--
Nard Moseley
Digital Metaphors
www.digital-metaphors.com