есть и другой код с другим гаджетом, даже если сам гаджет создан CreateWindow_()
сталкивался и раньше, только сейчас понял что виноват контейнер
Код:
Global TextGadgetBackground, TextGadgetForeground
TextGadgetBackground = CreateSolidBrush_(22222)
TextGadgetForeground = RGB($FF,$FF,$00)
Procedure WinProc(hWnd,Msg,wParam,lParam)
If Msg = #WM_CTLCOLORSTATIC And lParam = GadgetID(2)
SetBkMode_(wParam,#TRANSPARENT)
SetTextColor_(wParam,TextGadgetForeground)
ProcedureReturn TextGadgetBackground
Else
ProcedureReturn #PB_ProcessPureBasicEvents
EndIf
EndProcedure
OpenWindow(0,0,0,300,222,"TextGadget Color",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
AddKeyboardShortcut(0, #PB_Shortcut_Escape, #ESC)
SetWindowCallback(@WinProc())
; ContainerGadget(5,0,0,250,55,#PB_Container_Flat)
TextGadget(2,5,5,222,33,"This text is colored")
; CloseGadgetList()
ContainerGadget(4,0,65,200,55,#PB_Container_Flat)
TextGadget(3,5,5,222,33,"text")
SetGadgetColor(3,#PB_Gadget_BackColor,3333333)
SetGadgetColor(3,#PB_Gadget_FrontColor,222)
CloseGadgetList()
Repeat
ev=WaitWindowEvent():em=EventMenu()
Select ev
Case #PB_Event_Menu
Select em
Case #ESC:Break; ESC
EndSelect; em
EndSelect; ev
Until ev=#PB_Event_CloseWindow
DeleteObject_(TextGadgetBackground)
