Discussion :

[bubu42]

Bonjour,

Je viens d'installer Lazarus 0.9.30. Curieusement, je n'arrive plus à faire afficher correctement les couleurs du texte. Objectif recherché : si la colonne 3 est vide, on a du bleu sinon c'est du vert.
Voici le code utilisé :

Code :

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

1
2
3
4
5
procedure TForm9.mygridDrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
begin
    if mygrid.Cells[3,arow]<>'' then mygrid.Canvas.font.Color:=clGreen
       else mygrid.font.Color:=clNavy;

end;

Avec ça, toutes les lignes sont en bleu, y compris celles dont la colonne 3 est vide. Pourtant ce code fonctionnait très bien avec la version 0.9.28. Où est le problème, à votre avis ?

Merci d'avance

[tourlourou]

mygrid.Canvas.font.Color:=clGreen ?

[Invité]

Bonjour,

Je ne sais pas si cela peut vous être utile. A partir d'une TStringGrid posée par défaut sur une TForm et renommée SG1, voici un code qui colorie toutes les 4 lignes en vert. Le " if StrToInt(Cells[1, aRow]) mod 4 = 0" remplace votre condition.

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
21
22
23
24
25
26
27
28
29
30
procedure TForm1.FormCreate(Sender: TObject);
var
  i : Integer;
begin
  with SG1 do begin
    RowCount := 21;
    for i := 1 to RowCount -1 do
      Cells[1, i] := IntToStr(i);
 end;
end;
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
var
  sText : String;
begin
  if aCol > 0 then
   if aRow > 0  then
      if not (gdSelected in aState) then
         with SG1 do
           if StrToInt(Cells[1, aRow]) mod 4 = 0 then begin
             sText :=  Cells[aCol, aRow];
             with CanVas do begin
               brush.color := clGreen;
               FillRect(aRect);
               TextRect(aRect, aRect.Left + (aRect.Right - aRect.Left) shr 1
                - (TextWidth(sText) shr 1), aRect.Top +3, sText);
             end;
           end;
end;

Ici, le TextRect ne convient pas : il centre le texte. Mais le principe est là. Les 2 premiers if précisent la portée du traitement : toutes les lignes seront entièrement coloriées (aCol > 0 ==> de aCol := 1 à aCol := SG1.Colcount -1) et le traitement commence à partir de la ligne 1 (aRow > 0). Si vous ne voulez que le traitement porte uniquement sur la colonne 3 alors (if aCol = 3) : les autres cellules d'une même ligne "échapperont" alors au traitement. Le " if not (gdSelected in aState) then" précise que le traitement ne s'applique pas aux lignes "Selected".

Cordialement. Gilles

[bubu42]

Bon sang, mais c'est bien sûr ! Que vient faire ce "Canvas" dans la première ligne ?
L'exemple donné avec le Rect va quand même me servir, car c'est une nnotion que je possède très mal. C'est en imitant qu'on peut progresser.

Un grand merci à tous les deux.