; German forum: http://www.purebasic.fr/german/archive/viewtopic.php?t=973&highlight= ; Author: Feri (updated for PB4.00 by blbltheworm) ; Date: 11. May 2003 ; OS: Windows ; Demo: No ;****************************************************************************** ;* Beispiel zum Einfärben von Gadgets * ;****************************************************************************** ; Global HintergrundFarbe1 Global HintergrundFarbe2 HintergrundFarbe1=CreateSolidBrush_(RGB(0,0,0)) ; schwarz HintergrundFarbe2=CreateSolidBrush_(RGB(255,255,255)) ; weiß ; Procedure COL_STRINGGADGET(WindowID,Message,wParam,lParam) ;:::::FÄRBT STRINGGADGET UM::::: Result=#PB_ProcessPureBasicEvents Select Message Case #WM_CTLCOLOREDIT ; ::: #WM_CTLCOLOREDIT funktioniert für alle SkinGadget und StringGadget ::: Select lParam Case GadgetID(1) ; hier die Gadget-Nummer angegeben SetBkMode_(wParam,#TRANSPARENT) SetTextColor_(wParam,RGB(0,255,0)) ; Schriftfarbe (grün) Result=HintergrundFarbe1 ; Hintergrundfarbe (schwarz) EndSelect Case #WM_CTLCOLORSTATIC ; ::: #WM_CTLCOLORSTATIC funktionert für alle Frame3DGadget, OptionGadget, ::: ; ::: TextGadget und TrackBarGadget ::: Select lParam Case GadgetID(2) ; das ist die GadgetID für das TextGadget(2,...) SetBkMode_(wParam,#TRANSPARENT) SetTextColor_(wParam,RGB(0,0,0)) ; Schriftfarbe (schwarz) Result=HintergrundFarbe2 ; Hintergrundfarbe (weiß) Case GadgetID(3) ; das ist die GadgetID für das TextGadget(3,...) SetBkMode_(wParam,#TRANSPARENT) SetTextColor_(wParam,RGB(255,0,0)) ; Schriftfarbe (rot) Result=HintergrundFarbe2 ; Hintergrundfarbe (schwarz) EndSelect ; Case #WM_CTLCOLORLISTBOX ; ::: #WM_CTLCOLORLISTBOX funktioniert für alle ListBoxGadget ::: EndSelect ProcedureReturn Result EndProcedure ; OpenWindow(0,100,300,400,200,"Testfenster",#PB_Window_SystemMenu) SetWindowCallback(@COL_STRINGGADGET()) ; CreateGadgetList(WindowID(0)) StringGadget(1,10,10,90,20,"StringGadget") TextGadget(2,10,40,300,100,"TextGadget 2",#PB_Text_Border) TextGadget(3,10,160,300,30,"TextGadget 3",#PB_Text_Center) ; Repeat Until WaitWindowEvent() = #PB_Event_CloseWindow DeleteObject_(HintergrundFarbe1) DeleteObject_(HintergrundFarbe2) End ; IDE Options = PureBasic v4.00 (Windows - x86) ; Folding = -