Question sur le StringGrid [DELPHI]

Version imprimable

14/10/2009, 09h37
shadow578

Question sur le StringGrid [DELPHI]

Salut internaute,

Voilà je fais un petit programme pour m'entrainer, dans se programme il y a un tableau "stringGrid" qui li des informations contenue dans un fichier texte.

Lorsque j'appui sur un bouton sa m'affiche les info du fichier texte dans mon tableau jusqu'a la tout va bien.

Exemple de ligne du tableau:
"Vol n°3" 1 off reussi

"Vol n°4" 6 On erreur

Maintenant j'aimerai lorsque qu'il affiche "réussi" que sa me colore la ligne en vert, et lorsque c'est "erreur" qu'il me la mette en rouge.

Est-ce possible? je m'en remet à vous!

Merci d'avance :ccool:
14/10/2009, 09h49
ero-sennin

Salut,

Il y a une entrée dans la FAQ à ce sujet : Comment avoir des lignes de couleur sur un TStringGrid ?

Il suffit de le modifier un peu pour tester si dans la colonne X pour la ligne Y il y a "erreur" ou "réussi".

Voilà.
Bon courage,

Ero :)

En me baladant sur le forum j'ai trouvé un message de toi avec ce code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (ARow<>0) and (ACol <> 0) then
  begin
    StringGrid1.Canvas.Brush.Color:=clWhite;
    { Dessin du fond }
    StringGrid1.Canvas.FillRect(Rect);
    { Sélection de la couleur d'écriture }
  end;
  if AnsiContainsStr(StringGrid1.Cells[ACol,ARow],'-') then
    StringGrid1.Canvas.Font.Color:=clRed
  else
    StringGrid1.Canvas.Font.Color:=clBlack;
  { Dessin du texte }
  StringGrid1.Canvas.TextOut(Rect.Left,Rect.Top,StringGrid1.Cells[ACol,ARow]);
end;

Ne pourrais je pas le réutiliser pour mon soucis ? Mais au lieu que sa soit "-" moi sa serait "erreur"

non ?

edit: Quand j'essaye il ne comprend d'où vient AnsiContainsStr ?

14/10/2009, 10h37
ero-sennin

Bien sur que tu peux utiliser ce que j'ai déjà posté sur le forum! C'est fait pour ;)
Pour AnsiContainsStr, il faut rajouter l'unité StrUtils dans les uses.

Par contre, moi je modifie la couleur du texte si je me souviens bien, et non la couleur du fond... Donc faudra modifier surement Font.Color par Brush.Color ...
Je te laisse regarder un peu, tu as toutes les infos dont tu as besoin (je n'ai pas Delphi sous la main).

Tiens nous au courant :)

En faite j'ai fait autrement j'ai dessiner chaque case:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if ARow <> 0 then begin
    with StringGrid1, Canvas do begin
      if Objects[0, ARow] = Tobject(0) then
        Brush.Color := RGB(255, 200, 200)
      else
        Brush.Color := RGB(200, 255, 200);
      FillRect(Rect);
      //TextOut(Rect.Left + 2, Rect.Top + 2, Cells[Acol, ARow]);
      DrawText(Canvas.Handle, PChar(Cells[ACol,ARow]), -1, Rect ,
               DT_CENTER or DT_NOPREFIX or DT_VCENTER or DT_SINGLELINE);
 
    end;
  end;
end;

avec quand j'appui sur mon bouton:

Code:

1
2
3
4
5
6
...
   if  StringGrid1.Cells[3, i] = 'erreur' then
      StringGrid1.Objects[0, i]       := TObject(0)
    else
      StringGrid1.Objects[0, i]       := TObject(1);
...

Et sa fait ce que je voulais

14/10/2009, 11h15
ero-sennin

Donc c'est tout good ?

Un petit :resolu: ?