Conserver couleur cellule dans grille

**gegila** · 12/01/2010, 18h38

Je veux colorier les cellules que j'ai sélectionné dans un StringGrid.
Pour cela à partir de la procedure StringGridDrawCell je fais ce qui suit

Code :

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

1
2
3
4
5
6
 If gdSelected In State Then
      Begin
        { Les cellules sélectionnées sont en Jaune }
        StringGrid.canvas.Brush.Color:=clYellow;
        StringGrid.canvas.Rectangl(Rect.Left,Rect.Top,Rect.Right,Rect.bottom);
      End;

Cela marche quand je clique mais la cellule sélectionnée ne conserve pas la couleur (jaune) dans mon exemple

**BuzzLeclaire** · 12/01/2010, 21h12

Salut,

Une piste.

1) Tu créer un tableau représentant l'ensemble de ton grid avec tout à False
2) Dans l'évènement onclick de ton Grid tu alimente un tableau avec comme indice la colonne et la ligne et tu assigne True
3) dans l'evenement Draw tu parcours le tableau si true tu met jaune sinon tu fais rien.

A toi de jouer.

PS : j'espère que ton Grid n'as pas 100 colonnes et 2000 lignes !!

**ero-sennin** · 12/01/2010, 21h24

Salut,

Voici en gros ce que peut donner la solution proposé par BuzzLeclaire

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Contnrs;
 
type
  TForm1 = class(TForm)
    StringGrid: TStringGrid;
    AddCell: TButton;
    procedure StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure AddCellClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
    // Tableau de coordonnées (X/Y) des cellules à mettre en jaune
    FArrayYellowCell : array of TPoint;
  public
    { Déclarations publiques }
    // Méthodes d'ajout de cellule
    procedure addNewCell(X,Y : integer);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.addNewCell(X, Y: integer);
begin
  //Ajout d'une nouvelle cellule
  SetLength(FArrayYellowCell,Length(FArrayYellowCell)+1);
  FArrayYellowCell[High(FArrayYellowCell)] := Point(X,Y);
end;
 
procedure TForm1.AddCellClick(Sender: TObject);
begin
  addNewCell(1,1);
  addNewCell(2,1);
  addNewCell(3,1);
  addNewCell(2,2);
  addNewCell(2,4);
  // On force le rafraichissement des cellules visibles
  StringGrid.Invalidate;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLength(FArrayYellowCell,0);
end;
 
procedure TForm1.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  isYellow : boolean;
  i : integer;
begin
  isYellow := false;
  for i := 0 to High(FArrayYellowCell) do
  begin
    if ((FArrayYellowCell[i].X = ACol) and (FArrayYellowCell[i].Y = ARow))  then
    begin
      isYellow := true;
      break;
    end;
  end;
 
  if isYellow then
  begin
    { Les cellules sélectionnées sont en Jaune }
    with StringGrid.canvas do
    begin
      Brush.Color:=clYellow;
      Rectangle(Rect.Left,Rect.Top,Rect.Right,Rect.bottom);
    end;
  end;
end;
 
end.

Ne pas oublier de mettre dans les uses l'unité Contnrs.

Bon, c'est surement pas optimal, mais bon, c'est une des solutions possible

A+

**BuzzLeclaire** · 12/01/2010, 23h00

Re,

Voilà exactement ce que j'aurais fais :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids;
 
type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    AColorier : Array of Array of Boolean; // Tableau dynamique
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
Var
  x,y : Integer;
begin
// On cincidère que le stringgrid est prédéterminé sur le form
// Donc on connais les valeurs max col et row
  SetLength(AColorier,StringGrid1.ColCount,StringGrid1.RowCount);
 
// On initialise le tableau
  for x := 0 to StringGrid1.ColCount do
    for y := 0 to StringGrid1.RowCount do
      AColorier[x,y] := false;
end;
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if AColorier[ACol,ARow] then // si c'est cliqué alors on mets jaune
  begin
    { Les cellules sélectionnées sont en Jaune }
    with StringGrid1.canvas do
    begin
      Brush.Color:=clYellow;
      Rectangle(Rect.Left,Rect.Top,Rect.Right,Rect.bottom);
    end;
  end;
 
end;
 
procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  GridCoord: TGridCoord; // recevra les coordonnées des cellules
begin
  GridCoord    := TStringGrid(Sender).MouseCoord(X,Y); // on récupère le numéro de colonne et ligne ;)
  if (GridCoord.X > 0) And (GridCoord.Y > 0) then
  Begin
// Cela fonctionnera de la sorte
// Je clique une fois dans la cellule c'est jaune True
// Je clique une deuxième fois c'est normal False
   AColorier[GridCoord.X,GridCoord.Y] := Not AColorier[GridCoord.X,GridCoord.Y]; // Mettre AColorier[GridCoord.X,GridCoord.Y] := True; Si tu souhaite conservé meme apres un second clique la couleur
    TStringGrid(Sender).Invalidate;
  End;
end;

On pourrais ensuite imaginer de remettre à false tous le tableau sur clique boutton.

Bye

**Andnotor** · 13/01/2010, 07h44

Une autre variante en gérant directement l'Object de chaque cellule comme un booléen:

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
procedure TForm6.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
begin
  //Inversion
  with TStringGrid(Sender) do
    Objects[aCol, aRow] := TObject(not boolean(Objects[aCol, aRow]));
end;
 
procedure TForm6.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  with TStringGrid(Sender), Canvas do
    if boolean(Objects[aCol, aRow]) then
    begin
      Brush.Color := clYellow;
      FillRect(Rect);
    end;
end;