[prog] Affichage d'un cadre dans document texte
Bonjour à tous, N'ayant malheureusement pas beaucoup de succès avec ma bibliothèque fantôme, je me suis décidé à porter ma petite appli sous Ooo3.2. Ca avance un peu, mais vous risquez de me voir souvent par ici dans les jours qui viennent ! Je suppose que toutes les erreurs de codage qui pouvaient passer sous 1.1.4 ne passent plus dans les versions modernes. Bref, j'en viens à mon problème du moment. Voici un bout de code qui permettait d'afficher un cadre à bords arrondis. Il ne marche plus, mais je n'ai pas de message d'erreur. Peut-être pouvez-vous m'aider Dim Taille1 As New com.sun.star.awt.Size MonTexte = MonDocument.Text Moncurseur = MonTexte.createTextCursor Dim MonCadre1 as object MonCadre1 = MonDocument.createInstance(com.sun.star.drawing.RectangleShape) Taille1.Width = 8000 Taille1.Height = 3000 With MonCadre1 .CornerRadius = 600 .FillColor = RGB (255,255,255) .AnchorType = com.sun.star.text.TextContentAnchorType.AT_PARAGRAPH .VertOrient = com.sun.star.text.VertOrientation.NONE .VertOrientPosition = 1500 .HoriOrient = com.sun.star.text.HoriOrientation.NONE .HoriOrientPosition = 8000 .Size = Taille1 End With MonTexte.insertTextContent(Moncurseur, MonCadre1, false) D'avance merci, Martin
Re: [prog] Affichage d'un cadre dans document texte
Bonjour, Concernant votre précédent message, avez vous testé ceci : - fermer OOo, y compris le démarrage rapide s'il est actif - déplacer le répertoire de la librairie se trouvant dans votre profil utilisateur vers un autre emplacement - relancer OOo - Menu Outils Macros Gérer les macros OpenOffice.org Basic, bouton Gérer - aller sur l'onglet bibliothèque et choisir Importer - selectionner le fichier script.xlb se trouvant dans le répertoire déplacé précedemment - verifier que la lib à bien été importé. Cela dit, convertir votre macro pour la rendre compatible avec les versions récentes d'OOo est une bonne chose. Pour ce qui est de l'exemple de code que vous nous avez fait parvenir, il fonctionne chez moi si je l'exécute sur un document déjà ouvert. J'ai juste ajouté ces deux lignes au debut : dim MonDocument as object MonDocument = thisComponent Pour info, je suis en 3.2.0 officielle. Cordialement, T. Vataire - Mail Original - De: Martin Blaizot martin.blai...@wanadoo.fr À: prog@fr.openoffice.org Envoyé: Jeudi 17 Juin 2010 08:32:18 Objet: [prog] Affichage d'un cadre dans document texte Bonjour à tous, N'ayant malheureusement pas beaucoup de succès avec ma bibliothèque fantôme, je me suis décidé à porter ma petite appli sous Ooo3.2. Ca avance un peu, mais vous risquez de me voir souvent par ici dans les jours qui viennent ! Je suppose que toutes les erreurs de codage qui pouvaient passer sous 1.1.4 ne passent plus dans les versions modernes. Bref, j'en viens à mon problème du moment. Voici un bout de code qui permettait d'afficher un cadre à bords arrondis. Il ne marche plus, mais je n'ai pas de message d'erreur. Peut-être pouvez-vous m'aider Dim Taille1 As New com.sun.star.awt.Size MonTexte = MonDocument.Text Moncurseur = MonTexte.createTextCursor Dim MonCadre1 as object MonCadre1 = MonDocument.createInstance(com.sun.star.drawing.RectangleShape) Taille1.Width = 8000 Taille1.Height = 3000 With MonCadre1 .CornerRadius = 600 .FillColor = RGB (255,255,255) .AnchorType = com.sun.star.text.TextContentAnchorType.AT_PARAGRAPH .VertOrient = com.sun.star.text.VertOrientation.NONE .VertOrientPosition = 1500 .HoriOrient = com.sun.star.text.HoriOrientation.NONE .HoriOrientPosition = 8000 .Size = Taille1 End With MonTexte.insertTextContent(Moncurseur, MonCadre1, false) D'avance merci, Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Bravo et merci ! L'import à fonctionné. concernant ma migration vers Ooo3.2.0 ( téléchargé hier sur le site ), je n'arrive toujours pas à voir mes cadres. Mes variables étaient bien entendu déclarées, sinon j'aurais un message d'erreur, mais là, rien. Mon document ( une facture ) s'ouvre normalement mais sans les cadres ( il y en a trois en tout ). Donc, à priori, pas d'erreur de codage ( puisque ça marche chez vous ). Peut-être une config d'Ooo ? Pour info les cadres ne s'affichent pas non plus à l'impression. En tout cas, encore merci pour votre aide. Martin - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
Re: [prog] Affichage d'un cadre dans document texte
Martin Blaizot a écrit : Bravo et merci ! L'import à fonctionné. concernant ma migration vers Ooo3.2.0 ( téléchargé hier sur le site ), je n'arrive toujours pas à voir mes cadres. Mes variables étaient bien entendu déclarées, sinon j'aurais un message d'erreur, mais là, rien. Mon document ( une facture ) s'ouvre normalement mais sans les cadres ( il y en a trois en tout ). Donc, à priori, pas d'erreur de codage ( puisque ça marche chez vous ). Peut-être une config d'Ooo ? Pour info les cadres ne s'affichent pas non plus à l'impression. En tout cas, encore merci pour votre aide. Martin Bonsoir Martin, ça me rappelle un problème que j'avais eu dans le passé http://fr.openoffice.org/servlets/ReadMsg?listName=progmsgNo=995 Tente un MonCadre1.LayerId = 1 Agnès S. - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org
[prog] macros base OOo v3.2
Bonjour, Je suis passée à OOo v3.2 et lorsque j'ouvre une ancienne base de donnée on me propose une migration des macros. Pas de problème et jusque là elles fonctionnent parfaitement. Auparavant les macros étaient associées aux documents Formulaires ou Requètes. Après migration elles sont associées au fichier de la base dans des bibliothèques du style Form_nom du doc formulaire_Standard. Mais je suis surprise : quand la macro contient une ligne du type leForm = thisComponent.DrawPage.Forms.getByName(nomFormulaire) comment OOo sait-il quel est thisComponent ? Par le nom de la bibliothèque ? Par contre si je crée une nouvelle bdd avec des macros et que je les mets dans la bibliothèque standard du document, alors là c'est à moi de lui dire de quel doc-formulaire il s'agit : leFormComponent =ThisDatabaseDocument.FormDocuments.getByName(nomDocForm).Component Si j'avais la réponse à la première question, je pourrais peut-être m'éviter cette étape. Merci de m'éclairer. Agnès S. - To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org