PureBasic

Code : Tout sélectionner

SendMessage_ ( GadgetID ( #mon_editeur ), #EM_SETTARGETDEVICE , #Null ,0)

Code : Tout sélectionner

 ; synthese d'Octavius : )
; sur les attributs RTF

;{\colortbl ;\red0\green0\blue255;} ; initie une couleur que l'on apellera par \cfx x etant la position dans la table des couleurs

;{\fonttbl{\f0\fswiss\fprq2\fcharset0 Tahoma;}" , initie une fonte a utiliser dans le text, que l'on appelera a l'aide de \f0
;\i commence l'itallique \i0 fini l'itallique
;\b commence le Bold \b0 fini le bold
;\fs32 commence "fonte size" en corp 32


#mon_editeur =0

fonte1$= "{\fonttbl{\f0\fswiss\fprq2\fcharset0 Tahoma;}" ; désigné par \f0
fonte2$= "{\f1\fswiss\fcharset0 Arial;}}" ; désigné par \f1
table_couleur$= "{\colortbl ;\red0\green0\blue255;\red255\green0\blue0;\red128\green128\blue128;}"
Text$= "texte ecrit normal \i texte en italique \i0 arrete italique \b test en gras et \cf2 rouge \par \cf0 repasse en noir \f1 fonte arial \fs32 grosse taille"
OpenWindow (0, 0, 0, 540, 200, "EditorGadget" , #PB_Window_SystemMenu | #PB_Window_ScreenCentered )
CreateGadgetList ( WindowID (0))
EditorGadget ( #mon_editeur , 10, 10, 520, 180)

;Les chaînes de caractères avant et après le Text$
; permettent de créer un environnement interprétable comme du RTF.
;a l'intérieure de notre chaîne de caractères text$
;se trouveront les balises \b \b0 pour le gras, \i \i0 pour l'italique, etc.
SetGadgetText ( #mon_editeur , "{\rtf1\ansi " +table_couleur$+Text$+ "}" ) ; text mis en forme

Repeat
Until WaitWindowEvent () = #PB_Event_CloseWindow