Ich habe mir einen XP - SpeedButton Programmiert. Dieser sieht auch unter zB. Win2K XP-mässig aus, ich würde aber gerne wenn das Control auf einen WindowsXP - System läuft das so haben, das wenn auf dem XP - Rechner das Design geändert wird, das dann mein Control ebenfalls in den neuen Farben erstrahlt.

Gibts da Systemconstanten für diese Farben also sowas wie "clActiveBorder" (clActiveBorder stellt leider den Rahmen nur grau dar). Gibts da eine Farbconstante für Border des SpeedButton, die Color für MouseOver und MouseDown und Exclusive?

Danke für eure Hilfe

Mfg Matthias

Also, die Übersetzungen für die Systemfarben von Delphi bin ich grad am machen. Die könnt ich dir morgen geben
Aber für OnMouseDown und so weiß ich auch nix.

Die Themes-Farben können über die Funktion GetThemeSysColor aus der System-DLL uxtheme.dll abgefragt werden.
Dazu werden die COLOR_*-Konstanten aus der Windows.pas verwendet.

Warum willst Du XP-Theming nochmals unter W2K nachprogrammieren? Falls Du ein paar € ausgeben kannst würde ich dir empfehlen mal die ElPack-Komponentensammlung anzusehen. Diese bieten eine eigene XP-Themes-Engine an, mit welcher unter Win98-2003 jede beliebige XP-Themes-DLL verwendet werden kann um XP-Theming auch unter nicht XP-Themes-Systemen nachzubilden.

Hallo,

Zitat von Bernhard Geyer:

Warum willst Du XP-Theming nochmals unter W2K nachprogrammieren?

ich glaube wir haben uns falsch verstanden und oder ich mich falsch ausgedrückt. Ich möchte natürlich nicht das XP-Theming nachproggen. Ich möchte folgendes machen: Dem SpeedButton den ich programmiert habe ich die Farben gegeben das dieser auch unter Win2K so aussieht wie das ganze unter OfficeXP mit WinXP aussieht. Jetzt möchte ich aber noch eine Funktion einbauen, das wenn dieses Control auf einem WindowsXP - Rechner eingesetzt wird die Systemfarben verwendet werden, sodas wenn im WinXP ein anderes Design verwendet wird, sich dieser Button in den Farben an dieses Design anpassen tut.

Also das was ich machen will in kurzform:

Unter Win2K:

Canvas.Brush.Color := RGB(49,106,197);
Canvas.Brush.FrameRect(ClientRect);


Unter WinXP:

Canvas.Brush.Color := clHighLight;
Canvas.Brush.FrameRect(ClientRect);


Ich hoffe jetzt hab ichs etwas verständlicher ausgedrückt was ich machen will

Mfg Matthias

Hallo,

Zitat von gecko2000:

Also, die Übersetzungen für die Systemfarben von Delphi bin ich grad am machen. Die könnt ich dir morgen geben
Aber für OnMouseDown und so weiß ich auch nix.

daran wäre ich interessiert.

Jeder SpeedButton im OfficeXP hat ja mehrere Farben:

- die Farbe für den Border (49,106,197)
- die Farbe wenn keine Mouse über dem Button ist oder dieses auch nicht im
Exclusive - Mode ist
- die Farbe wenn die Mouse über dem SpeedButton ist
- und die Farbe wenn der Button gedrückt wird

ich gehe halt in der annahme das es für diese 4 Farben Systemconstanten gibt die ich verwenden kann, sodas mein Control im Aussehen an eine Designänderung im XP angepasst wird (automatisch)

Mfg Matthias

Zitat von MatthiasW:

Jeder SpeedButton im OfficeXP hat ja mehrere Farben:

[..]

sodas mein Control im Aussehen an eine Designänderung im XP angepasst wird (automatisch)

Was hat das Aussehen der Anwendungssoftware Office mit der Versionsnummer XP mit den Themes des Betriebssystems Windows XP zu tun? Nichts!
Also ich würde einfach ein Manifest bei legen (zeigt nur Wirkung unter XP) und mich mehr auf die Funktionalität des Programmes konzentrieren als irgendwelche designmäßigne Spielereien.

Zitat von gecko2000:

Also, die Übersetzungen für die Systemfarben von Delphi bin ich grad am machen. Die könnt ich dir morgen geben

Ich wäre daran interessiert, welche Farbe der std Hyper-Link hat. Bisher waren die Farben bei den mir bekannten Komponenten-Suits immer auf clBlue gesetzt, obgleich diese Farbe auch davon abweichen kann...
Wird es diese "Konstante" ebenfalls bei Deiner Übersetzung geben?

Zitat von MatthiasW:

ich glaube wir haben uns falsch verstanden und oder ich mich falsch ausgedrückt. Ich möchte natürlich nicht das XP-Theming nachproggen. Ich möchte folgendes machen: Dem SpeedButton den ich programmiert habe ich die Farben gegeben das dieser auch unter Win2K so aussieht wie das ganze unter OfficeXP mit WinXP aussieht.

Helles Blau mit dunkelblauem Rand?
Ändere doch spaßeshalber mal deine Systemfarben für markierte Elemente auf Rot und starte Office XP noch mal. Du wirst dein ... äh ... rotes Wunder erleben, denn die Menüs und Toolbars von Office passen sich an die jeweils gewählte Systemfarbe an.

Zitat:

Jetzt möchte ich aber noch eine Funktion einbauen, das wenn dieses Control auf einem WindowsXP - Rechner eingesetzt wird die Systemfarben verwendet werden, sodas wenn im WinXP ein anderes Design verwendet wird, sich dieser Button in den Farben an dieses Design anpassen tut.

"Tut" tut man nicht benutzen tun.

Die für dich einfachste Variante ist ohne Zweifel das XPMenu, da es neben dem Menü auch Toolbars usw. im Office XP-Stil enthält.

Hallo,

Danke für eure Hilfe, hab mich dazu entschlossen auf die Farbänderung bei einem Designwechsel unter Windof XP zu verzichten.

Mfg Matthias

Irgenwie kommt's ein wenig spät, aber die Lick-Farbe wird es wohl nicht geben
Ich bin selber noch am tüfteln, war schwieriger als ich dachte...