Question about the controlFontDialog dialog window

[JmCornil]

Hello Guys

In order to modify and standardize the layout of a form (under Writer with more than 200 controls) I try to use the controlFontDialog window to define a font and its attributes. I manage to bring up the dialog window and allow the user to choose a font with the following code:

Sub Dialog_FontChooser
    Dim oFontChooser As Object
      oFontChooser = createUnoService("com.sun.star.form.ControlFontDialog")
      oFontChooser.setTitle("My Title")    ' just for fun
      oFontChooser.execute(aPropertyNames)
      ' xray oFontChooser                  ' I found no useful  information 
End Sub

But despite my research with xRay (and MRI) I can’t get the user’s choice, unlike what I was able to do for the background color using the color palette with the following code:

Sub Dialog_ColorPick
	oColorPick = CreateUnoService("com.sun.star.ui.dialogs.ColorPicker")
	oColorPick.execute
	print(oColorPick.PropertyValues(0).Value)
End Sub

Does anyone have an idea to recover data from ControlFontDialog?

Thanks in advance

Jack-Michel

[sokol92]

Maybe we can try this:

Sub Dialog_FontChooser
  Dim oFontChooser As Object, oGridModel As Object, retval
  oGridModel=createUnoService("com.sun.star.awt.grid.UnoControlGridModel")
  oFontChooser = com.sun.star.form.ControlFontDialog.createWithGridModel(oGridModel)
  oFontChooser.setTitle("My Title")
  retval=oFontChooser.execute(Array())
  If retval=1 Then    '
    ' mri oGridModel
    Msgbox "Font name: " & oGridModel.FontName
  End If  
End Sub

[JmCornil]

Super ! It works !
Thank you for your quick answer !
I’ll look at this in depth to see how I could have found it in the rather complex documentation of the SDK and API.