XP Style für ein Form abschaltbar?

[MaBuSE]

Zitat:

Zitat von Lemmy1

Keine Ursache aber noch einen Tip: Test die Anwendung auf mal unter Windows 2000 oder Win98, nicht dass dieser Code dort abschmiert. Habs zwar selbst noch nicht ausprobiert, jedoch sollte man testen können ob es den Stylemanager gibt indem man auf @SetWindowTheme<>nil testet, da diese Unit ihre Funktionen dynamisch lädt.

Was mach ich den bei nicht TWinContols ?

Delphi-Quellcode:

SetWindowTheme((SpeedButton1 as TWinControl).Handle, '', '');

schlägt ja fehl.

Der SpeedButton bekommt aber trotzdem ein XP Style :-(

[Lemmy1]

Zitat:

Zitat von MaBuSE

Zitat:

Zitat von Lemmy1

Keine Ursache aber noch einen Tip: Test die Anwendung auf mal unter Windows 2000 oder Win98, nicht dass dieser Code dort abschmiert. Habs zwar selbst noch nicht ausprobiert, jedoch sollte man testen können ob es den Stylemanager gibt indem man auf @SetWindowTheme<>nil testet, da diese Unit ihre Funktionen dynamisch lädt.

Was mach ich den bei nicht TWinContols ?

Delphi-Quellcode:

SetWindowTheme((SpeedButton1 as TWinControl).Handle, '', '');

schlägt ja fehl.

Der SpeedButton bekommt aber trotzdem ein XP Style :-(

Ich würd mal sagen, versuch doch lieber die FormAlsBitmap Variante :( Das Problem ist das der SpeedButton kein "echtes" Windows-Control ist sondern "nur" ein Delphi Control und daher zeichnet sich der SpeedButton selbst. Das jetzt auch noch zu umgehen wäre wahrscheinlich ein recht hoher Aufwand.

[Lemmy1]

Zitat:

Zitat von Lemmy1

Ich würd mal sagen, versuch doch lieber die FormAlsBitmap Variante :( Das Problem ist das der SpeedButton kein "echtes" Windows-Control ist sondern "nur" ein Delphi Control und daher zeichnet sich der SpeedButton selbst. Das jetzt auch noch zu umgehen wäre wahrscheinlich ein recht hoher Aufwand.

Hrm...also hab mal noch ein Bischen rumgehackt...folgendes geht anscheinend wenn Du es ins FormShow reintust (vorher Unit Themes in die Uses rein):

Delphi-Quellcode:

var
  p: ^Boolean;
begin
  p := @(Themes.ThemeServices.ThemesAvailable);
  p^ := False;
end;

Aber da der Code sowas von gehackt würd ich die Finger von lassen :) Ne im Ernst...was hier passiert ist, dass ThemesAvailable auf False gesetzt wird. Da das aber eine ReadOnly property ist geht das nur mit dem bößen Pointer Umweg. Wenn das Formular geschlossen wird, solltest Du den Wert natürlich wiederherstellen. Use at your own risk :)

[MaBuSE]

Zitat:

Zitat von Lemmy1

Aber da der Code sowas von gehackt würd ich die Finger von lassen :) Ne im Ernst...was hier passiert ist, dass ThemesAvailable auf False gesetzt wird. Da das aber eine ReadOnly property ist geht das nur mit dem bößen Pointer Umweg. Wenn das Formular geschlossen wird, solltest Du den Wert natürlich wiederherstellen. Use at your own risk :)

Vielen Dank ;-)

[cyberdelic]

Hallo Leute,
bei mir funktioniert es bspw. für einen Button, aber nicht für eine Coolbar und auch nicht für eine TListview :(
Weiß hier jemand Rat? Außerdem erhalte ich eine Access Violation wenn ich den Code im OnShow oder OnCreate habe, es funktioniert nur bspw. in einem Buttonereignis.

[cyberdelic]

OK, es scheint für Coolbars zu funktionieren, allerdings zeichnet er dann nur die Coolbands im alten Stil, den Hintergrund der Coolbar kann man nicht dazu bewegen sich altmodisch zu geben :(