GUI Oberfläche in Win 10

[friedelinde]

Hallo,

die von mir mit dem FormDesigner von PureBasic 3.1 erstellten GUI Oberflächen wurden alle noch unter WinXp erstellt.

Unter Win10 erscheinen diese Oberflächen alle nur noch zweidimensional und die verwendeten Farben werden anders dargestellt. Was muß ich ändern, damit die Oberflächen auch unter Win10 im herkömmlichen "XP-Look" dargestellt werden?

Beispiel:

Code: Alles auswählen

Global Versuch

Global Button_0, String_2


Procedure OpenVersuch(x = 0, y = 0, width = 600, height = 400)
  Versuch = OpenWindow(#PB_Any, x, y, width, height, "", #PB_Window_SystemMenu)
  Button_0 = ButtonGadget(#PB_Any, 126, 187, 100, 25, "Versuch1")
  String_2 = StringGadget(#PB_Any, 126, 137, 100, 25, "Versuch", #PB_String_ReadOnly)
EndProcedure

Procedure Versuch_Events(event)
  Select event
    Case #PB_Event_CloseWindow
      ProcedureReturn #False

    Case #PB_Event_Menu
      Select EventMenu()
      EndSelect

    Case #PB_Event_Gadget
      Select EventGadget()
      EndSelect
  EndSelect
  ProcedureReturn #True
EndProcedure

// Edit : Code-Tags hinzugefügt (Kiffi)

[NicTheQuick]

Ich fürchte du musst mit dem Design von Windows 10 leben, wenn du Windows 10 nutzt. Windows XP gibt's nicht mehr.

[PornosDias vanBoston]

Bei der WinAPI-Lib 1.4.7 von RS-Basic,
findet man unter "Gadgets" "Skin deaktivieren"
"SetWindowTheme_(GadgetID( #Button ),@Null,@Null)"

Damit sehen die Slider und Knöpkes wieder anständig aus.

Danke RS