Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Luna-Design unterbinden (https://www.delphipraxis.net/62471-luna-design-unterbinden.html)

Knotti2005 5. Feb 2006 11:40


Luna-Design unterbinden
 
Liste der Anhänge anzeigen (Anzahl: 2)
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 5. Feb 2006 11:44

Re: Luna-Design unterbinden
 
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 5. Feb 2006 11:46

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

Waldteufel 5. Feb 2006 11:47

Re: Luna-Design unterbinden
 
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 5. Feb 2006 11:48

Re: Luna-Design unterbinden
 
packe in die uses clause deiner .dpr einfach noch die unit XpMan. Danach sieht es unter XP sogar nett aus. ;)

Waldteufel 5. Feb 2006 11:51

Re: Luna-Design unterbinden
 
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 5. Feb 2006 11:54

Re: Luna-Design unterbinden
 
Es war auf clInactiveCaptionText gesetzt und das erscheint in Design Modus Hellblau..

Elvis 5. Feb 2006 12:17

Re: Luna-Design unterbinden
 
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 5. Feb 2006 12:19

Re: Luna-Design unterbinden
 
Einfach mal die Suche benutzen, dan kommt man hier her:

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

:zwinker:

André

Knotti2005 5. Feb 2006 13:03

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

malo 5. Feb 2006 13:05

Re: Luna-Design unterbinden
 
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 5. Feb 2006 13:21

Re: Luna-Design unterbinden
 
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 5. Feb 2006 13:23

Re: Luna-Design unterbinden
 
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 5. Feb 2006 13:42

Re: Luna-Design unterbinden
 
wie mach ich das :gruebel: der code ist ja für control ausgelegt..

SirThornberry 5. Feb 2006 13:46

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

Waldteufel 5. Feb 2006 13:46

Re: Luna-Design unterbinden
 
Hi.

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


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:24 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz