(tu as le droit de cliquer sur le "ici")RGB(Rouge, Vert, Bleu)
Renvoie la valeur de la couleur 24 bits correspondant aux valeurs Rouge, Vert et Bleu. Chaque composante 'Rouge', 'Verte', 'Bleue' est une valeur comprise entre 0 et 255, ce qui fait un nombre total de 16.7 millions de couleurs différentes.
Pour extraire la valeur d'une des composantes 'Rouge', 'Verte' ou 'Bleue' (...) utilisez les commandes suivantes Red(), Green() et Blue().
Un tableau représentant les couleurs les plus communes est disponible ici.
Code : Tout sélectionner
Enumeration
#Window_0
EndEnumeration
Enumeration
#Text_0
#Text_1
#Text_2
EndEnumeration
Procedure OpenWindow_Window_0()
If OpenWindow(#Window_0, 610, 90, 389, 163, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
TextGadget(#Text_0, 5, 10, 215, 25, "RGB(255,0,0)")
TextGadget(#Text_1, 5, 40, 215, 25, "RGB($FF,$0,$0)")
TextGadget(#Text_2, 5, 70, 215, 25, "$0000FF")
SetGadgetColor(#Text_0,#PB_Gadget_FrontColor,RGB(255,0,0))
SetGadgetColor(#Text_1,#PB_Gadget_FrontColor,RGB($FF,$0,$0))
SetGadgetColor(#Text_2,#PB_Gadget_FrontColor,$0000FF)
EndIf
EndProcedure
OpenWindow_Window_0()
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Select EventWindow()
Case #Window_0
CloseWindow(#Window_0)
Break
EndSelect
EndSelect
ForEver
il me semble que sur ce forum Dobro avait fait un super tuto pour le rtf... faut chercher un peu ..Ar-S a écrit :Si tu ne cherches qu'à colorer du texte dans l'editeur il y a le RTF qui le fait bien. Cette discussion a déjà eu lieu à maintes reprises.
Code : Tout sélectionner
;l'entete rtf :
entete_rtf.s = "{\rtf1\ansi\deff0{\fonttbl{\f0\froman Tms Rmn;}{\f1\fdecor Symbol;}{\f2\fswiss Helv;}}"
couleur_table.s="{\colortbl;\red0\green0\blue0;\red0\green0\blue255;\red0\green255\blue255;\red0\green255\ blue0;\red255\green0\blue255;\red255\green0\blue0;\red255\ green255\blue0;\red255\green255\blue255;} {\stylesheet{\fs20 \snext0Normal;}}"
a_la_ligne$="\par" ; balise pour écrire sur une nouvelle ligne
rtf.s=entete_rtf.s+couleur_table.s
rtf+Space(45)+"\b Titre en Gras \b0"+a_la_ligne$+a_la_ligne$
rtf+"\b j'ecris en Gras \b0"+a_la_ligne$ ; la balise '\b' (bold) va faire ecrire en gras
rtf+"\cf1 j'ecris en noir"+a_la_ligne$ ; la balise '\cf1' fait appel a la Premiere couleur defini dans la table
rtf+"\cf2 j'ecris en bleu"+a_la_ligne$ ; la balise '\cf2' fait appel a la 2em couleur defini dans la table
rtf+"\cf3 j'ecris en bleu clair"+a_la_ligne$ ; la balise '\cf3' fait appel a la 3em couleur defini dans la table
rtf+"\cf4 j'ecris en vert"+a_la_ligne$ ; la balise '\cf4' fait appel a la 4em couleur defini dans la table
rtf+"\cf5 j'ecris en Magenta"+a_la_ligne$ ; la balise '\cf5' fait appel a la 5em couleur defini dans la table
rtf+"\f1 \cf6 j'ecris en Rouge avec la fonte 1"+a_la_ligne$ ; la balise '\cf6' fait appel a la 6em couleur defini dans la table
OpenWindow(0, 0, 0, 540, 200, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
EditorGadget(0, 10, 10, 520, 180)
SetGadgetText(0, rtf)
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow