Toolbar dropdown fonts

FNC TMS FNC UI Pack
1
Hi

I'm using both the TTMSFNCToolBarFontNamePicker and the TTMSFNCToolBarFontSizePicker and would like to use a different font stye in the dropdown controls (in the dropdown area) but setting the font properties in either the control itself or the DropDownControl has no effect.

Thanks, Bob
2

Hi,


You can use the following code to accomplish this:


procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to TMSFMXToolBarFontNamePicker1.ListBox.Count - 1 do
  begin
    TMSFMXToolBarFontNamePicker1.ListBox.ListItems.TextSettings.Font.Size := 20;
    TMSFMXToolBarFontNamePicker1.ListBox.ListItems.TextSettings.Font.Family := 'Comic Sans MS';
    TMSFMXToolBarFontNamePicker1.ListBox.ListItems.StyledSettings := TMSFMXToolBarFontNamePicker1.ListBox.ListItems.StyledSettings - [TStyledSetting.Size];
  end;
end;
3
Hi Pieter

Unfortunately the FNC versions don't have a Listbox property.

Thanks, Bob