PageControl désactivé texte sur les onglets - texte gris

Question

Je cherche (je pense) pour l'API Windows que je peux utiliser dans mon événement OnDrawTab dans le composant TPageControl pour afficher du texte en gris sur les onglets que je choisis. Je l'ai fait dans le passé et de mémoire c'est là où je l'ai fait (dans l'événement OnDrawTab). Malheureusement, je n'ai pas accès au code pour regarder en arrière comment je l'ai fait avant. Je suis sûr que j'ai utilisé quelque chose comme DrawText ou TextOut ou quelque chose, mais j'ai été capable d'ajouter un style de drapeau ou de format qui lui donnait l'apparence de grisé. Pour la vie de moi, je ne peux pas trouver la commande que j'ai utilisée. ODS_DISABLED drapeau semble être quelque chose comme ce que je suis après mais c'est un gestionnaire de messages Windows, donc je suis sûr que je n'ai pas utilisé cela auparavant. Je n'écris pas un composant ici, je ne gère que l'événement OnDrawTab.

Quelqu'un me pointe-t-il dans la bonne direction?

J'utilise Delphi 6.

Merci

Jason

Answer 1

Vous pouvez utiliser les fonctions DrawState et GrayString.

procedure TForm1.FormClick(Sender: TObject); 
var 
    s: string; 
begin 
    s := 'testar'; 
    DrawState(Canvas.Handle, 
      0, 
      nil, 
      integer(@s[1]), 
      length(s), 
      10, 
      10, 
      0, 
      0, 
      DST_TEXT or DSS_DISABLED) 
end;