Discussion :

[dim07]

Bonjour,
L'instruction suivante me permet d'afficher du text sur la barre de menu à droite de mes écrans.
Elle fonctionne très bien sous XP mais je rencontre des problèmes sous Vista :
Quand la transparence des bordures et activée (par défaut), le texte ne s'affiche pas.

Code :

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

1
2
3
 
S := 'Nom de l''écran';
Canvas.TextOut(500, 10, S);

Avez-vous déjà rencontré ce problème ?

[Droïde Système7]

Bonjour,

Je viens de tester, et je vois bien le texte.

(Vista Premium avec aéro et bordures transparentes)

[dim07]

Je sais que dans la version Delphi 2008, de nombreuses améliorations concernant Vista ont été apportées.
Mon appli est compilée en Delphi 2006, est-ce que ça peut être la cause ?
Quelle est ta version de Delphi Droïde Système7 ?

[Droïde Système7]

Quelle est ta version de Delphi Droïde Système7 ?

Delphi 7 Studio.

[dim07]

En fait, le code fourni en exemple fonctionne correctement, désolé..
Voici la procédure qui pose problème dans son intégralité :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure TForm1.TestClick(Sender: TObject);
var
   X, Y, CYFrame, CXSize, CYSize: Integer;
begin
  CYFrame  := GetSystemMetrics(SM_CYFRAME); // Hauteur bordure
  CXSize := GetSystemMetrics(SM_CXSIZE);    // Largeur bouton barre de titre
  CYSize := GetSystemMetrics(SM_CYSIZE);
  Canvas.Handle := GetWindowDC(Self.Handle);
  try
    Y := (CYSize + (2 * CYFrame) - Canvas.TextHeight('W')) div 2 ;
    Canvas.TextOut(250, Y, 'Test2');
  finally
    ReleaseDC(Self.Handle, Canvas.Handle);
    Canvas.Handle := 0;
  end;
end;

[Droïde Système7]

Bonjour,

Regarde, là tu devrais avoir un peu moins de messages d'erreurs

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.Button2Click(Sender: TObject);
var
  X, Y, CYFrame, CXFrame, CXSize, CYSize: Integer;
begin
  CYFrame  := GetSystemMetrics(SM_CYFRAME); // Hauteur bordure
  CXFrame  := GetSystemMetrics(SM_CXFRAME);
  CXSize := GetSystemMetrics(SM_CXSIZE);    // Largeur bouton barre de titre
  CYSize := GetSystemMetrics(SM_CYSIZE);
  Canvas.Handle := GetWindowDC(Self.Handle);
  try
    Y := (CYSize + (2 * CYFrame) - Canvas.TextHeight('W')) div 2 ;
    //ShowMessage(IntToStr(Y)); // = 11
    X := (CXSize + (2 * CXFrame) - Canvas.TextHeight('Z')) div 2 ;
    //ShowMessage(IntToStr(X)); // = 17
    Canvas.TextOut(X, Y, 'Test2');
  finally
    ReleaseDC(Self.Handle, Canvas.Handle);
    Canvas.Handle := 0;
  end;
end;

Par contre en effet, ça fait la seconde fois que je me trouve confronté à un blème lié au surcouchage de l'aspect Windows.

Comme preuve, retire l'Aero pour par exemple changer contre "Windows Basic", là tu pourras observer ton ajout en barre de title.

Mais tant que tu laisseras l'Aero = niet

[dim07]

En gros, ça fonctionne tout le temps sauf lorsqu'on active le mode Aéro.

[Droïde Système7]

En gros, ça fonctionne tout le temps sauf lorsqu'on active le mode Aéro.

Affirmatif

En parallèle vis à vis de VSTA, au niveau des écritures directo sur le bureau de Vista ; c'est du même tonneau, blème de refresh. Sauf si pas Aero activé.

Si quelqu'un sait comment y remédier... merci de nous dire