Discussion :

[kespy13]

salut a tous


voici mon petit probleme :
j'ai beau chercher dans la doc mais je ne trouve pas,
je cherche une procedure ou un moyen de changer la couleur d'une chaine de caractere ou d'un symbol.

je m'explique par exemple je parcours un fichier et je trouve la chaine de caractere (ou le symbol) TOTO écrit en noir et je souhaiterait modifier sa couleur pour qu'il soit ecrit en rouge.

j'espere que j'ai été clair, si vous a vez une piste ....


merci

[Trap D]

Dans ton canvas d'affichage pour les mots qui t'intéressent tu peux avant de les écrire faire un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(send dc set-text-foreground (make-object color% 255 0 0))

où les nombres compris entre 0 et 255 sont les valeurs RVB de la couleur.

[kespy13]

Dans ton canvas d'affichage pour les mots qui t'intéressent tu peux avant de les écrire faire un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(send dc set-text-foreground (make-object color% 255 0 0))

où les nombres compris entre 0 et 255 sont les valeurs RVB de la couleur.

justement mon probleme c que le texte existe deja et je vux modifier sa couleur

[Trap D]

Il est affiché dans quoi ton texte ?

[kespy13]

Il est affiché dans quoi ton texte ?

le texte est affiché dans un editor-canvas

[Trap D]

Ce bout de code montre comment mettre en rouge et en gras le texte sélectionné dans un editor-canvas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
;; fonction appelée par le bouton, elle met en rouge et en gras la  sélection
(define (button_fonc x y)
  (let* ((txt (send monCanvas1 get-editor))
         (start (send txt get-start-position))
         (end (send txt get-end-position))
         (delta (make-object style-delta% ))) 
    (send delta set-weight-on 'bold)
    (send delta set-delta-foreground (make-object color% 255 0 0) )
    (send txt change-style  delta start end)))


;; définition de la boîte de dialogue
;; définition de la fenêtre principale
(define maFenetre (make-object frame% "Test")) ; création de l'objet maFenetre

(send maFenetre min-width 200) ; définition de sa largeur mini
(send maFenetre min-height 200) ; définition de sa hauteur mini
(send maFenetre resize 300 300) ; redimensionnement de la fenetre
                     
;; je lui adjoins une aire de dessin ou d'écriture avec un texte associé
(define monCanvas1 (make-object editor-canvas% maFenetre (make-object text%))) 
      ;; j'adjoins maintenant à ma fenêtre un bouton (qui sera centré) sous le canvas
(define monBouton (make-object button% "Bouton" maFenetre button_fonc)) ; création de l'objet bouton
(send monBouton min-width 150) ; définition de sa largeur mini
(send monBouton min-height 20) ; définition de sa hauteur mini

(send maFenetre show #t) ; affichage de la fenetre

[Trap D]

Si tu veux modifier un mot saisi à part, tu peux t'inspirer de ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
;; fonction appelée par le bouton, elle me en rouge et en gras la sélection 
(define (button_fonc x y)
  (let* ((txt (send monCanvas1 get-editor))
         (mot (get-text-from-user "Test Couleur" "Mot recherché"))        
         (start (send txt find-string mot 'forward 0 'eof #t #f))
         (end (send txt find-string mot 'forward 0 'eof #f #f)) 
         ;(start (send txt get-start-position))
         ;(end (send txt get-end-position))
         (delta (make-object style-delta% )))
    (send delta set-weight-on 'bold)
    (send delta set-delta-foreground (make-object color% 255 0 0) )
    (send txt change-style  delta start end)))

[Gnux]

Salut
Vous parlez bien des canvas de plt là? Parce que comme ça on ne comprend rien au thread. Vous pourriez donner des liens pour ceux qui vont du Scheme sans utiliser ces outils svp?
Merci

[Trap D]

Oui, DrScheme, je ne connais que celui-la
Renseignement ici

[Gnux]

Oui, DrScheme, je ne connais que celui-la
Renseignement ici

Perso je n'utilise que celui là. Je le trouve très bien et si jamais j'ai envie d'en avoir un plus bleeding-edge (genre qui suit le draft r6rs) ben je l'écrirais moi-même mais pas pour le moment.
En plus pour les fanas il existe quake.el qui permet d'interagir directement avec emacs pour profiter des bindings et autre (pour les flemmards de la souris)

[kespy13]

merci pour le code ca repond bien a ma question

merci et bonne continuation

par contre, je n'arrive pas à utiliser after insert pour détecter que l'utilisateur a entré un mot dans le canvas. Une idée?

[Trap D]

Voilà comment utiliser after-insert, il faut redéfinir text%

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
(namespace-require (quote (lib "..\\srfi\\13\\string.ss" ))) 
(require
 (lib "class.ss")
 (lib "mred.ss" "mred"))

;; définition de la boîte de dialogue
;; définition de la fenêtre principale
(define maFenetre (make-object frame% "Test")) ; création de l'objet maFenetre

(send maFenetre min-width 200) ; définition de sa largeur mini
(send maFenetre min-height 200) ; définition de sa hauteur mini
(send maFenetre resize 300 300) ; redimensionnement de la fenetre
                     
;; je définis mon propre canvas 
(define my-text%
  (class text%
    (init-field (deb 0))
    (init-field (end 0))
    (init-field (str ""))
    (init-field (delta (make-object style-delta%)))
                
    (define/augment (after-insert s l)
      (let* ((delta (make-object style-delta%))
             (ch (send this get-character s))
             (char (make-string 1 ch)))
        ;(super-after-insert s e)
        (if (member ch '(#\newline #\( #\) #\ ))
            (begin
              (if (member str '("define" "let" "cond" "if" "when" "lambda"))
                (begin
                  (send delta set-weight-on 'bold)
                  (send delta set-delta-foreground (make-object color% 255 0 0))
                  (send this change-style delta deb (+ 1 end)))) 
              (set! deb (+ 1 s))
              (set! end (+ 1 s))
              (set! str ""))
            (begin
              (set! end s)
              (set! str (string-concatenate (list str char)))))
        (inner (void) after-insert s l)
      ))
    (super-instantiate ()))) 
  

;; je lui adjoins une aire de dessin ou d'écriture avec un texte associé
(define monCanvas1 (make-object editor-canvas% maFenetre (make-object my-text%))) 

(send maFenetre show #t) ; affichage de la fenetre

[kespy13]

merci bcp de vous etres penchés sur mon probléme.

bonne continuation

[het06]

Salut a tous
J ai jeté un coup d oeil a ce code et a vrai dire il m interesse grandement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
; fonction appelée par le bouton, elle me en rouge et en gras la sélection 
(define (button_fonc x y)
  (let* ((txt (send monCanvas1 get-editor))
         (mot (get-text-from-user "Test Couleur" "Mot recherché"))        
         (start (send txt find-string mot 'forward 0 'eof #t #f))
         (end (send txt find-string mot 'forward 0 'eof #f #f)) 
         ;(start (send txt get-start-position))
         ;(end (send txt get-end-position))
         (delta (make-object style-delta% )))
    (send delta set-weight-on 'bold)
    (send delta set-delta-foreground (make-object color% 255 0 0) )
    (send txt change-style  delta start end)))

Cependant, comment pourrais je adapter ce code de facon a ce qu il recherche les mots a colorier dans une liste qui est declarer comme une variable globale?

[Trap D]

Peut-être ce genre de code ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
(define liste-mots '("define" "let" "cond" "if" "when" "lambda"))

(define (button_fonc x y)
  (let  ((txt (send monCanvas1 get-editor))
         (delta (make-object style-delta% )))
    (map (lambda (mot)
           (let ((start (send txt find-string mot 'forward 0 'eof #t #f))
                 (end (send txt find-string mot 'forward 0 'eof #f #f)))
             (when (not (equal? start #f))
               (send delta set-weight-on 'bold)
               (send delta set-delta-foreground (make-object color% 255 0 0) )
              (send txt change-style  delta start end))))
         liste-mots)))

[het06]

Oui merci c est ce genre de code qu il me faudrait mais est il possible de lui faire changer la couleur a l ensemble des mots qu il trouve ?
Car la j ai remarqué que dès qu il en trouvait un, il n effectuait pas le changement de couleur sur la suite du texte

[Trap D]

C'est tout à fait possible effectivement en utilisant find-string-all qui renvoie une liste de positions
Extrait de la doc de mred :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
find-string-all in text%

Finds all occurrences of a string using find-string. If no occurrences are found, the empty list is returned.

* (send a-text find-string-all str direction start end get-start? case-sensitive) -> list of exact non-negative integers 
   str : string 
   direction = 'forward : symbol in '(forward backward) 
   start = 'start : exact non-negative integer or 'start 
   end = 'eof : exact non-negative integer or 'eof 
   get-start? = #t : boolean 
   case-sensitive = #t : boolean

The arguments are the same as for find-string.