ComboBox ... Farbänderung???

[Xaby]

Scheinbar kann ich weder mit SetGadgetColor () noch mit SetGadgetItemColor ... die Farbe eines ComboBoxGadgets bestimmen. ...

Wie kann ich Vorder und Hintergrundfarbe bei einem ComboBoxGadget ändern?

Gruß, Folker

[Kiffi]

Wie kann ich Vorder und Hintergrundfarbe bei einem ComboBoxGadget ändern?

beispielsweise mit der PureCOLOR-Lib von gnozal:

http://www.purebasic.fr/english/viewtop ... 2477#72477

Grüße ... Kiffi

[Shardik]

Im englischen Forum haben Sparkie und srod zwei Beispiele (für PB 3) veröffentlicht:
http://www.purebasic.fr/english/viewtop ... 26&start=2
http://www.purebasic.fr/english/viewtop ... 26&start=6

[Xaby]

Verstehe ... na ob das mal in einer Version PB V. 4.1 drin sein wird ...

[dysti]

@Xaby, angepasst für PB 4.x

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