XP Style für ein Form abschaltbar?

[MaBuSE]

Hallo,

ich habe ein Delphi 7 Programm, in das ich die XPManifest Komponente eingefügt habe.

Dadurch wird die Unit XPMan eingebunden, die die Resourcedatei WindowsXP.res einbindet.

Dadurch ist die Ganze Applikation im neuem WinXP Look.

Gibt es eine Möglichkeit nur ein TForm von dem WinXP Look auszuschließen?
(Alle Controls, Buttons, Panels, ... sollten das alte "nicht XP" Aussehen haben.)

Für eine Antwort bedanke ich mich schon mal im Voraus.

[edit]als offene Frage markiert[/edit]

[Waldteufel]

Hallo.

Ich schätze, nein, denn der XP-Style wird in der Resourcen-Datei festgelegt. Und die gilt für das ganze Programm.

OT: Findest du den XP-Style so schlimm? :wink:

[MaBuSE]

Zitat:

Zitat von Waldteufel

Ich schätze, nein, denn der XP-Style wird in der Resourcen-Datei festgelegt. Und die gilt für das ganze Programm.

Deswegen frage ich ja ;-)

Zitat:

Zitat von Waldteufel

OT: Findest du den XP-Style so schlimm? :wink:

Prinzipiell nein, aber unser AboutDialog, der auch der Splash Screen ist, hat ein von der Firma vorgegebenes Aussehen (Farben, Schriftgröße, ...) nur dieses TForm soll nicht XP gestylt werden.

Im schlimmsten Fall muss ich das Form als TBitmap ablegen und den Text auf das Canvas schreiben.
Das möchte ich aber nach Möglichkeit vermeiden.

ps: Herzlich Willkommen bei der DP :dp:

[Waldteufel]

Zitat:

Zitat von MaBuSE

Im schlimmsten Fall muss ich das Form als TBitmap ablegen und den Text auf das Canvas schreiben. Das möchte ich aber nach Möglichkeit vermeiden.

Ich fürchte, es geht nicht anders. Entweder ganz oder garnicht.

[MaBuSE]

Zitat:

Zitat von Waldteufel

Zitat:

Zitat von MaBuSE

Im schlimmsten Fall muss ich das Form als TBitmap ablegen und den Text auf das Canvas schreiben. Das möchte ich aber nach Möglichkeit vermeiden.

Ich fürchte, es geht nicht anders. Entweder ganz oder garnicht.

Vieleicht kennt ja ein Anderer die Lösung ;-)

Trotzdem Danke für die Antwort.

[Bernhard Geyer]

Zitat:

Zitat von MaBuSE

Gibt es eine Möglichkeit nur ein TForm von dem WinXP Look auszuschließen?

AFAIK nicht bei den mitgelieferten Delphi-Komponenten.
Im ElPack kann für jedes Control das XPTheming Ein- bzw. Ausgeschaltet werden.

[MaBuSE]

Zitat:

Zitat von Bernhard Geyer

Zitat:

Zitat von MaBuSE

Gibt es eine Möglichkeit nur ein TForm von dem WinXP Look auszuschließen?

AFAIK nicht bei den mitgelieferten Delphi-Komponenten.
Im ElPack kann für jedes Control das XPTheming Ein- bzw. Ausgeschaltet werden.

Gibt es irgendwo einen guten (deutschen) Text, in dem man nachlesen kann, wie das eigentlich genau funktioniert. Wie XP anhand der Resource die Controls stylen kann. Evtl kann ich mir ja da eine Idee holen, das auszuschalten.

Wurde zu dem Thema mal was im Entwickler geschrieben?

[Lemmy1]

Deaktivieren von Styles ist relativ einfach. Jedoch muss man das pro Control tun:

Delphi-Quellcode:

SetWindowTheme(Button1.Handle, '', '');

SetWindowTheme ist deklariert in der Unit UxTheme (zumindest in D2005); also das in die Uses rein.

Natürlich kann man sich eine Schleife für alle Controls der Formulars schreiben in der Art:

Delphi-Quellcode:

for i := 0 to ControlCount-1 do begin
  if Controls[i] is TWinControl then begin
    SetWindowTheme((Controls[i] as TWinControl).Handle, '', '');
  end;
end;

Gruß
Lemmy

[MaBuSE]

Zitat:

Zitat von Lemmy1

Deaktivieren von Styles ist relativ einfach. Jedoch muss man das pro Control tun.

Hey, das funktioniert ja :mrgreen:

Danke

ps: Frage als Beantwortet markiert.

[Lemmy1]

Zitat:

Zitat von MaBuSE

Zitat:

Zitat von Lemmy1

Deaktivieren von Styles ist relativ einfach. Jedoch muss man das pro Control tun.

Hey, das funktioniert ja :mrgreen:

Danke

ps: Frage als Beantwortet markiert.

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.