La Couleur dans une StringGrid

Version imprimable

20/01/2007, 23h32
fermat

La Couleur dans une StringGrid

Bonjour ,

J’ai une StringGrid qui comporte plus de 5000 lignes et 30 colonnes.
Voici ce que je souhaite faire :
*si des valeurs de la 1ere ligne sont présentes dans la 2e ligne….
*si des valeurs de la 2e ligne sont présentes dans la 3e ligne……
* si des valeurs de la 3e ligne sont présentes dans la 4e ligne……
*etc..etc..
*si des valeurs de la ligne 4999 sont présentes dans la ligne 5000…
Enfin pour résumer…si des valeurs de la ligne [N-1], sont présentes dans la ligne [N]…je veux que ces valeurs soient en rouge sur fond de cellule orange…par exemple.
J’espère être compris..et recevoir une solution à mon problème.
Merci

Magdani

Si cela peut t'aider :procedure

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
TForm1.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var x,y:integer; s:string;
begin
// pour colorier les colonnes
      if (acol=0)  and (arow>=1) then
          with StringGrid1.Canvas do begin
               if not (gdSelected in state) then begin
                  Pen.Style:=psClear;
                  Brush.Style:=bsSolid;
                  Brush.Color:=rgb(245,250,203);
                  Rectangle(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom);
               end;
               s:=StringGrid1.Cells[acol,arow];
               x:=2+Rect.Left;
               y:=1+Rect.Top+(Rect.Bottom-Rect.Top-TextHeight(s))div 2;
               Font.Style:=[fsBold];
               TextOut(x,y,s);
               Pen.Style:=psSolid;
          end;
end;

21/01/2007, 14h38
fermat

La Couleur dans une StringGrid

Bonjour,

Je vous remercie de votre aide.
Je vais appliquer cela.