Change colours of window

[coco2]

How do you change all the colours of a window? Make a dark mode app? Change the toolbar colour? I can't find any options.

[RASHAD]

For Windows 10,11

Code: Select all

UsePNGImageDecoder()
thBrush = CreateSolidBrush_($0)

Enumeration DWMWINDOWATTRIBUTE
  #DWMWA_USE_IMMERSIVE_DARK_MODE = 20
EndEnumeration

PrototypeC.i DwmSetWindowAttribute(hwnd.i, dwAttribute.l, *pvAttribute, cbAttribute.l)

Define.DwmSetWindowAttribute DwmSetWindowAttribute  
Define.i UseDarkMode

OpenWindow(0, 50, 50, 600, 400, "DarkMode Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered |#PB_Window_SizeGadget)

UseDarkMode = 1

If OpenLibrary(0, "dwmapi")  
  DwmSetWindowAttribute = GetFunction(0, "DwmSetWindowAttribute")  
  DwmSetWindowAttribute(WindowID(0), #DWMWA_USE_IMMERSIVE_DARK_MODE, @UseDarkMode, SizeOf(UseDarkMode))
  CloseLibrary(0)
EndIf

SetWindowColor(0,0)

ContainerGadget(1,0, -2,600,24,#PB_Container_BorderLess) 
CloseGadgetList() 
TB = CreateToolBar(0, GadgetID(1))
LoadImage(0,#PB_Compiler_Home+"Examples\Sources\Data\world.png")
ToolBarImageButton(0,ImageID(0))

 SetClassLongPtr_(GadgetID(1), #GCL_HBRBACKGROUND, thBrush)

While WaitWindowEvent() <> #PB_Event_CloseWindow : Wend

[coco2]

Looks good except can you change the toolbar colour?

Also can it be done on Linux and Mac?

[RASHAD]

For ToolBar Color

Code: Select all

 thBrush = CreateSolidBrush_($0) ;Change $0 to what you want

For Linux & Mac
Ask mk-soft or Shardik

[coco2]

Can you do the menus?

Code: Select all

UsePNGImageDecoder()
thBrush = CreateSolidBrush_($00303030)

Enumeration DWMWINDOWATTRIBUTE
  #DWMWA_USE_IMMERSIVE_DARK_MODE = 20
EndEnumeration

PrototypeC.i DwmSetWindowAttribute(hwnd.i, dwAttribute.l, *pvAttribute, cbAttribute.l)

Define.DwmSetWindowAttribute DwmSetWindowAttribute  
Define.i UseDarkMode

OpenWindow(0, 50, 50, 600, 400, "DarkMode Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered |#PB_Window_SizeGadget)

UseDarkMode = 1

If OpenLibrary(0, "dwmapi")  
  DwmSetWindowAttribute = GetFunction(0, "DwmSetWindowAttribute")  
  DwmSetWindowAttribute(WindowID(0), #DWMWA_USE_IMMERSIVE_DARK_MODE, @UseDarkMode, SizeOf(UseDarkMode))
  CloseLibrary(0)
EndIf

CreateMenu(0, WindowID(0))
MenuTitle("File")
MenuItem(MenuID(0), "Open...")
MenuItem(MenuID(0), "Save As...")
MenuItem(MenuID(0), "Save")
MenuItem(MenuID(0), "Quit")

SetWindowColor(0, $202020)

ContainerGadget(1, 0, -2, 600, 24, #PB_Container_BorderLess) 
CloseGadgetList() 
TB = CreateToolBar(0, GadgetID(1))
LoadImage(0,#PB_Compiler_Home+"Examples\Sources\Data\world.png")
ToolBarImageButton(0,ImageID(0))

SetClassLongPtr_(GadgetID(1), #GCL_HBRBACKGROUND, thBrush)

While WaitWindowEvent() <> #PB_Event_CloseWindow : Wend

[coco2]

For some reason PureBasic also cannot set the background colour of buttons

[Caronte3D]

Maybe you could try this:
https://www.purebasic.fr/english/viewto ... =dark+mode

[coco2]

RASHAD - looks like Linux and Mac do it automatically

Caronte3D - thank you that might do it