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
» Découpe dans une image
par JL35 Hier à 23:03

» FNC IsDateValide(d$) pour vérifier la validité d'une date
par Marc Hier à 21:51

» Pour faire plaisir à Marc37.
par Marc Hier à 21:46

» Couleur d'une variable qui n'est pas un mot-clé
par bignono Hier à 14:03

» Un catalogue de photos de fleurs, avec KBDD, affichage HTML
par Klaus Mer 21 Fév 2018 - 22:44

» KGF_dll - nouvelles versions
par Klaus Mer 21 Fév 2018 - 22:30

» Mah-Jong anglais
par jjn4 Mer 21 Fév 2018 - 14:22

» Partie fractionnaire d'un flottant
par silverman Mer 21 Fév 2018 - 14:19

» bug CREATE_HIDE : corruption de form
par silverman Mer 21 Fév 2018 - 13:32

» Racine carrée d’un nombre par l’algorithme de Héron
par Ouf_ca_passe Mer 21 Fév 2018 - 9:52

» Méthode manuelle d'extraction de la racine carrée
par pascal10000 Mer 21 Fév 2018 - 7:47

» [annulé]ON_MOVE n,l ne fonctionne que sur le form 0
par silverman Mar 20 Fév 2018 - 16:52

» Ludothèque Panoramic
par jjn4 Mar 20 Fév 2018 - 15:42

» Calculus
par Ouf_ca_passe Mar 20 Fév 2018 - 9:06

» 6 (en analyse):confusion de variable locale entre SUB et FNC
par Jack Mar 20 Fév 2018 - 8:18

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Février 2018
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
262728    
CalendrierCalendrier

Partagez | 
 

 Demande d'aide sur l'objet RichEdit.

Aller en bas 
AuteurMessage
Pedro Alvarez

avatar

Nombre de messages : 929
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 : 10575
Age : 68
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 : 929
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 : 10575
Age : 68
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 : 929
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 : 10575
Age : 68
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 : 10575
Age : 68
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 : 929
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 : 10575
Age : 68
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 : 10575
Age : 68
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 : 929
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 : 10575
Age : 68
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)
» Maker vx ace, demande d'aide pour un évènement.
» [résolu] demande d'aide à l'optimisation

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: