2.40 du 31 mai 2013: nouvelles fonctions pour RichEdit

dim hnd%, RE%, c%, res%, s$

s$="[1] Manges-tu du chocolat ? Oui je mange beaucoup de chocolat."
c%=255*256*256 + 0*256 + 0 : ' couleur bleue

dll_on "kgf.dll"

hnd%=handle(0)

width 0,1000
height 0,800

RE% = dll_call1("RichEditCreate",hnd%)
res% = dll_call5("RichEditGeometry",RE%,100,100,300,200)

res% = dll_call2("RichEditStringLoad",RE%,adr(s$))
res% = dll_call3("SelectRichEditText",RE%,5,6)
res% = dll_call3("RichEditFunction",RE%,7,c%)

dll_off

dim hnd%, RE%, c%, res%, s$

s$="[1] Manges-tu du chocolat ? Oui je mange beaucoup de chocolat."
c%=255*256*256 + 0*256 + 0 : ' couleur bleue

dll_on "kgf.dll"

hnd%=handle(0)

width 0,1000
height 0,800

RE% = dll_call1("RichEditCreate",hnd%)
res% = dll_call5("RichEditGeometry",RE%,100,100,300,200)

res% = dll_call2("RichEditStringLoad",RE%,adr(s$))
res% = dll_call3("SelectRichEditText",RE%,5,6)
res% = dll_call3("RichEditFunction",RE%,7,c%)
res% = dll_call3("SelectRichEditText",RE%,11,0)


end

sortie:
res% = dll_call1("RichEditDelete",RE%)
dll_off

dim RichEdit%, couleur_rouge%, res%, s$, a$, b$

s$="Manges-tu du chocolat ?"
couleur_rouge% = 0*256*256 + 0*256 + 255

dll_on "kgf.dll"

width 0,1000
height 0,800

RichEdit% = dll_call1("RichEditCreate",handle(0))
res% = dll_call5("RichEditGeometry",RichEdit%,100,100,300,200)

a$="Times New Roman"
b$ = dll_call3("RichEditFunction",RichEdit%,5,adr(a$))
res% = dll_call3("RichEditFunction",RichEdit%,6,24)

res% = dll_call2("RichEditStringLoad",RichEdit%,adr(s$))
res% = dll_call3("SelectRichEditText",RichEdit%,1,6)
res% = dll_call3("RichEditFunction",RichEdit%,7,couleur_rouge%)

' Obligatoire: annule le texte sélectionné.
res% = dll_call3("SelectRichEditText",RichEdit%,1,0)

end

sortie:

' Il ne faut pas libérer la DLL avant que la fonction de coloration ait fini son travail !
' Avant de décharger la DLL, il faut ABSOLUMENT supprimer l'objet RichEdit, sinon il y a des problèmes !

res% = dll_call1("RichEditDelete",RichEdit%)
dll_off

dim RichEdit%, chaine$, couleur%, couleur_rouge%, hauteur_police%, kk%, res%, s$, a$, b$, taille%, texte_traduit$

s$="Manges-tu du chocolat ?"
couleur_rouge% = 0*256*256 + 0*256 + 255

dll_on "kgf.dll"

width 0,1000
height 0,800

RichEdit% = dll_call1("RichEditCreate",handle(0))
res% = dll_call5("RichEditGeometry",RichEdit%,100,10,800,300)

res% = dll_call2("RichEditStringLoad",RichEdit%,adr(s$))
res% = dll_call3("SelectRichEditText",RichEdit%,1,6)

hauteur_police%=15

initialiser_police_objet_Rich_Edit(s$)
definir_couleur_objet_RichEdit()

    chaine$="[1] Manges-tu du chocolat ? Oui je mange beaucoup de chocolat."
    chaine$=chaine$+"[2] Buvez-vous du vin (VS) ? Non, je ne bois jamais de vin."
    chaine$=chaine$+"[3] Mangez-vous du chocolat (TP) ? Non, nous ne mangeons pas de chocolat."
    chaine$=chaine$+"[4] Buvez-vous du vin (VP) ? Non, nous ne buvons jamais de vin."
    chaine$=chaine$+"[5] Je ne mange jamais de soupe. Jamais je ne mange de soupe."
    chaine$=chaine$+"[6] Que bois-tu maintenant ? Maintenant, je bois de la bière."
    chaine$=chaine$+"[7] Buvez-vous tout le lait (VS) ? Oui, je bois tout le lait."
    chaine$=chaine$+"[8] Buvez-vous de la bière (TP) ? Non, nous ne buvons pas de bière."
    chaine$=chaine$+"[9] Buvez-vous du lait (VP) ? Non, nous ne buvons jamais de lait."
    chaine$=chaine$+"[10] Je ne bois jamais de bière. Jamais je ne bois de bière."
    chaine$=chaine$+"[11] Tu ne manges rien. Moi je mange beaucoup de chocolat."
    chaine$=chaine$+"[12] Tu ne bois rien. Moi je bois beaucoup de bière."
    chaine$=chaine$+"[13] Vous ne mangez rien (TP) . Nous, nous mangeons beaucoup."

    initialiser_police_objet_Rich_Edit(chaine$)
    definir_couleur_objet_RichEdit()

    taille% = dll_call2("RichEditGetInformation",RichEdit%,1)

    texte_traduit$ = string$(taille%," ")
    res% = dll_call2("RichEditStringSave",RichEdit%,adr(texte_traduit$))

    message texte_traduit$

end

sub initialiser_police_objet_Rich_Edit(param1$)

    res% = dll_call2("RichEditStringLoad",RichEdit%,adr(param1$))

    res% = dll_call3("SelectRichEditText",RichEdit%,1,len(param1$))
    a$="Times New Roman"
    ' Appel de la 5è fonction de RichEditFunction.
    res% = dll_call3("RichEditFunction",RichEdit%,5,adr(a$))
    ' Appel de la 6è fonction de RichEditFunction.
    res% = dll_call3("RichEditFunction",RichEdit%,6,hauteur_police%)

    ' Texte en gras.
    ' Appel de la 1ère fonction de RichEditFunction.
    ' 3è paramètre: 1=gras.
    res% = dll_call3("RichEditFunction",RichEdit%,1,1)

    ' Obligatoire: annule le texte sélectionné.
    res% = dll_call3("SelectRichEditText",RichEdit%,1,0)

end_sub

sub definir_couleur_objet_RichEdit()

    file_open_read 999,"couleur2.dat"

    for kk%=1 to 3
        file_readln 999,a$

        select kk%
              case 1: couleur%=val(a$)
              case 2: couleur%=couleur%+val(a$)*256
              case 3: couleur%=couleur%+val(a$)*256*256
        end_select

    next kk%

    file_close 999

    res% = dll_call3("SelectRichEditText",RichEdit%,1,len(chaine$))
    res% = dll_call3("RichEditFunction",RichEdit%,7,couleur%)
    ' Obligatoire: annule le texte sélectionné.
    res% = dll_call3("SelectRichEditText",RichEdit%,1,0)

end_sub

sortie:

' Il ne faut pas libérer la DLL avant que la fonction de coloration ait fini son travail !
' Avant de décharger la DLL, il faut ABSOLUMENT supprimer l'objet RichEdit, sinon il y a des problèmes !

res% = dll_call1("RichEditDelete",RichEdit%)
dll_off