Affichage de caractères Unicode.

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

Bonjour à tous.

Je ne résiste pas au plaisir de partager ce code, qui permet d'afficher des caractères Unicode dans un RichEdit.

Le fichier à afficher est donc créé à la demande, selon le code du caractère saisi.

Testez avec 263 ou 273.

Remarque: le code à saisir correspond au code HTML du caractère (uniquement les chiffres).

@Klaus: serait-il possible d'intégrer ce code dans une nouvelle fonction de RichEdit ?

Code:: dim a$, clr%, hnd%, n%, res%, fichier$

label b1

dll_on "kgf.dll"

hnd%=dll_call1("RichEditCreate",handle(0))

mise_en_forme_r1()

button 2
top 2,200
width 2,200
caption 2,"caractère Unicode"
on_click 2,b1

end

b1:
   ' {\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fswiss\fprq2\fcharset128 Calibri;}{\f1\fnil MS Sans Serif;}}
   ' {\colortbl ;\red0\green0\blue255;}
   ' \viewkind4\uc1\pard\cf1\b\f0\fs40
   ' \u263?
   ' }

   a$=message_input$("Unicode.", "Code du caractère:" , "")

   fichier$="unicode\caractere_unicode.txt"
   file_open_write 1,fichier$
   file_writeln 1,"{\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fswiss\fprq2\fcharset128 Calibri;}{\f1\fnil MS Sans Serif;}}"
   file_writeln 1,"{\colortbl ;\red0\green0\blue255;}"
   file_writeln 1,"\viewkind4\uc1\pard\cf1\b\f0\fs40"
   file_writeln 1,"\u"+a$+"?"
   file_writeln 1,"}"
   file_close 1

   res%=dll_call2("RichEditFileInsert",hnd%,adr(fichier$))
   mise_en_forme_r1()
return

sub mise_en_forme_r1()
   ' Nombre de caractères dans l'objet.
   n%=dll_call2("RichEditGetInformation",hnd%,1)

   ' Sélectionner tout le texte.
   res%=dll_call3("SelectRichEditText",hnd%,1,n%)

   ' Taille de la police = 20
   res%=dll_call3("RichEditFunction",hnd%,6,20)

   ' Couleur bleue
   clr%=(255*256+0)*256+0
   res%=dll_call3("RichEditFunction",hnd%,7,clr%)

   ' Se positionner à la fin du texte.
   res%=dll_call3("SelectRichEditText",hnd%,n%,0)
end_sub

C'est fait. Regarde la nouvelle version de KGF.dll. RichEditFunction a maintenant le code 13, et par% est la valeur numérique du caractère UNICODE.

Voici ton code adapté:

Code:: dim a$, clr%, hnd%, n%, res%, fichier$

label b1

dll_on "kgf.dll"

hnd%=dll_call1("RichEditCreate",handle(0))
mise_en_forme_r1()

button 2
top 2,200
width 2,200
caption 2,"caractère Unicode"
on_click 2,b1

end

b1:
' {\rtf1\ansi\ansicpg1252\deff0\deflang1036{\fonttbl{\f0\fswiss\fprq2\fcharset128 Calibri;}{\f1\fnil MS Sans Serif;}}
' {\colortbl ;\red0\green0\blue255;}
' \viewkind4\uc1\pard\cf1\b\f0\fs40
' \u263?
' }

a$=message_input$("Unicode.", "Code du caractère:" , "")
n% = val(a$)
res%=dll_call3("RichEditFunction",hnd%,13,n%)
return

sub mise_en_forme_r1()
' Nombre de caractères dans l'objet.
n%=dll_call2("RichEditGetInformation",hnd%,1)

' Sélectionner tout le texte.
res%=dll_call3("SelectRichEditText",hnd%,1,n%)

' Taille de la police = 20
res%=dll_call3("RichEditFunction",hnd%,6,20)

' Couleur bleue
clr%=(255*256+0)*256+0
res%=dll_call3("RichEditFunction",hnd%,7,clr%)

' Se positionner à la fin du texte.
res%=dll_call3("SelectRichEditText",hnd%,n%,0)
end_sub

Tape n'importe quoi dans le RichEdit, place le curseur dans le texte, et commence à créer des caractères Unicode...

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

Bonjour.

Alors là, je suis bluffé Klaus !

Avec l'usage de la nouvelle fonction, j'ai pû réduire significativement mon code à une seule ligne au lieu de 10, pour afficher un caractère Unicode.

Un grand merci.

» Sélecteur graphique de caractères Unicode avec export
» Gestion de l'Unicode.
» Gestion de l'Unicode
» ADDON pour Unicode
» Caractères Maximum