Discussion :

[WebPac]

Bonjour,
j'ai rajouté un XP Manifest dans mon application pour faire plus XP (même si maintenant les gens préfèrent faire style Vista, enfin ce n'est pas le sujet).
Les libellés des GroupBox ne sont plus noirs mais dépendant des couleurs de Windows, nous n'avons plus la main sur ce point.
Pour une question d'homogénéïté et d'esthétisme, je voudrais affecter cette couleur à des labels.
J'ai essayé toutes les couleurs dans l'unité Graphics et dans l'unité Windows mais impossible de retrouver cette couleur.
Le problème est que cette couleur est dépendante de Windows (s'il est bleu, gris ou vert).

Comment faire pour avoir les mêmes couleurs dans ces 2 composants ?
Merci beaucoup pour votre aide.

[Cl@udius]

Salut

Après avoir été faire un tour du côté de la MSDN, j'ai pondu ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses
  UxTheme;
 
function GetGroupBoxCaptionColor: Cardinal;
var
  ThemeHandle: HTheme;
begin
  ThemeHandle := OpenThemeData(Application.Handle, 'Button');
  if ThemeHandle = 0 then
    Result := clBlack
  else
    GetThemeColor(ThemeHandle, BP_GROUPBOX, PBS_NORMAL, TMT_TEXTCOLOR, Result);
  CloseThemeData(ThemeHandle);
end;

Utilisation:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  Label1.Font.Color := GetGroupBoxCaptionColor;

Ca m'a l'air d'être fonctionnel!

@+ Claudius

[WebPac]

Merci beaucoup Cl@udius pour le code, il fonctionne bien.
C'est marrant parce que si on change le thème alors que la fenêtre est ouverte, cela change la couleur du GroupBox mais pas des autres labels, mais ce n'est pas important.

[Cl@udius]

Merci beaucoup Cl@udius pour le code, il fonctionne bien.

C'est marrant parce que si on change le thème alors que la fenêtre est ouverte, cela change la couleur du GroupBox mais pas des autres labels, mais ce n'est pas important.

Il suffit d'intercepter le message WM_THEMECHANGED et propager la mise à jour sur les labels concernés.

@+ Claudius

[WebPac]

Salut,
bonne idée, mais ce n'est pas grave, je ne vais pas aller jusque là, déjà que les couleurs soient homogène, c'est suffisent.

Merci.