Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
 | | Sujet: V2.77 du 31/01/2014: ajout GetSelectedRichEditAttributes Ven 31 Jan 2014 - 2:11 | |
| Nouvelle version:
KGF.dll V2.77 du 31/01/2014
Nouveauté:
ajout fonction GetSelectedRichEditAttributes
Modules modifiés:
KGF.dll
KGF_SUB.bas
KGF.chm
KGF.pdf
KGF.doc
La doc et les sources sont à jour.
Cette nouvelle fonction permet de connaître les attributs "nom de police", "couleur de police" et attributs 'Gras", "Italique", "Souligné", "Barré", du texte actuellement sélectionné. | |
|
papydall
Nombre de messages : 7017
Age : 74
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
| | Sujet: Re: V2.77 du 31/01/2014: ajout GetSelectedRichEditAttributes Ven 31 Jan 2014 - 2:22 | |
| ça doit faire plaisir au moins à quelqu’un qui se reconnaitra.  Merci Maître Turbo Klaus !  | |
|
Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Ven 31 Jan 2014 - 22:50 | |
| Voilà ma sub pour un bouton "Bold" d' un RichEdit : - Code:
-
Sub Bold_text()
dim_local txt$,s$,i%,s%
res% = dll_call2("RichEditGetInformation",RE%,4)
if res% =0
if is_bold%=0
is_bold%=1
res% = dll_call3("RichEditFunction",RE%,1,1)
else
is_bold%=0
res% = dll_call3("RichEditFunction",RE%,1,0)
end_if
else
txt$=string$(255," ")
res% = dll_call3("GetSelectedRichEditAttributes",RE%,3,adr(txt$))
txt$=trim$(txt$)
if len(txt$)>2
txt$=mid$(txt$,2,len(txt$)-2)
for i%=1 to len(txt$)
s$=left$(txt$,1):if len(txt$)>1 : txt$=right$(txt$,len(txt$)-1):end_if
if s$="B"
res% = dll_call3("RichEditFunction",RE%,1,0)
s%=1
end_if
next i%
if s%=0 :res% = dll_call3("RichEditFunction",RE%,1,1):end_if
else
res% = dll_call3("RichEditFunction",RE%,1,1)
end_if
end_if
End_sub Pas de sélectionLe bouton active l' attribut "Bold" ou l' inactive à partir de la position du curseur pour le texte à venir. Sélection Si le texte sélectionné est en gras, le clic sur le bouton le transforme en normale. Si le texte sélectionné est normal, le clic sur le bouton le transforme en gras. Attention ! si il y a écriture après le clic, le texte sera en gras si le clic à transformé la sélection en gras et inversement. | |
|
Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Lun 3 Fév 2014 - 18:24 | |
| Il y a un truc....
res% = dll_call2("RichEditGetInformation",RE%,1) ne prend pas en compte les parenthèses comme des caractères.
Ma Procedure() => [Ma Procedure] au lieu de [Ma Procedure()] | |
|
Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: V2.77 du 31/01/2014: ajout GetSelectedRichEditAttributes Lun 3 Fév 2014 - 19:30 | |
| ?????????????? Regarde ce code: - Code:
-
dim RE%, res%, s$
dll_on "KGF.dll"
RE% = dll_call1("RichEditCreate",handle(0))
s$ = "MaProcedure()"
res% = dll_call2("RichEditStringLoad",RE%,adr(s$))
res% = dll_call2("RichEditGetInformation",RE%,1)
message s$+" "+str$(res%)+" "+str$(len(s$))
Où est le problème ? | |
|
Yannick
Nombre de messages : 8635
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010
| | Sujet: re Lun 3 Fév 2014 - 20:56 | |
| J' ai mis à jour mon dossier PPE sur le webdav le "truc" est dans le fichier FCTT / sub Add_Proc(Proc$) Si tu enlève le "+2" à nbc%=res%+2 les parenthèses ne sont pas prises en compte. Edit : Attention! c' est encore loin d' être au point mais ca prend forme...  | |
|
Contenu sponsorisé
| | Sujet: Re: V2.77 du 31/01/2014: ajout GetSelectedRichEditAttributes | |
| |
|
Calendrier