два дня мучился, не мог понять почему редактор не красит текст, фон красит
сегодня откатился назад 610, 604, 602, 570
в 570 заработало
в моей проге по константам давно исчезла раскраска, сразу не обратил внимания, сейчас её собрал в 570 и всё заработало
вот такая фигня
из примеров
Код:
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)
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
