![]() |
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? |
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 |
Re: Luna-Design unterbinden
Kannst du mir dann wenigstens Sagen wie ich diesem hellblauen Bereich (abstellen) kann. Ich bin mit keiner Veränderung bewusst..
|
Re: Luna-Design unterbinden
Hi.
Zitat:
Ü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: ] |
Re: Luna-Design unterbinden
packe in die uses clause deiner .dpr einfach noch die unit XpMan. Danach sieht es unter XP sogar nett aus. ;)
|
Re: Luna-Design unterbinden
Zitat:
|
Re: Luna-Design unterbinden
Es war auf clInactiveCaptionText gesetzt und das erscheint in Design Modus Hellblau..
|
Re: Luna-Design unterbinden
Zitat:
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. |
Re: Luna-Design unterbinden
Einfach mal die Suche benutzen, dan kommt man hier her:
![]() :zwinker: André |
Re: Luna-Design unterbinden
Mir is das ja eigentlich egal wie das unter Luna aussieht da wo ich arbeite ist alles auf klassisch eingestellt...
|
Re: Luna-Design unterbinden
Zitat:
Verwende doch einfach die richtigen Konstanten, dann passiert so ein Design-Fehler auch nicht. |
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:
Funktioniert zwar für die Komponten aber nicht für die Form...
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; |
Re: Luna-Design unterbinden
Zitat:
|
Re: Luna-Design unterbinden
wie mach ich das :gruebel: der code ist ja für control ausgelegt..
|
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.
|
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