Pb avec Drawtext..

Question

Bonjour, je cherche a utiliser drawtext mais je n'y arrive pas , voila mon code:

  With Sender As TStringGrid Do With Canvas Do
  Begin
    { S&#233;lection de la couleur de fond }
    If gdFixed in State
      Then Brush.Color := clBtnFace
      Else If gdSelected In State
        Then Brush.Color := clNavy
        Else Brush.Color := clWhite;


    { Dessin du fond }
    FillRect(Rect);


    { S&#233;lection de la couleur de texte }
    If gdSelected In State Then
      SetTextColor(Canvas.Handle,clWhite)
    Else SetTextColor(Canvas.Handle,clBlack);


    { Dessin du texte en utilisant la fonction API }
    DrawText(Canvas.Handle, PChar(Cells[ACol,ARow]), -1, Rect ,
             DT_CALCRECT or DT_WORDBREAK );

D'apr&#232;s l'aide dt_calcrect permet de calculer la taille du rectangle en fonction, de la taille du texte, mais j'ai plus rein qui s'affiche dans mes cellules qunad je mets ca....

ni69 · Answer

Essaye comme &#231;a :



procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);

begin

  With Sender As TStringGrid Do With Canvas Do

   Begin

    { S&#233;lection de la couleur de fond }

    If gdFixed in State Then Brush.Color :=   clBtnFace

     Else If  gdSelected In State Then Brush.Color : = clNavy
    Else Brush.Color :=  clWhite;

    { Dessin du fond }

    FillRect(Rect);

     { S&#233;lection de la couleur de texte } 

     If  gdSelected In State Then SetTextColor(Canvas.Handle,clWhite)

    Else SetTextColor(Canvas.Handle,clBlack);

    { Dessin du texte en utilisant la fonction TextOut de l'objet TCanvas }

    TextOut(Rect.Left+5, Rect.Top+5, Cells[ACol,ARow]); // Modifie les +5 en fonction de l'espace que tu veux laisser autour du texte

   End;

end;


@+
Bonne Prog'
Nico [www.ni69.new.fr]
<hr size  ="2" width="100%">


 
 
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

cs_Kenavo · Answer

Lorsque tu utilises DT_CALCRECT, la fonction DrawText ne dessine pas le texte, mais modifie la variable Rect pour l'adapter &#224; la taille n&#233;cessaire pour l'affichage du texte.

Il faut ensuite rappeler la fonction DrawText pour afficher le texte en utilisant le Rect ainsi modifi&#233;



Ken@vo

<hr size="2" width="100%">Code, Code, Codec !

[%3C/body ]

ni69 · Answer

C'est juste Kenavo 

Mais &#224; ce moment l&#224;, il vaut mieux utiliser TextOut, car la taille du
rectangle ne sert &#224; rien au final puisqu'on veut simplement afficher du
texte 

@+
Bonne Prog'
Nico [www.ni69.new.fr]
<hr size="2" width="100%">


 
 
 
N'oubliez pas de cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient !

Pb avec Drawtext..

3 réponses

Votre réponse

Discussions similaires