2 messages in org.openoffice.fr.progCreatePeer ?
FromSent OnAttachments
Serge LE LOUARNESep 24, 2006 3:55 am 
Bernard MarcellySep 24, 2006 6:42 am 
Actions with this message:
Paste this link in email or IM:
Paste this link in email or IM:
Atom feed for this thread
Paste this URL into your reader:
Subject:CreatePeer ?Actions...
From:Serge LE LOUARNE (serg@free.fr)
Date:Sep 24, 2006 3:55:51 am
List:org.openoffice.fr.prog

Bonjour,

un souci avec ce code :

Sub Main DialogLibraries.LoadLibrary( "Standard" ) MyDlg = CreateUnoDialog( DialogLibraries.Standard.Dialog1 ) MyDlgModel = createUnoService("com.sun.star.awt.UnoControlDialogModel") MyContainer = createUnoService("com.sun.star.awt.UnoControlContainer") MyContainerModel = createUnoService("com.sun.star.awt.UnoControlContainerModel") With MyContainer .posSize.X = 1 .posSize.Y = 10 .posSize.width = 137 .posSize.height = 158 end with With MyContainerModel .BackGroundcolor = RGB(100,200,0) .border = 1 .borderColor = 100 .text = "Test" end with MyDlg.addControl("com.sun.star.awt.Toolkit",MyContainer) MyDlg.Execute() End Sub

La ligne "MyDlg.addControl("com.sun.star.awt.Toolkit",MyContainer)" renvoie toujours une erreur, noramment mais pas exclusivement "createPeer : No Model". J'ai fait divers essais en fonction de ce que j'ai trouvé ici ou là, mais je ne vois pas trop quoi mettre dans les parenthèse, surtout pour la première expression (ici, c'est d'après A. Pitonyak) ...

Si quelqu'un a une idée ...

Merci, Serge