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