Discussion :

[doubledj]

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 :

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
 
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

[petitcoucou31]

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 :

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

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.

[mico2]

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

Code :

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

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;

[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é!