Discussion :

[Albat_r]

Bonjour,
chez moi le code ne marche pas totalement : http://www.developpez.net/forums/showthread.php?t=12780
Il centre bien le texte mais il remplace le texte des cellules par celui de la cellule [0][0].

De plus, j'ai voulu créer une fonction centrer_texte qui reprend presque tout le code de :

Code :

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

1
2
  void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)

mais quand je crée mon rectangle comme ca :

Code :

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

1
2
 TRect R1;
R1 = Rect(0,0,85,20);

il me dit que : "appel d'une non fonction"

[mic.29]

Bonjour,


Rect est un pointeur de type TRect

je pense qu'il faudrait faire

R1 = *Rect;

A+

[CGi]

Essais ça :

Code :

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

TRect R1 = TRect(0,0,85,20);

ou bien ça :

Code :

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

1
2
TRect R1;
R1 = Classes::Rect(0,0,85,20);

Rect est un pointeur de type TRect

Je dirais plutôt que c'est une référence à un objet TRect.

[Albat_r]

Merci pour le code TRect ca marche

par contre ma fonction centrer_txt non :/

voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
void  TForm1::centrer_txt(int ACol, int ARow, char *texte)
{
        TRect R1 = TRect(0,0,85,20);
        StringGrid1->Canvas->TextRect(R1, (R1.Right - StringGrid1->Canvas->TextWidth(texte)) -25, (R1.Top + R1.Bottom - StringGrid1->Canvas->TextHeight(texte)) / 2, texte);
 
        if ((ACol == 2) && (ARow >0))
        {
                StringGrid1->Canvas->Font->Color = clRed;//couleur texte
                StringGrid1->Canvas->FillRect(R1);
                StringGrid1->Canvas->TextRect(R1, (R1.Right - StringGrid1->Canvas->TextWidth(texte)) -25, (R1.Top + R1.Bottom - StringGrid1->Canvas->TextHeight(texte)) / 2, texte);
        }
        else StringGrid1->Canvas->Font->Color = clWindowText;
}

Si je rentre en dur un mot ca marche, mais si je lis dans mon fichier pour afficher dans ma grille centré, ca ne marche plus :/

[CGi]

Ta fonction écrit dans une zone bien délimité de ta StringGrid (0,0,85,20)
Elle ecrira toujours au même endroit.
Si tu veux écrire dans des cases differentes, il faut utiliser l'évenement onDrawCell.

[Albat_r]

En utilisant l'evenement jo'btiens ca :

Il centre bien le texte mais il remplace le texte des cellules par celui de la cellule [0][0].

[CGi]

Poste le code que tu à mis sur l'événement onDrawCell

[Albat_r]

voici le code, c'est le code qu'une personne avait donné en reponse a une question similaire. :

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 ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
        AnsiString s;
      s = StringGrid1->Cells[Col][Row];
      TRect R1;
        R1 = Rect;
        StringGrid1->Canvas->TextRect(R1, (R1.Right - StringGrid1->Canvas->TextWidth(s)) -25, (R1.Top + R1.Bottom - StringGrid1->Canvas->TextHeight(s)) / 2, s);
 
        if ((ACol == 2) && (ARow >0))
        {
                ((TStringGrid*) Sender)->Canvas->Font->Color = clRed;//couleur texte
                ((TStringGrid*) Sender)->Canvas->FillRect(Rect);//colorisation de la première ligne
                ((TStringGrid*) Sender)->Canvas->TextRect(R1, (R1.Right - StringGrid1->Canvas->TextWidth(s)) -25, (R1.Top + R1.Bottom - StringGrid1->Canvas->TextHeight(s)) / 2, s);//TextRect(Rect,Rect.Left + 5,Rect.Top + 5,((TStringGrid *)Sender)->Cells[ACol][ARow]);
        }        
}

[CGi]

Pour récuperer la bonne chaine ce n'est pas Col et Row qu'il faut utiliser mais ACol et ARow

Code :

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

s = StringGrid1->Cells[ACol][ARow];

[Albat_r]

Merci
Des fois ca ce joue a juste un nom de variable qui change d'une lettre et on le voit pas :/

Merci

[CGi]

Et pour centrer :

Code :

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

1
2
3
4
 
 
StringGrid1->Canvas->TextRect(R1, R1.Right - (R1.Width()+StringGrid1->Canvas->TextWidth(s))/2,
                                   R1.Bottom - (R1.Height()+StringGrid1->Canvas->TextHeight(s))/2, s);

ça centrera mieux

[Albat_r]

ah ok oui j'allais le dire que ca ne centre pas correctement :/