Stringgrid + couleurRésolu

Question

Bonjour tout le monde,

voilà j'ai un chtit problème pour mon projet. J'utilise un TStringGrid et j'ai pas mal de cases avec une seule lettre par case.
J'aimerais que quand l'utilisateur clique sur une case, la couleur de la police change MAIS ATTENTION ! Pas que la couleur  change juste sur la case cliquée mais qu'elle change et qu'elle reste jusqu'à ce que le projet s'arrête...
J'ai trouvé comment faire pour que la couleur change juste sur la case cliquée mais je ne sais pas comment faire pour que la couleur reste changée tout le temps...

Voilà j'espère que vous pourrez m'aider...
En attendant bonne prog ! @+

Loulibier · Accepted Answer

voici le code :

  public
    { Déclarations publiques }
    bCellule : array of array of boolean;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  iNoCol : integer;
  iNoRow : integer;
begin
  // Dimentionnement et Initialisation du Tableau;
  SetLength(bCellule,StringGrid1.ColCount);

  for iNoCol := 0 to High(bCellule) do
    SetLength(bCellule[iNoCol],StringGrid1.RowCount);

  for iNoCol := 0 to High(bCellule) do
  begin
    for iNoRow := 0 to High(bCellule[iNoCol]) do
      bCellule[iNoCol][iNoRow] := False;
  end;
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  // Mémorise la cellule cliquer
  bCellule[ACol][ARow] := True;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  // Dessine avec la couleur selectionné
  if (ACol > 0) and (ARow > 0) then
  begin
    if bCellule[ACol][ARow] = True then
      StringGrid1.Canvas.Brush.Color := clBlue
    else
      StringGrid1.Canvas.Brush.Color := clWhite;

    StringGrid1.Canvas.TextRect(Rect,2,2,StringGrid1.Cells[ACol,ARow]);
  end;
end;


Bonne Prog,

Olivier

Loulibier · Answer

salut,

  il faut que tu mémorises les cellules sur lequels tu as déjà cliqué et tu les redessine à chaque fois.

Bonne Prog,

Olivier

swiss_cheese10 · Answer

Merci...

Et t'as pas un petit exemple ??

swiss_cheese10 · Answer

Merci beaucoup !

J'ai encore quelques petits prblèmes d'affichage mais je vais essayer d'analyser ton code pis de me démmerder tout seul...

Merci ! Bye...

swiss_cheese10 · Answer

J'ai encore quelques problèmes paske j'ai pas mis de FixedCols et de FixedRows. Donc ca prend pas en compte la 1ère colonne et la 1ère ligne...
Sinon a part ca, faut que je modifie juste la police mais ca y a qu'un mot a modifier...

Loulibier · Answer

il faut que tu enlève la condition :
if (ACol > 0) and (ARow > 0) then
de la procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);

pour modifier la police :
 StringGrid1.Font.Name := 'Nom ta Font'; 

Bonne Prog,

Olivier.

swiss_cheese10 · Answer

Ouais en fait, c'est pas le nom de la police mais c'est la couleur.
Au lieu de : StringGrid1.Canvas.Brush.Color, faut que je mette StringGrid1.Canvas.Font.Color non ?

Loulibier · Answer

c'est ça  ;)

swiss_cheese10 · Answer

J'ai encore un tit prob...

Le truc, y m'affiche seulement la case en haut à gauche et après, plus rien...

C'est pas ca :  

StringGrid1.Canvas.TextRect(Rect,2,2,StringGrid1.Cells[ACol,ARow]);  qui pose problème ??

Loulibier · Answer

Cette ligne de code fonctionne bien, je l'ai testé.
Comment as-tu procedé ? as-tu repris texto, mon code ?

Olivier

swiss_cheese10 · Answer

Ouais j'ai repris exactement ce que tu m'as mis.
Et si je met la ligne en commentaire, ca fonctionne. Enfin ca change pas la couleur mais toutes mes cases se remplissent...

Loulibier · Answer

Qu'affiche tu dans tes cellules et de quelle manière ?

swiss_cheese10 · Answer

Ben j'affiche une lettre.
Et pour tester, j'ai mis un bouton et quant je clique dessus, il met le texte dans les cellules (Stringgrid.cells[x,x] := 'x';)...
Faut que je mette ca quelque part d'autre ?

Loulibier · Answer

ça y est j'ai compris ce que tu voulais me dire  ;) 
Il y a bien un problème dans la ligne de code que tu mentionnais !

il faut mettre :
  StringGrid1.Canvas.TextRect(Rect,Rect.Left + 2,Rect.Top + 2,StringGrid1.Cells[ACol,ARow]);


Olivier

swiss_cheese10 · Answer

Encore une question :

Tu peux pas modifier la couleur de la police d'une case rien qu'en lancant qqch dans une fonction ??

Par exemple : quand je clique sur un bouton, faire comme si j'avais cliqué dans une case de mon StringGrid ?

Je pourrais faire comme ca mais je sais pas quoi passer comme paramètres : 

StringGrid1Click(param, param, ...);

Loulibier · Answer

dans ton bouton sur l'evenement Onclick,  il te suffit de mettre :

bCellule[X][Y] := True;

swiss_cheese10 · Answer

Et si je veux que le StringGrid se réactualise c'est quoi la ligne de code ?

Paske quand je clique sur mon bouton, ca met la valeur du tableau à True mais ca réactualise pas le StringGrid.

swiss_cheese10 · Answer

C'est bon j'ai trouvé pour ca !

C'était StringGrid.Refresh. Je savais qui avait un Refresh !

Stringgrid + couleur

18 réponses

Votre réponse

Discussions similaires