(LOBasic)Ouverture d'un Formulaire en plein écran

fr-users
#1

Bonjour,
J'ai déjà eu l'occasion d'aborder ce sujet dans open office, l'affichage plein écran (fullscreen) s'effectuait correctement jusqu'à la version 3.2.
Mais à partir de la 3.3 et sous LO 3.5 l'affichage se réalise sur une fraction d'écran.
Jusqu'à ce jour je n'ai toujours pas trouvé de solution conforme.
Je joins une base de données zipée.
Merci à tous pour votre implication dans le développement d'une bureautique accessible à tous et sans monopole.
Michel

#2

Bonjour

blanchard.michel4 wrote

Je joins une base de données zipée.

Les listes ne gèrent pas les pièces jointes. Il faut soit passer par Nabble
soit
via un site de téléchargement de fichier et coller le lien dans ton message.

Cordialement
Pierre-Yves

#3

Suite...

J'ai profité de ta question pour ajouter l'agrandissement du formulaire
à la page du wiki portant sur l'ouverture d'un formulaire:
http://wiki.documentfoundation.org/FR/FAQ/Base/137

Cordialement
Pierre-Yves

#4

Bonjour

Tout d'abord un conseil d'usage des listes. Dans ton courrielleur ou webmail il
faut utiliser l'option "Répondre à la liste" ou "Répondre à tous" sinon le message
ne va qu'au destinataire et non à la liste.

Message du 01/11/12 18:15
De : "Blanchard Michel"

L'ouverture du form se réalise bien avec ContainerWindow.IsMaximized = true
mais mon souci c'est la méthode fullscreen. mon objectif étant d'essayer de
m'approcher d'une appli access avec disparition complète des menus

Au temps pour moi, je n'avais pas compris cela...

Donc ci-dessous deux possibilités :

1. "DemarrageTailleForm" ouvre le formulaire, et suppime les menus

2. "DemarragePleinEcran", euh... comme son nom l'indique :slight_smile:

Ci-dessous les procédures

Sub DemarrageTailleForm

ThisDatabaseDocument.CurrentController.connect("","")
LibOForm =ThisDatabaseDocument.FormDocuments.getByName("F_menu_principal").open
LibOForm.CurrentController.Frame.LayoutManager.HideCurrentUI = true

End Sub

Sub DemarragePleinEcran

dim document   as object
dim dispatcher as object

dim args1(0) as new com.sun.star.beans.PropertyValue

ThisDatabaseDocument.CurrentController.connect("","")
LibOForm =ThisDatabaseDocument.FormDocuments.getByName("F_menu_principal").open

document   = LibOForm.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

args1(0).Name = "FullScreen"
args1(0).Value = true

dispatcher.executeDispatch(document, ".uno:FullScreen", "", 0, args1())

End Sub

Cordialement
Pierre-Yves

Une messagerie gratuite, garantie à vie et des services en plus, ça vous tente ?
Je crée ma boîte mail www.laposte.net

#5

Bonjour

Tout d'abord un conseil d'usage des listes. Dans ton courrielleur ou webmail il
faut utiliser l'option "Répondre à la liste" ou "Répondre à tous" sinon le message
ne va qu'au destinataire et non à la liste.

Message du 01/11/12 18:15
De : "Blanchard Michel"
L'ouverture du form se réalise bien avec ContainerWindow.IsMaximized = true
mais mon souci c'est la méthode fullscreen. mon objectif étant d'essayer de
m'approcher d'une appli access avec disparition complète des menus

Au temps pour moi, je n'avais pas compris cela...

Donc ci-dessous deux possibilités :

1. "DemarrageTailleForm" ouvre le formulaire, et suppime les menus

2. "DemarragePleinEcran", euh... comme son nom l'indique :slight_smile:

Ci-dessous les procédures

Sub DemarrageTailleForm

ThisDatabaseDocument.CurrentController.connect("","")
LibOForm =ThisDatabaseDocument.FormDocuments.getByName("F_menu_principal").open
LibOForm.CurrentController.Frame.LayoutManager.HideCurrentUI = true

End Sub

Sub DemarragePleinEcran

dim document as object
dim dispatcher as object

dim args1(0) as new com.sun.star.beans.PropertyValue

ThisDatabaseDocument.CurrentController.connect("","")
LibOForm =ThisDatabaseDocument.FormDocuments.getByName("F_menu_principal").open

document = LibOForm.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

args1(0).Name = "FullScreen"
args1(0).Value = true

dispatcher.executeDispatch(document, ".uno:FullScreen", "", 0, args1())

End Sub

Cordialement
Pierre-Yves

Bonjour
OK pour le DemarragePleinEcran mais l'ouverture des formulaires secondaires (à partir du F_menu_principal) se réalise en arrière plan ?
Cordialement
Michel

#6

Bonjour

Tout d'abord un conseil d'usage des listes. Dans ton courrielleur ou webmail il
faut utiliser l'option "Répondre à la liste" ou "Répondre à tous" sinon le message
ne va qu'au destinataire et non à la liste.

Message du 01/11/12 18:15
De : "Blanchard Michel"
L'ouverture du form se réalise bien avec ContainerWindow.IsMaximized = true
mais mon souci c'est la méthode fullscreen. mon objectif étant d'essayer de
m'approcher d'une appli access avec disparition complète des menus

Au temps pour moi, je n'avais pas compris cela...

Donc ci-dessous deux possibilités :

1. "DemarrageTailleForm" ouvre le formulaire, et suppime les menus

2. "DemarragePleinEcran", euh... comme son nom l'indique :slight_smile:

Ci-dessous les procédures

Sub DemarrageTailleForm

ThisDatabaseDocument.CurrentController.connect("","")
LibOForm =ThisDatabaseDocument.FormDocuments.getByName("F_menu_principal").open
LibOForm.CurrentController.Frame.LayoutManager.HideCurrentUI = true

End Sub

Sub DemarragePleinEcran

dim document as object
dim dispatcher as object

dim args1(0) as new com.sun.star.beans.PropertyValue

ThisDatabaseDocument.CurrentController.connect("","")
LibOForm =ThisDatabaseDocument.FormDocuments.getByName("F_menu_principal").open

document = LibOForm.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

args1(0).Name = "FullScreen"
args1(0).Value = true

dispatcher.executeDispatch(document, ".uno:FullScreen", "", 0, args1())

End Sub

Cordialement
Pierre-Yves

Bonjour
OK pour le DemarragePleinEcran mais l'ouverture des formulaires secondaires (à partir du F_menu_principal) se réalise en arrière plan ?
Cordialement
Michel

Bonjour,
Ce qui me manquait c'était de faire un peu de ménage dans mon code !!
Merci de ta patience
je joins deux applis qui pourraient intéresser d'autres utilisateurs, voire pour les améliorer
Cordialement
Michel
http://www.inforbur.com/Facturation.zip
http://www.inforbur.com/comptabilite.zip
Cordialement
Michel