Comment afficher un tableau dans TStringGrid ?

Version imprimable

Je n'arrive vraiment pas a selectionné une seul celleule du StringGrid afin de la mettre en noir. J'ai un tableau en mémoire de 11 par 15 contenant des 0 et des 1 (0=blanc, 1=noir).
Voici ma procédure DrawCell:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
var
    liCol : integer;
    liRow : integer;
begin
for liCol := 0 to 10 do
    for liRow := 0 to 14 do
        begin
        if gaTblLabyrinthe[liCol, liRow] = 1 then
            begin
            // Il me manque le code pour selectionner chaque cellule a mettre en noir
            StgLabyrinthe.Canvas.Brush.Color := clBlack;
            StgLabyrinthe.Canvas.FillRect (Rect)
            end
        end
end;

Modération : ajout des balises Code,
NoisetteProd

Salut au prealable tu remplis ton tableau avec tes valeurs binaires en fonction de la couleur que tu veux en font ensuite , l'exemple de procedure ci dessous devrait y aider a dessiner.
C'est la valeur de la cellule qui determine la couleur donc tu doit pas oublier de la reecrire a l'interieur.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin with StringGrid1.canvas do begin Brush.style:=bsSolid; if StringGrid1.cells[Acol,Arow]='0' then Brush.Color:=Clwhite else Brush.Color:=ClBlack FillRect(Rect); font.color:=Brush.Color; textout(Rect.left+2 ,Rect.top+2,StringGrid1.cells[Acol,Arow]); end; end;
bye.

Tu ne dois pas écrire une procédure DrawCell indépendante mais utiliser l'évennement OnDrawCell du TStringGrid

Code:

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.StgLabyrintheDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
 
  Var Couleur: TColor;
begin
  If gaTblLabyrinthe[ARow,Acol]=1 Then Couleur:=clBlack
                                  Else Couleur:= clWhite;
  StgLabyrinthe.Canvas.Brush.Color := Couleur;
  StgLabyrinthe.Canvas.FillRect (Rect);
end;

19/09/2005, 02h21
doubledj

J'ai résolu mon probleme en ajoutant ceci a ma derniere ligne de code:

StgLabyrinthe.Canvas.FillRect (StgLabyrinthe.CellRect(liRow, liCol));

Merci quand meme a vous tous pour les conseils!!! Tres apprécié!