Modifier directement un champ RTF | Sujet: Modifier directement un champ RTF par ramses sur 4/7/2005 14:56:03
Hug,
Je savais pas quoi faire aujourd'hui alors un petit tip pour modifier directement la couleur & autre dans un RTF:
Créer un champ de saisie de type RTF et 1 bouton avec le code suivant:
CHARFORMAT est une structure
cbSize est un entier sans signe
dwMask est un entier
dwEffects est un entier
yHeight est un entier
yOffset est un entier
crTextColor est un entier
bCharSet est un caractère
bPitchAndFamily est un caractère
szFaceName est une chaîne fixe sur 32
FIN
SETTEXTEX est une structure
flags est un entier
codepage est un entier sans signe
FIN
CHARFMT est une CHARFORMAT
SETTEXT est une SETTEXTEX
CHARFMT:cbSize=60
CHARFMT:crTextColor=RVB(255, 32, 0)
CHARFMT:dwMask=OUBinaire(0x20000000,4)
CHARFMT:dwMask=OUBinaire(CHARFMT:dwMask,2)
CHARFMT:dwMask=OUBinaire(CHARFMT:dwMask,0x40000000)
CHARFMT:dwEffects=OUBinaire(4,2)
SETTEXT:flags=2
TheTEXT est une chaîne="Ramses Will Be Back!"+Caract(0)
SendMessage(Handle(Saisie1), 0x400+97, &SETTEXT, &TheTEXT)
SendMessage(Handle(Saisie1), 0xD3, 0x3 , 20+20*Puissance(2,16))
SendMessage(Handle(Saisie1),0x400+68, 4, &CHARFMT)
Yo...
|
|
Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
|