Ermitteln ob im Manifest "Themes" aktiviert wurde?

[KodeZwerg]

Delphi-Quellcode:

function kzTheme.GetDarkLightSupport: Boolean;
const
  ComCtlVersionIE6 = $00060000;
begin
  Result := (not (GetFileVersion(comctl32) >= ComCtlVersionIE6));
end;

So nutze ich es gerade, als property getter in class. Bei meinen jetzigen tests funktioniert es super. (so brauch ich weder Dialogs noch ComCtrls einbinden)

 property SupportDarkLight: Boolean read GetDarkLightSupport; aber nun entstehen an ganz anderer stelle neue spannende dinge hehehe (dwm arbeitet dann anders...)

Danke für Deinen Beitrag @Uwe!

Ich werde es nun auch so anpassen das der Wert nur einmal abgefragt wird (cached), das war nochmal ein guter tipp!!

[venice2]

Zitat:

dwm arbeitet dann anders

Sorry aber es arbeitet mit deiner Anwendung gar nicht!
Da wirst du wohl noch einiges tun müssen.

Zudem hat es nichts mit DWM zu tun.. oder verwendest du irgendwelchen Code der auf die dwmapi.dll verweist? Nein!
Was du hier verwendest ist der Composition Mode (SetWindowCompositionAttribute User32.dll) mit der du die entsprechenden Attribute Blur oder Transparenz setzen kannst.

Zitat:

dwm10 := LoadLibrary(user32);

dwm10 := 'fails';

[KodeZwerg]

Zitat von venice2:

Zitat:

dwm arbeitet dann anders

Da wirst du wohl noch einiges tun müssen.
dwm10 := 'fails';

Wenn Du helfen könntest das es ordentlicher funktioniert, hier ist ein Link zum Projekt.
Was ich erreichen wollte mit dieser SetWindowCompositionAttribute methode ist halt das der Hintergrund entsprechend einer Auswahl (Transparent/Blur) gesetzt wird.

Danke für Deinen Input!

[venice2]

Zitat:

das der Hintergrund entsprechend einer Auswahl (Transparent/Blur) gesetzt wird.

Nur mit seltsamen Effekten. Video.

Zitat:

Wenn Du helfen könntest das es ordentlicher funktioniert

Ich möchte mich da nicht mit einbringen dir aber mittteilen das etwas nicht in Ordnung ist.

[KodeZwerg]

Ich habe mir Dein Video angeschaut und gebe Dir mehr als Recht das da noch vieles unstimmig ist. (Ich nehme an es war mit Manifest Themes aktiviert kompiliert?) (gesehn, ist ohne)
(Du kannst das Video/den Link wieder freigeben/sperren, Danke!)
Herausfinden wie man es besser macht ist mein Anliegen, ich werde mich bemühen Informationen zu erhaschen wie man es richtig anwenden sollte.
Danke für Dein Feedback!

Bin dann mal wieder auf der Suche, diese Topic ist beendet

[himitsu]

Warum LoadLibrary?
Wenn das, dann darf man auch ein FreeLibrary nicht vergessen.

User32.dll sollte aber eh immer geladen sein,
somit reicht ein GetModuleHandle.

[venice2]

Zitat:

Warum LoadLibrary?

na ja das ist schon stimmig. Das tut er doch!
FreeLibrary(dwm10); (Die Namensgebung ist aber falsch weil es nichts mit DWM zu tun hat)

Aber gehört zu einem anderen Thema..

[KodeZwerg]

Zitat von himitsu:

Warum LoadLibrary?
Wenn das, dann darf man auch ein FreeLibrary nicht vergessen.

User32.dll sollte aber eh immer geladen sein,
somit reicht ein GetModuleHandle.

Zitat von venice2:

Zitat:

Warum LoadLibrary?

na ja das ist schon stimmig. Das tut er doch!
FreeLibrary(dwm10); (Die Namensgebung ist aber falsch weil es nichts mit DWM zu tun hat)

Aber gehört zu einem anderen Thema..

Nur der Vollständigkeit halber hier der Code den Emil anspricht:

Delphi-Quellcode:

procedure kzTheme.SetDwmMode(const AMode: ShortInt);
const
  WCA_ACCENT_POLICY = 19;
  ACCENT_DISABLE = 0;
  ACCENT_ENABLE_GRADIENT = 1;
  ACCENT_ENABLE_TRANSPARENT = 2;
  ACCENT_ENABLE_BLURBEHIND = 3;
  GRADIENT_COLOR = $01000000;
  DrawLeftBorder = $20;
  DrawTopBorder = $40;
  DrawRightBorder = $80;
  DrawBottomBorder = $100;
var
  dwm10: THandle;
  data: TWinCompAttrData;
  accent: AccentPolicy;
begin
  if (not ((AMode = 0) or (AMode = 2) or (AMode = 3))) then
    Exit;
  dwm10 := LoadLibrary(user32);
  try
    @SetWindowCompositionAttribute :=
      GetProcAddress(dwm10, 'SetWindowCompositionAttribute');
    if @SetWindowCompositionAttribute <> nil then
    begin
      accent.AccentState := AMode;
      accent.AccentFlags := DrawLeftBorder or DrawTopBorder or
        DrawRightBorder or DrawBottomBorder;
      if ((FStyleTheme = ThemeSystem) or (FStyleTheme = ThemeWallpaper)) then
        accent.GradientColor := FColorBackground;
      data.attribute := WCA_ACCENT_POLICY;
      data.dataSize := SizeOf(accent);
      data.pData := @accent;
      SetWindowCompositionAttribute(FForm.Handle, data);
    end;
  finally
    FreeLibrary(dwm10);
  end;
end;