Dialog property

Loki2323 · August 22, 2021, 7:47am

Hello everyone

I would like to know how to change the size of a dialog in basic program step.
i tried this:

sub Show_Topic(sCellString as string, sTopic as string)
	Dim vTextfield As Variant
 	REM error handling
 	On Error GoTo ErrorMsgBox
	DialogLibraries.LoadLibrary("Standard")
	dlgFrmLesson = CreateUnoDialog(DialogLibraries.Standard.frmLesson)
	'** these two properties don't work. Why?
	dlgFrmLesson.Width = 300
	dlgFrmLesson.Height = 300
	'*****************************************
	dlgFrmLesson.Title = sCellString
	vTextfield = dlgFrmLesson.getControl("txtLesson")
	vTextfield.Text = sTopic
	dlgFrmLesson.execute()
	exit sub
	ErrorMsgBox:
    MsgBox "Errore - Show_Topic"
    Resume next	
end sub

Why don’t the properties: width and height work?
Thank you

KamilLanda · August 22, 2021, 8:36am

You must set the object OutputSize (or maybe Size) with the properties Width and Height

Sub exampleDialogWidthHeight
	dim o as object, oSize as new com.sun.star.awt.Size
	GlobalScope.DialogLibraries.LoadLibrary("Tools")
	o=CreateUnoDialog(GlobalScope.DialogLibraries.Tools.DlgOverwriteAll)
	with oSize
		.Width=150
		.Height=50
	end with
	o.OutputSize=oSize
	o.Visible=true
	msgbox o.isVisible
End Sub

Loki2323 · August 22, 2021, 9:23am

Hello
I am a beginner, I don’t understand what it is: o = CreateUnoDialog (GlobalScope.DialogLibraries.Tools.DlgOverwriteAll)

Dialog has already been created, I just want to change the size before running it.
DialogLibraries.LoadLibrary (“Tools”) is causing me an error

sub Show_Topic(sCellString as string, sTopic as string)
	dim vTextfield As Variant
	dim vSize as new com.sun.star.awt.Size
 	REM error handling
 	On Error GoTo ErrorMsgBox
	' using "Tools" creates an error
	DialogLibraries.LoadLibrary("Tools")
	dlgFrmLesson = CreateUnoDialog(DialogLibraries.Standard.frmLesson)
	'** these two properties don't work. Why?
	vSize.Width = 150
	vSize.Height = 50
	'*****************************************
	dlgFrmLesson.Title = sCellString
	vTextfield = dlgFrmLesson.getControl("txtLesson")
	vTextfield.Text = sTopic
	dlgFrmLesson.execute()
	exit sub
	ErrorMsgBox:
    MsgBox "Errore - Show_Topic"
    Resume next	
end sub

KamilLanda · August 22, 2021, 11:25am

Try add to your example: dlgFrmLesson.OutputSize=vSize (or maybe dlgFrmLesson.Size=vSize)

o = CreateUnoDialog (GlobalScope.DialogLibraries.Tools.DlgOverwriteAll)
is the example dialog from the LibreOffice Macros & Dialogs

There must be GlobalScope.DialogLibraries…
GlobalScope.DialogLibraries.LoadLibrary("Tools")

Loki2323 · August 22, 2021, 1:25pm

Hello
I tried the example and it works.
Load the example dialog “DlgOverwriteAll” as shown in the image you uploaded.

Thank you

Ratslinger · August 22, 2021, 7:45pm

Hello,

Can also set directly:

dlgFrmLesson.setPosSize( parameters here )

For parameters see → setPosSize()

This works for dialogs as well as other windows.

Loki2323 · August 23, 2021, 5:04am

Does not work.
maybe I have to refer to some object?

I read the link web page, but I still don’t understand the Libre Office object hierarchy.

Sub exampleDialogWidthHeight
	dim vTextfield as variant
	dim oFrmLesson as object
	DialogLibraries.LoadLibrary("Standard")
	oFrmLesson=CreateUnoDialog(DialogLibraries.Standard.frmDialog)
	vTextfield = oFrmLesson.getControl("txtTesto")
	oFrmLesson.setPosSize(100, 100, 50, 100, 1)
	oFrmLesson.execute()
End Sub

sokol92 · August 23, 2021, 11:23am

The last parameter in the example means setting only the X-coordinate. Use 15.

Loki2323 · August 23, 2021, 12:48pm

It works!
Thank you

Loki2323 · August 24, 2021, 4:05am

I want to thank Ratslinger, this method also works for controls.
That’s what I need