Discussion :

[marie253]

bonjour
j'essaye de mettre en gras une colonne dans un TStringGrid et ...
ben j'arrive pô :-(

Code :

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

1
2
3
4
5
6
7
8
9
procedure TFormFicheMembre.StringGridDoublonsDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if ACol = 2
    then
       StringGridDoublons.Canvas.Font.Style := [fsBold]
    else
       StringGridDoublons.Canvas.Font.Style := [];
end;

si quelqu'un a une idée .... merci !

[ShaiLeTroll]

Essaye de redessiner le text toi même, via les coordonnées dans Rect et le canvas de la grille

[Gilbert Geyer]

Voiçi une idée à essayer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TFormFicheMembre.StringGridDoublonsDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if ACol = 2
    then
       StringGridDoublons.Canvas.Font.Style := [fsBold]
    else
       StringGridDoublons.Canvas.Font.Style := [];
    //Ajouter soit :
    if gdFocused in State then Canvas.DrawFocusRect(Rect);
    // ... soit :
    if gdSelected in State then Canvas.DrawFocusRect(Rect);
end;

... car il me semble qu'il ne suffit pas de modifier la propriété Style si la routine ne contient pas une instruction d'exécution ou de rafraîchissement du type (Draw, Refresh, Repaint, Update : voir Aide Delphi)

[Lung]

Moi, je redessine le texte :

Code :

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

Canvas.TextOut(Rect.Left + 4, Rect.Top + 1, (Sender as TStringGrid).Cells[ACol, ARow]);

[ShaiLeTroll]

Entièrement d'accord avec le code de Lung, c'est ce que j'ai proposé aussi, je n'avais pas d'exemple sous la main (gestion des épaisseurs de ligne de séparation, wordwrap, ...)

[e-ric]

Salut

As-tu affecté la propriété DefaultDrawing à False ?

cdlt

[marie253]

merci beaucoup pour les réponses
alors j'ai essayé (entre autres lol !)

Code :

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

1
2
3
4
5
6
    if ACol = 2
    then
    begin
      StringGridDoublons.Canvas.Font.Style := [fsBold];
      canvas.TextOut(Rect.Left , Rect.Top , 'test');//(Sender as TStringGrid).Cells[ACol, ARow]);
    end;

mais sans succès :-(
lorsque je mets DefaultDrawing à true ... rien ne se passe, je veux dire que rien ne se met en gras, par contre si je le mets à false, plus rien ne s'écrit dans la grille ?
j'ai aussi essayé gdfocused ...
je n'arrive pas ... :-((((

[anapurna]

salut

tu ne dessine pas sur le meme canvas

@+ Phil

[e-ric]

C'est peut-être une question stupide mais bon : est-ce le gestionnaire d'événement StringGridDoublonsDrawCell est bien associé à l'événement StringGridDoublon.OnDrawCell ???

cdlt

[Gilbert Geyer]

Je viens de tester sous D5/Win98 le bout de code suivant qui marche avec DefaultDrawing à true :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TFC.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var       texte : string;
begin     StringGrid1.canvas.Font.Style:=[fsBold];
           StringGrid1.canvas.Font.Color:=clNAvy;
          texte:=StringGrid1.Cells[ACol,ARow];
          if ACol=1
          then StringGrid1.canvas.textout(Rect.left,Rect.Top,texte);
end;

[marie253]

MERCI beaucoup à tous :-)
ça marche enfin : )


(avec le nom de ma grille devant canvas ça marche mieux en effet , j'ai un peu honte là ..)


++