Discussion :

[malikakika]

salut à tous;
ma procedure est simple, elle colore une cellule de TStringGrid qd cette dernière est égale à certaine valeur.
cette procedure n' est pas écrite dans ans l'évennement du string grid (sg4DrawCell(TObject *Sender, int ACol, int ARow,
TRect &Rect, TGridDrawState State))
mais dans un boutton car ça ne marange pas.
mais j'ai pas trouver les instruction qui font ça .
si quelqu'un le sais q'il m'aide
merci

[henderson]

Salut !

Via l'événement OnDrawCell :

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int Col,
int Row, TRect &Rect, TGridDrawState State)
{

}

Le paramètre Rect donne le rectangle de délimitation de la cellule.
Le dessin se fait à l'aide du Canvas hérité de TCustomControl et qui normalement est accessible pour la classe TStringGrid.

Par exemple :

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
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int Col,
      int Row, TRect &Rect, TGridDrawState State)
{
if((Col == 3) && (Row == 3))
    {
    AnsiString N = StringGrid1->Cells[Col][Row];
    int a = N.ToIntDef(0);
    if(a == 100)
        {
        StringGrid1->Canvas->Brush->Style = bsSolid;
        StringGrid1->Canvas->Brush->Color = clRed;
        StringGrid1->Canvas->FillRect(Rect);
        }
    StringGrid1->Canvas->TextOut(Rect.Left + 4, Rect.Top + 4, N);
    }
}

C'est juste un exemple ! A toi de faire mieux !

A plus !

[malikakika]

Salut henderson

je ne veux pas utilisé cette évenement car mon traitement sefait à l'intérieur d'1 boutton où je manipule des listes chainés et sa me pose problème c porquoi j'évite de le faire dans
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int Col,
int Row, TRect &Rect, TGridDrawState State)
{
[CODE]
}

est ce que ta une idé.
merci

[henderson]

Salut !

Je sais !

En supposant que le Canvas de TStringGrid soit accessible (hérité de TCustomControl), on devrait donc pouvoir ajouter du graphisme.
En dehors du fait qu'il faudra calculer la zone précise du dessin (le fameux Rect fourni par la OnDrawCell) on risque d'avoir un problème puisque l'objet à un moment donné cherchera à se dessiner en utilisant la OnDrawCell par défaut et le graphisme disparaîtra !

On peut éventuellement rajouter un flag pour encadrer le dessin par un test, dans la OnDrawCell.
Dans ce cas, le bouton contrôle le flag et le tour est joué.

Code :

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

bool Flag = false; // pas de dessin

Dans la OnMouseDown du bouton :

Code :

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

1
2
Flag = true;
StringGrid->Repaint();

Dans la OnMouseUp du bouton :

Code :

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

1
2
Flag = false;
StringGrid->Repaint();

Dans la OnDrawCell :

Code :

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

1
2
3
4
if(Flag)
    {
    //le code
    }

Je pense que c'est le plus simple !

Un TStringGrid ne sert qu'à représenter ce qu'il contient en terme de chaînes ! Je n'arrive pas à comprendre le problème entre le traitement sur tes chaînes et celles du TStringGrid...

A plus !

[ludojojo]

sinon tu pourrais éventuellement créer une fonction qui te permet de colorier la cellule active avec quelque chose comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
TGridRect myRect;
  myRect.Left = 1;
  myRect.Top = StringGrid->Selection.Top;
  myRect.Right = 1;
  myRect.Bottom = StringGrid->Selection.Bottom;
  StringGrid->Selection = myRect;
 
StringGrid->Canvas->Brush->Color = clRed;
    StringGrid->Canvas->TextRect(myRect, myRect.Left , myRect.Top , StringGrid->Cells[StringGrid->Col][StringGrid->Row]);

Ensuite tu y fait appel dans ta methode :

Code :

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

1
2
3
4
5
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int Col,
int Row, TRect &Rect, TGridDrawState State)
{
 
}

Je n'est pas testé le code... il faudra surement le modifier... mais dans l'idée ça pourrai fonctionner...
Bon courage