Passwort geschützt

[Green Snake]

Hallo

habe eine frage:
wie ändert man die hintergrund farbe eines fensters auf zb schwarz?
bei mir kommt immer eine fehlermeldung

wie macht ihr das?

[125]

guck dir mal die UserLib PureTools an und die funktion SkinWin
Um Gadgets farblich anzupassen findest codes auf der PureArea

[Leo]

Code: Alles auswählen

hwnd = OpenWindow(0, 0, 0, 250, 260, #PB_Window_SystemMenu|#PB_Window_ScreenCentered , "Fenster") 
If hwnd 
  hBrush = CreateSolidBrush_(RGB(255, 255, 255)) ;Hier Farbe festlegen
  SetClassLong_(hwnd, #GCL_HBRBACKGROUND, hBrush) 
  InvalidateRect_(hwnd, #Null, #True) 
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
  DeleteObject_(hBrush) 
EndIf 
End