Luna-Design unterbinden

[Knotti2005]

Folgendes Problem...

Wenn ich mein Programm unter XP im klassischen Modus ausführe sieht es okay aus (grau halt)..
(bin nicht so für Luna, finde Stil von 2k, 98 schöner)..

(Bild 1)

Wenn nun das Programm mit Luna gestartet wird erscheinen einige Fenster hellblau..

(Bild 2)

Kann man Luna unterbinden ob wohl es aktiviert ist?

[alcaeus]

Moin,

selbst wenn es die Moeglichkeit gaebe, ich waere darueber sehr sauer. IMO sollte das Ziel eines Anwendungsentwicklers sein, den Anwender entscheiden zu lassen, wie die Anwendung auszusehn hat. Ob dies durch Themes, oder einfach nur Beruecksichtigung des Windows-Styles geschieht ist egal, aber ich z.B. finde es alles andere als lustig, wenn mir eine Anwendung noch den alten Win2k-Look aufzwingt.
Ich wuerde meine Zeit einfach mit dem Anpassen meiner Anwendung verbringen, anstatt darueber nachzudenken, wie du Luna nur fuer deine Anwendung deaktivierst.

Greetz
alcaeus

[Knotti2005]

Kannst du mir dann wenigstens Sagen wie ich diesem hellblauen Bereich (abstellen) kann. Ich bin mit keiner Veränderung bewusst..

[Waldteufel]

Hi.

Zitat:

Zitat von Knotti2005

Kann man Luna unterbinden ob wohl es aktiviert ist?

Soweit ich weiß, nicht!

Überprüfe doch mal, ob die Farbe des Was-Weiß-Ich-Was-Für-Ein-Control-Das-Ist-Dingens auch wirklich auf clBtnFace gesetzt ist.

[edit: Wo zum (Wald-)Teufel war der rote Kasten!? :gruebel: ]

[edit: Die Farbe hieß clBtnFace :wall: ]

[Elvis]

packe in die uses clause deiner .dpr einfach noch die unit XpMan. Danach sieht es unter XP sogar nett aus. ;)

[Waldteufel]

Zitat:

Zitat von Elvis

packe in die uses clause deiner .dpr einfach noch die unit XpMan. Danach sieht es unter XP sogar nett aus. ;)

Er will doch gar nicht das XP-Design in seinem Programm. Er will doch nur diese Box Grau statt Hellblau haben. :roll:

[Knotti2005]

Es war auf clInactiveCaptionText gesetzt und das erscheint in Design Modus Hellblau..

[Elvis]

Zitat:

Zitat von Waldteufel

Zitat:

Zitat von Elvis

packe in die uses clause deiner .dpr einfach noch die unit XpMan. Danach sieht es unter XP sogar nett aus. ;)

Er will doch gar nicht das XP-Design in seinem Programm. Er will doch nur diese Box Grau statt Hellblau haben. :roll:

Das war mir klar.
Es war mir auch klar, dass er irgendeine Farbkonstante genommen hat, die unter Luna anders aussieht. (inactive caption war aber echt ein Knaller :thuimb: )
Ich wollte nur sagen, dass ein manifest die App unter Luna luna-mäßig aussehen lassen würde.

[MagicAndre1981]

Einfach mal die Suche benutzen, dan kommt man hier her:

http://www.delphipraxis.net/internal...515&highlight=

:zwinker:

André

[Knotti2005]

Mir is das ja eigentlich egal wie das unter Luna aussieht da wo ich arbeite ist alles auf klassisch eingestellt...

[malo]

Zitat:

Zitat von Knotti2005

Mir is das ja eigentlich egal wie das unter Luna aussieht

Wenn das wirklich so wäre, hättest du den Thread nicht aufgemacht.

Verwende doch einfach die richtigen Konstanten, dann passiert so ein Design-Fehler auch nicht.

[Knotti2005]

Das war die klassische AboutBox (C:\Programme\Borland\Delphi7\Objrepos\about.pas) da hab ich nichts geändert....

Der Code

Delphi-Quellcode:

uses

..., UxTheme;

procedure TForm1.FormCreate(Sender: TObject);
var

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

Funktioniert zwar für die Komponten aber nicht für die Form...

[Elvis]

Zitat:

Zitat von Knotti2005

funktioniert zwar für die Komponten aber nicht für die Form...

Weil du es nur für die Controls ausführst? :gruebel:

[Knotti2005]

wie mach ich das :gruebel: der code ist ja für control ausgelegt..

[SirThornberry]

Versuch doch einfach mal den Source zu verstehen (und/oder schau in die Hilfe), dann dürfte sich die Frage erledigt haben.

[Waldteufel]

Hi.

Darf man fragen, warum du die Panel-Farbe nicht einfach auf clBtnFace änderst, anstatt mit den verschiedenen Windows-Themes zu jonglieren?