XP-Skin an/aus abfrage

[MLK]

nicht ernsthaft, obwohl es wahrscheinlich sogar klappt

Code: Alles auswählen

Procedure IsThemeXP()
  If GetSystemMetrics_(#SM_CXVSCROLL) > 16
    ProcedureReturn #True
  EndIf
EndProcedure

[ts-soft]

Aber nicht bei jedem Theme, aber bei den mitgelieferten von MS sollte das Funzen

[Programie]

nicht ernsthaft, obwohl es wahrscheinlich sogar klappt

Code: Alles auswählen

Procedure IsThemeXP()
  If GetSystemMetrics_(#SM_CXVSCROLL) > 16
    ProcedureReturn #True
  EndIf
EndProcedure

Gibt bei mir IMMER #True !

[Josh]

Muss mich hier noch mal als Leichenschänder betätigen. Bis jetzt dachte ich, dass ich mit GetWindowTheme_(GadgetID(x)) ein brauchbares Ergebnis bekomme. Leider ist das aus einem für mich nicht nachvollziehbaren Grund nicht immer so, wie sich aus folgendem Beispiel ersehen lässt:

Code: Alles auswählen

  If OpenWindow(0, 0, 0, 322, 205, "StringGadget Flags", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

    StringGadget(0, 8,  10, 306, 20, "Normal StringGadget...")
    Debug GetWindowTheme_(GadgetID(0))

    StringGadget(6, 8, 170, 306, 20, "Password", #PB_String_Password)
    Debug GetWindowTheme_(GadgetID(6))

    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

  EndIf

Jetzt verwende ich folgenden Code, wobei ich hoffe, dass sich da nicht auch wieder irgendein Hacken ergibt:

Code: Alles auswählen

Procedure.i IsAppThemed()

  If FindResource_(0, 1, #RT_MANIFEST)
    If IsThemeActive_()
      ProcedureReturn #True
    EndIf
  EndIf

EndProcedure

Debug IsAppThemed()

Evtl. muss noch eine Abfrage für Win8 eingebaut werden, da dort anscheinend Themes generell aktiviert sind. Habe ich aber noch nicht geprüft.

[ts-soft]

Jetzt verwende ich folgenden Code, wobei ich hoffe, dass sich da nicht auch wieder irgendein Hacken ergibt:.

Die Tatsache, das eine Manifest vorhanden ist, sagt nichts über Ihren Inhalt, muß ja nicht
automatisch für XP-Style sein

Ich wüßte jetzt aber beim besten willen nicht, wofür so eine Abfrage gut sein sollte. Eine
XP-Style Manifest sollte jede Executable haben, ansonsten ist das Programm uralt oder der
Programmierer nimmt auf die Wünsche der Anwender keinerlei Rücksicht.
Abschalten kann jeder den Style, aber hinzufügen ist für den Normaluser nicht möglich.