PureBasic Forums - English

Code: Select all

SendMessage_(RichControlhWnd, #EM_SETBKGNDCOLOR, 0, BGR value) ;

Code: Select all

#RICHEDIT = #WS_CHILD|#WS_VISIBLE|#WS_VSCROLL|#ES_MULTILINE|#ES_AUTOVSCROLL|#ES_NOHIDESEL
#SCF_ALL = 4
#SCF_SELECTION = $0001
#SCF_WORD = $0002
#WINDOW_PARAMETERS = #PB_Window_SystemMenu|#PB_Window_MinimizeGadget
If OpenWindow(0, #CW_USEDEFAULT, #CW_USEDEFAULT, #CW_USEDEFAULT, #CW_USEDEFAULT, #WINDOW_PARAMETERS, "RichEdit example")
  If LoadLibrary_("RICHED20.DLL")
    RichClass.s = "RichEdit20A"
  Else
    If LoadLibrary_("RICHED32.DLL")
      RichClass.s = "RichEdit"
    Else
      MessageRequester("Error", "RichEdit Windows library not present.", 0)
      End
    EndIf
  EndIf
  hWnd = CreateWindowEx_(#WS_EX_CLIENTEDGE, RichClass, "This will desappear with SetWindowText.", #RICHEDIT, 0, 0, WindowWidth(), WindowHeight(), WindowID(), 0, GetModuleHandle_(0), 0)
  If hWnd
    ShowWindow_(hWnd, #SW_HIDE) ; hide our changes to the user
    SetWindowText_(hWnd, "Hi everybody!")
    BGR = 0
    SendMessage_(hWnd, #EM_SETBKGNDCOLOR, 0, BGR) ; BGR value = black
    cf.CHARFORMAT
    cf\cbSize = SizeOf(CHARFORMAT)
    Red = 0
    Green = 255
    Blue = 0
    BGR = (Blue*65536)|(Green*256)|Red
    cf\crTextColor = BGR ; BGR value = green
    FontFace.s = "Courier New"
    For t = 0 To Len(FontFace)
      cf\szFaceName[t] = Asc(Mid(FontFace, t+1, 1))
    Next t
    cf\dwMask =#CFM_COLOR|#CFM_FACE
    SendMessage_(hWnd, #EM_SETCHARFORMAT, #SCF_ALL, @cf)
    ShowWindow_(hWnd, #SW_SHOW) ; now show
    SetForegroundWindow_(WindowID())
    Repeat  
      EventID = WaitWindowEvent()
    Until EventID = #PB_EventCloseWindow
  Else
    MessageRequester("Error", "Could not create the RichEdit control.", 0)
    End
  EndIf
Else 
  MessageRequester("Error", "Could not create the main window.", 0)
EndIf
End