[XE2] Police en gras dans un StringGrid [Résolu]

[Charly910]

Bonjour,

pour mettre en forme et en couleur les cellules de mon StringGrig, j'utilise la méthode DrawCell :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
{ =============================================================== }
procedure TF_Princ.TNDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
{     Cadrage à gauche avec une marge }
Var
  ColorBar  : TColor ;
  SelTab    : TColor ;
  FondTab   : TColor ;
  EcrTab    : TColor ;
  EcrSelTab : TColor ;
  DecalTab  : Integer ;   { Nb de pixels de décalage à gauche du fond des cellules des String Grid }
 
begin
   ColorBar  := RGB(253, 224, 107) ;
   FondTab   := RGB(240, 251, 255) ;
   SelTab    := clSkyBlue ;
   EcrTab    := clBlack ;
   EcrSelTab := clWhite ;  
   DecalTab := 4 ;
 
     With Sender As TStringGrid Do With Canvas Do
  Begin
    { Sélection de la couleur de fond }
    If gdFixed in State
      Then Brush.Color := ColorBar
      Else If gdSelected In State
        Then Brush.Color := SelTab
        Else Brush.Color := FondTab ;
 
    { Dessin du fond }
    Rect.Left := Rect.Left - DecalTab ;
    FillRect(Rect);
 
    { Sélection de la couleur de texte }
    If gdSelected In State Then
      SetTextColor(Canvas.Handle, EcrSelTab )
    Else SetTextColor(Canvas.Handle, EcrTab );
 
    { Dessin du texte en utilisant la fonction API }
    DrawText(Canvas.Handle, PChar('  '+Cells[ACol,ARow]), -1, Rect ,
              DT_RIGHT or DT_NOPREFIX or DT_VCENTER or DT_SINGLELINE  );
  End;
 
end;
{ =============================================================== }

j'aimerais mettre le texte de la première ligne en gras. J'ai essayé de mettre avant le DrawText :

Code :

1
2
3
4
    If ARow = 0  Then
       Font.Style := [fsBold]
    Else
       Font.Style := [];

Mais cela ne fonctionne pas ? Sinon, j'ai regardé les API Windows, mais cela n'a pas l'air évident.

Quelqu'un sait il comment faire ?

Merci

A+

Charly

[Cl@udius]

Salut

Code :

     With Sender As TStringGrid Do With Canvas Do

Serait-ce ces With qui causent problèmes d'interprétation ?

Personnellement j'évite les with multiples (et même parfois les with tout court) source d'erreur.

Et comme ça ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
procedure TF_Princ.TNDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
{     Cadrage à gauche avec une marge }
Var
  ColorBar  : TColor ;
  SelTab    : TColor ;
  FondTab   : TColor ;
  EcrTab    : TColor ;
  EcrSelTab : TColor ;
  DecalTab  : Integer ;   { Nb de pixels de décalage à gauche du fond des cellules des String Grid }
 
begin
  ColorBar  := RGB(253, 224, 107) ;
  FondTab   := RGB(240, 251, 255) ;
  SelTab    := clSkyBlue ;
  EcrTab    := clBlack ;
  EcrSelTab := clWhite ;
  DecalTab := 4 ;
 
  With Sender As TStringGrid Do
  Begin
  { Sélection de la couleur de fond }
    If gdFixed in State Then
      Canvas.Brush.Color := ColorBar
    Else If gdSelected In State Then
      Canvas.Brush.Color := SelTab
    Else
      Canvas.Brush.Color := FondTab ;
 
    { Dessin du fond }
    Rect.Left := Rect.Left - DecalTab ;
    Canvas.FillRect(Rect);
 
    { Sélection de la couleur de texte }
    If gdSelected In State Then
      Canvas.Font.Color := EcrSelTab
    Else
      Canvas.Font.Color := EcrTab;
 
    if ARow = 0 then
      Canvas.Font.Style := [fsBold]
    else
      Canvas.Font.Style := [];
 
    { Dessin du texte en utilisant la fonction API }
    DrawText(Canvas.Handle, PChar('  ' + Cells[ACol, ARow]), -1, Rect ,
        DT_RIGHT or DT_NOPREFIX or DT_VCENTER or DT_SINGLELINE  );
  End;
 
end;

@+

[Charly910]

Merci Claudius,

effectivement ça marche sans le double With (que j'avais pris sur un exemple )

Tu as raison, il vaut mieux éviter ces pratiques !

A+

Charly

[Cl@udius]

Envoyé par Charly910

Tu as raison, il vaut mieux éviter ces pratiques !

Il ne faut pas non plus s'interdire l'utilisation de with, mais rester conscient qu'il peut être source d'erreur.

@+

[cincap]

Bonjour à toutes et à tous,

@ Cl@udius, petit oubli dans ton code si je peux me permettre

Code :

1
2
3
4
5
 if ARow = 0 then
      Canvas.Font.Style := [fsBold]
    else
      Canvas.Font.Style := [];

@+,

Cincap

[Cl@udius]

@cincap

Arrfff J'ai corrigé le code. Merci.

Voilà ce que c'est quand on utilise (temporairement) un autre langage.

[tourlourou]

Code :

1
2
3
procedure TF_Princ.TNDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  With Sender As TStringGrid Do With Canvas Do

Je suppose que le Canvas retenu était celui de la fiche TF_Princ.

Pour garder le with, on pouvait pê utiliser :

Code :

  With Sender As TStringGrid, TStringGrid(Sender).Canvas Do

[Charly910]

Pour le :, j'avais rectifié directement

pour le Canvas, je pense que c'est plutôt celui du StringGrid (appelé TN : TerrainNaturel dans mon appli)

F_Princ c'est la Form qui contient le StringGrid

Merci à tous

Charly