PureBoard

Code: Alles auswählen

Global oldcombproc, BackBrush
BackBrush = CreateSolidBrush_(#Blue)

Procedure ComboCallBack( hWnd.l, Message.l, wParam.l, lParam.l )

 
  If (Message = #WM_CTLCOLOREDIT) Or (Message = #WM_CTLCOLORLISTBOX)
   
      SetBkMode_(wParam,#TRANSPARENT)
      SetTextColor_(wParam,#Red)
      SetBkColor_(wParam,#Blue)
      Result = BackBrush
  Else
    Result.l = CallWindowProc_(oldcombproc, hWnd, Message, wParam, lParam )
  EndIf
 
  ProcedureReturn Result
 
EndProcedure


OpenWindow( 0, 200,400,200,100, "Colorisation et Callback", #PB_Window_SystemMenu )

CreateGadgetList( WindowID(0) )
ComboBoxGadget( 1, 10, 10, 180, 120, #PB_ComboBox_Editable )

  AddGadgetItem(1, -1, "123" )
  AddGadgetItem(1, -1, "456" )
  AddGadgetItem(1, -1, "789" )
  SetGadgetState(1,0)
 
oldcombproc = SetWindowLong_(GadgetID(1), #GWL_WNDPROC, @ComboCallBack())

Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
End