;Autor: Eckhard.S ;http://www.purebasic.fr/german/viewtopic.php?p=105493#p105493 EnableExplicit Define EventID Procedure SetColor(id, s, e, color) Protected cf.charformat2\cbSize = SizeOf(charformat2) Protected sel.CHARRANGE SendMessage_(GadgetID(id), #EM_EXGETSEL, 0, sel) cf\dwMask = #CFM_COLOR cf\crTextColor = color SendMessage_(GadgetID(id), #EM_SETSEL, s, e) SendMessage_(GadgetID(id), #EM_SETCHARFORMAT, #SCF_SELECTION, @cf) SendMessage_(GadgetID(id), #EM_SETSEL, sel\cpMin, sel\cpMax) EndProcedure If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) EditorGadget(1, 10, 10, WindowWidth(0)-20, WindowHeight(0)-20, 0) SendMessage_(GadgetID(1), #EM_SETTEXTMODE, #TM_RICHTEXT, 0) SetGadgetText(1, "PureBasicPureBasicPureBasicPureBasicPureBasicPureBasic") SetColor(1, 12, 17, $0000FF) SetColor(1, 22, 28, $408000) SetColor(1, 0, 12, $00FF00) Repeat EventID = WaitWindowEvent() If EventID = #PB_Event_CloseWindow End EndIf ForEver EndIf