FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Aujourd'hui à 19:00

» Demande pour Jack concernant PanExpress
par Minibug Aujourd'hui à 15:42

» Calculatrice
par joeeee2017 Aujourd'hui à 9:35

» EPP_V01 éditeur pour Panoramic
par Jean Claude Aujourd'hui à 8:51

» Planétarium virtuel.
par Jean Claude Hier à 18:14

» Petit coucou en passant !
par Minibug Dim 16 Sep 2018 - 15:03

» bug SEVERE fnc+sub : variables globales corrompus
par silverman Dim 16 Sep 2018 - 13:38

» Verrouiller un form en avant plan
par silverman Dim 16 Sep 2018 - 12:50

» Fin de l'aventure.
par Pedro Alvarez Sam 15 Sep 2018 - 18:16

» Demande d'explications Sur File_Write & File_writeln
par Jack Sam 15 Sep 2018 - 17:26

» MEMO avec des possibilités de commande
par Oscaribout Mer 12 Sep 2018 - 1:06

» La théorie du chaos
par jean_debord Mar 11 Sep 2018 - 9:30

» Orbites de l’ensemble de Mandelbrot
par Jean Claude Lun 10 Sep 2018 - 21:08

» Version instantanée V 0.9.29i2 du 4/09/2018
par silverman Mer 5 Sep 2018 - 10:15

» Plantage lors de l'exécution de EXIT_SUB
par Jack Lun 3 Sep 2018 - 18:59

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2018
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
CalendrierCalendrier

Partagez | 
 

 Demande d'aide sur l'objet RichEdit.

Aller en bas 
AuteurMessage
Pedro Alvarez

avatar

Nombre de messages : 1175
Date d'inscription : 19/01/2014

MessageSujet: Demande d'aide sur l'objet RichEdit.   Dim 13 Nov 2016 - 15:39

Bonjour.

@Klaus.

J'utilise régulièrement une application de dictionnaire français-anglais.
Cette application permet de copier dans le presse-papiers tout contenu sélectionné (un mot et ses traductions).
Le résultat donné est au format RTF, que je peux retrouver et sauvegarder en effectuant un coller dans Wordpad.

Par contre, par un copier dans Panoramic, le formatage du résultat (couleurs, police), est bien entendu perdu.

Je me demandais donc s'il était possible de récupérer le contenu du presse-papiers dans un objet RichEdit, en conservant le formatage.

Merci de ta réponse.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Demande d'aide sur l'objet RichEdit.   Dim 13 Nov 2016 - 17:29

Oui, à priori, l'objet RichEdit est fait pour ça.

Maintenant, cela dépend des options présentes dans le texte. Toutes les capacités du format RTF ne sont pas disponibles avec l'objet FichEdit, comme par exemple des images incluses, etc. Néanmoins, polices, styles (gras, italique, ...), couleurs et tailles des caractères ne devraient poser aucun problème.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

Nombre de messages : 1175
Date d'inscription : 19/01/2014

MessageSujet: Demande d'aide sur l'objet RichEdit.   Dim 13 Nov 2016 - 17:56

Bonjour.

Le texte formaté ne contient aucune image incluse.
Dans ce cas, comment dois-je procéder ?

Merci de ton aide.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Demande d'aide sur l'objet RichEdit.   Dim 13 Nov 2016 - 18:04

Tu regardes la doc de KGF.dll, section "Objets", objet "RichEdit".
Ou tu vas directement sur l'aide en ligne:
http://klauspanoramic.esy.es/ObjetRichEditRichEditobject.html#RichEdit_fr
Tout est détaillé dans ces pages.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

Nombre de messages : 1175
Date d'inscription : 19/01/2014

MessageSujet: Demande d'aide sur l'objet RichEdit.   Dim 13 Nov 2016 - 18:32

Bonjour.

Je viens juste de tester l'objet RichEdit.

Il ne permet pas de récupérer les codes de formatage (couleurs, polices).

Merci de ton aide.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Demande d'aide sur l'objet RichEdit.   Dim 13 Nov 2016 - 18:42

As-tu essayé le code exemple pou la fonction GetSelectedRichEditAttributes ?
Code:
dim RE%, res%, f$, txt$
RE% = dll_call1("RichEditCreate",handle(0))
f$ = "MonDocument.rtf"
' sélectionner 5 caractères à partir du caractère 23
res% = dll_call3("SelectRichEditText",RE%,23,5)
txt$ = string$(255," ")
' retourner les attributs du texte sélectionné
res% = dll_call2("GetSelectedRichEditAttributes",RE%,3,adr(txt$))
message "Les attributs sont: "+trim$(txt$)
Crée un fichier MonDocument.rtf, mets-y un peu de texte, mets des attributs sur 5 caractères à partir du 23ème et exécute ce code. Tu devrais récupérer les attributs.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Demande d'aide sur l'objet RichEdit.   Dim 13 Nov 2016 - 19:04

Essaie ce code:
Code:
label tester
dim RE%, res%, f$, txt$
dll_on "KGF.dll"
RE% = dll_call1("RichEditCreate",handle(0))
res% = dll_call5("RichEditGeometry",RE%,10,40,300,200)
button 2 : top 2,10 : left 2,10 : caption 2,"Tester" : on_click 2,tester
end

tester:
' sélectionner 5 caractères à partir du caractère 23
res% = dll_call3("SelectRichEditText",RE%,23,5)
txt$ = string$(255," ")
' retourner les attributs du texte sélectionné
res% = dll_call3("GetSelectedRichEditAttributes",RE%,3,adr(txt$))
message "Les attributs sont: "+trim$(txt$)
return

Crée un fichier RTF, et place le texte suivant dans ce fichier:
Code:
abcdeFGHIJklmnoPQRSTuv[color=#0000ff][i][b]wxyZ0123[/b][/i][/color]456789
Mets-y "gras" et "italique" ainsi que la couleur "bleue" de "w" à "3".
Copie ce texte dans le presse-papier.
Lance le programme ci-dessus, clique dans le RichEdit et fais ctrl/V ==> tu as ton texte avec les attributs.
Clique sur le bouton "Tester" et tu obtiens ceci:


C'est bien ce que tu veux, non ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

Nombre de messages : 1175
Date d'inscription : 19/01/2014

MessageSujet: Demande d'aide sur l'objet RichEdit.   Lun 14 Nov 2016 - 7:43

Bonjour.

Merci Klaus, ta méthode fonctionne bien à 99%.

Mais je me vois mal effectuer des milliers de CTRL V afin de récupérer les traductions de milliers de mots.

Comme je le disais plus haut, il manque bien une fonction de récupération du presse-papiers dans un objet RichEdit, sachant que le premier ne contient que du texte.

Merci de la suite.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Demande d'aide sur l'objet RichEdit.   Lun 14 Nov 2016 - 10:10

Ok - je vois. Je vais faire cela.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Demande d'aide sur l'objet RichEdit.   Lun 14 Nov 2016 - 12:49

C'est fait. J'ai corrigé le code 12 de RicheditFunction. Et essaie cette démo:
Code:
label tester, copier
dim RE%, res%, f$, txt$
dll_on "KGF.dll"
RE% = dll_call1("RichEditCreate",handle(0))
res% = dll_call5("RichEditGeometry",RE%,10,40,300,200)
button 2 : top 2,10 : left 2,10 : caption 2,"Tester" : on_click 2,tester
button 3 : top 3,10 : left 3,110 : caption 3,"Copier" : on_click 3,copier
end

tester:
  ' sélectionner 5 caractères à partir du caractère 23
  res% = dll_call3("SelectRichEditText",RE%,23,5)
  txt$ = string$(255," ")
  ' retourner les attributs du texte sélectionné
  res% = dll_call3("GetSelectedRichEditAttributes",RE%,3,adr(txt$))
  message "Les attributs sont: "+trim$(txt$)
  return

copier:
  res% = dll_call3("RichEditFunction",RE%,12,1)
  return
Copie une portion de texte avec format RTF dans le presse-papier, lance ce programme et clique sur "Copier".

Voilà.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

Nombre de messages : 1175
Date d'inscription : 19/01/2014

MessageSujet: Demande d'aide sur l'objet RichEdit.   Mar 15 Nov 2016 - 13:03

Bonjour à tous.

Un grand merci Klaus.
Tout fonctionne parfaitement maintenant.

Il manque la fonction suivante à l'objet RichEdit:

. Effacement du texte complet contenu dans l'objet.

Merci.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Demande d'aide sur l'objet RichEdit.   Mar 15 Nov 2016 - 13:16

Tu fais simplement:
Code:
dim s$
s$ = ""
res% = dll_call2("RichEditStringLoad",RE%,adr(s$))
Cette fonction remplace le contenu de ton RichEdit par le contenu de la chaînede caractères. Et lorsqu'elle est vide...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Contenu sponsorisé




MessageSujet: Re: Demande d'aide sur l'objet RichEdit.   

Revenir en haut Aller en bas
 
Demande d'aide sur l'objet RichEdit.
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Demande d'aide sur l'objet RichEdit.
» demande d'aide à la desinfection et optimisation
» Demande d''aide (urgent)
» Demande d'aide pour un Qui est en ligne.
» Maker vx ace, demande d'aide pour un évènement.

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: A l'aide!-
Sauter vers: