AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi [NonVCL] Hintergundfarbe des TabSheets mit XP-Styles

[NonVCL] Hintergundfarbe des TabSheets mit XP-Styles

Ein Thema von Daniel Schuhmann · begonnen am 20. Sep 2006 · letzter Beitrag vom 8. Jun 2007
Antwort Antwort
Seite 1 von 3  1 23   
Benutzerbild von Daniel Schuhmann
Daniel Schuhmann

Registriert seit: 16. Jul 2005
Ort: München
391 Beiträge
 
Turbo Delphi für Win32
 
#1

[NonVCL] Hintergundfarbe des TabSheets mit XP-Styles

  Alt 20. Sep 2006, 15:52
Servus Leute,

ich hätt gern mal wieder ein Problem.

Gestern habe ich mal angefangen, ein paar Tabsheets in mein NonVCL-Wunderprojekt einzufügen. Aus irgendeinem unerfindlichen Grund musste einer meiner Beta-Tester die visuellen Styles unter XP aktiviert haben, um mich hinterher auf einen Bug aufmerksam machen zu können.

Das Problem ist recht einfach erklärt, doch ein Bild sagt mehr als 1000 Worte, also öffnet einfach mal den Screenshot ganz unten.

Meine Fragen dazu:
  • Wie kriege ich es hin, beim Laden einer Dialogressource einen Brush anzugeben?
  • Wie kriege ich die gewünschte Zeichenfarbe für den Tabsheet-Innenraum heraus?
Oder ganz konkret: Wie schaffe ich es, das vernünftig aussehen zu lassen?

Auf Codevorlagen verzichte ich einfach mal, wer NonVCL programmiert, hat sicher auch Luckies Tutorial auf dem Rechner. Ein Beispiel findet sich unter Samples\CommonC\Tabsheets (Der Fehler tritt im Tutorial von Luckie auch auf, so man das Manifest einbindet).

Viele Grüße,
Daniel
Miniaturansicht angehängter Grafiken
tabsheet_error_windows_xp_997.png  
Daniel Schuhmann
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.026 Beiträge
 
Delphi 12 Athens
 
#2

Re: [NonVCL] Hintergundfarbe des TabSheets mit XP-Styles

  Alt 20. Sep 2006, 16:05
mit 'nen XP-Manifest werden die Farbdefinitionen übergangen und die Farben des Systems (des dort aktivierten Manifestes) verwendet.

Und da sind nunmal die farben so definiert -.-''

Ist übrigens nicht nur beim TabSheed so, eigentlich alles hat dieses Problem.


Es gibt auch shcon einige Themen hier in der DP dazu. (als Letztes war mal wieder das Edit dran)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
MathiasSimmack
(Gast)

n/a Beiträge
 
#3

Re: [NonVCL] Hintergundfarbe des TabSheets mit XP-Styles

  Alt 20. Sep 2006, 16:22
Das stimmt zwar, beantwortet aber nicht Daniels Frage. Immerhin hat Microsoft auch eine Lösung gefunden, wenn ich mir bspw. das Internetoptionen-Modul in der Systemsteuerung anschaue.
  Mit Zitat antworten Zitat
Elvis

Registriert seit: 25. Nov 2005
Ort: München
1.909 Beiträge
 
Delphi 2010 Professional
 
#4

Re: [NonVCL] Hintergundfarbe des TabSheets mit XP-Styles

  Alt 20. Sep 2006, 16:26
Zitat von MathiasSimmack:
Das stimmt zwar, beantwortet aber nicht Daniels Frage. Immerhin hat Microsoft auch eine Lösung gefunden, wenn ich mir bspw. das Internetoptionen-Modul in der Systemsteuerung anschaue.
Schaue mal was in der VCL bei Parentbackground an das Fenster geschickt wird. Denn ParentBackground in der VCL bei einem Panel zu ändern sollte bewirken, dass es mit dem Hintergrund des TabSheets gezeichnet wird.
Robert Giesecke
I’m a great believer in “Occam’s Razor,” the principle which says:
“If you say something complicated, I’ll slit your throat.”
  Mit Zitat antworten Zitat
Benutzerbild von Daniel Schuhmann
Daniel Schuhmann

Registriert seit: 16. Jul 2005
Ort: München
391 Beiträge
 
Turbo Delphi für Win32
 
#5

Re: [NonVCL] Hintergundfarbe des TabSheets mit XP-Styles

  Alt 20. Sep 2006, 16:29
Für per API erstellte Fenster gibt es ja eine Lösung, die steht ja in den NonVCL-Tutorials drin.

Zitat:
Wie Ihnen das Bild links zeigt, wird unter Windows XP der Fensterhintergrund evtl. zu dunkel dargestellt. Das liegt an der Verwendung von COLOR_APPWORKSPACE (wie eingangs gezeigt) bei aktiven Themes. Als Abhilfe sollten Sie mit der Funktion "GetSysColorBrush" die Farbe für 3D-Elemente laden und benutzen:

wc.hbrBackground := GetSysColorBrush(COLOR_3DFACE);
Doch wenn ich den Dialog-Manager nutze, habe ich keine Fensterklasse. Somit kann ich die Zuweisung nicht anwenden. Daher frage ich mich, auf welchem anderen Weg ich das zuweisen kann (WM_INITDIALOG?). Zusätzlich bringt mir COLOR_3DFACE nichts, denn innerhalb eines Tabsheets habe ich ja andere Farbvorgaben als im "normalen" Dialog.
Daniel Schuhmann
  Mit Zitat antworten Zitat
MathiasSimmack
(Gast)

n/a Beiträge
 
#6

Re: [NonVCL] Hintergundfarbe des TabSheets mit XP-Styles

  Alt 20. Sep 2006, 16:31
Ich habe es nicht getestet, Daniel, aber rein farbmäßig tippe ich auf COLOR_WINDOW.
  Mit Zitat antworten Zitat
MathiasSimmack
(Gast)

n/a Beiträge
 
#7

Re: [NonVCL] Hintergundfarbe des TabSheets mit XP-Styles

  Alt 20. Sep 2006, 16:56
Okay, das war jetzt spaßig, aber wir nähern uns der Lösung. Ich habe das besagte Sample aus den Tutorials aufhellen können. Es ist noch nicht perfekt.
Delphi-Quellcode:
function EnableThemeDialogTexture(wnd: HWND; dwFlags: dword):
  HRESULT; stdcall; external 'uxtheme.dll';


// in WM_INITDIALOG:
        for i := 0 to length(hTabDlgs) - 1 do
        begin
          hTabDlgs[i] := CreateDialog(hInstance, MAKEINTRESOURCE((i + 2) * 100),
            hDlg, @tabdlgfunc);
          EnableThemeDialogTexture(hTabDlgs[i], 6);
        end;
Die 6 steht für
Code:
#define ETDT_DISABLE                   0x00000001
#define ETDT_ENABLE                    0x00000002
#define ETDT_USETABTEXTURE             0x00000004
#define ETDT_USEAEROWIZARDTABTEXTURE   0x00000008

#define ETDT_ENABLETAB             (ETDT_ENABLE | \
                                     ETDT_USETABTEXTURE)
Seht es mir bitte nach. Mit nur einer Hand ist das blöd.

Jetzt ist das Innere des Tabs etwas zu hell, aber immerhin.
  Mit Zitat antworten Zitat
Benutzerbild von Daniel Schuhmann
Daniel Schuhmann

Registriert seit: 16. Jul 2005
Ort: München
391 Beiträge
 
Turbo Delphi für Win32
 
#8

Re: [NonVCL] Hintergundfarbe des TabSheets mit XP-Styles

  Alt 20. Sep 2006, 17:16
Wow, das ist ja ein gewaltiger Schritt in die richtige Richtung

Stimmt, bissel zu hell isses, aber sonst funktoniert es richtig, mit und ohne Themes (Nur mit aktivierten Themes und ohne Manifest schaut's komisch aus, aber das macht ja keiner).

uxtheme.dll dürfte erst seit XP dabei sein, oder? -> Sprich dynamische Einbindung wäre wohl von Vorteil.
Daniel Schuhmann
  Mit Zitat antworten Zitat
Benutzerbild von Daniel Schuhmann
Daniel Schuhmann

Registriert seit: 16. Jul 2005
Ort: München
391 Beiträge
 
Turbo Delphi für Win32
 
#9

Re: [NonVCL] Hintergundfarbe des TabSheets mit XP-Styles

  Alt 20. Sep 2006, 17:29
Liegt es vielleicht nur daran, dass der Dialog des Tabsheets in der Demo in der Mitte liegt? (Hoffe irgendjemand hat meinen in-der-in-der-Satz verstanden...)

Jedenfalls schaut es in meinem Programm ganz und gar nicht falsch aus, auch der Pipettenvergleich mit beliebigen Windows-Tabsheets sagt, dass es die richtige Farbe ist.

Ich würde sagen: Wir haben fertig.
Miniaturansicht angehängter Grafiken
tabsheet_noerror_windows_xp_390.png  
Daniel Schuhmann
  Mit Zitat antworten Zitat
MathiasSimmack
(Gast)

n/a Beiträge
 
#10

Re: [NonVCL] Hintergundfarbe des TabSheets mit XP-Styles

  Alt 20. Sep 2006, 17:36
Zitat von Daniel Schuhmann:
uxtheme.dll dürfte erst seit XP dabei sein, oder? -> Sprich dynamische Einbindung wäre wohl von Vorteil.
Yo.

Zitat:
Ich würde sagen: Wir haben fertig.
Micha, aufschreiben!
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 3  1 23   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:51 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz