Imprimer la grille du TStringGrid
Bonjour à tous.
Je dois imprimer une TStringgrid après une recherche sur le forum, je me suis inspiré de ce thread.
Malheureusement la solution finale n'a pas été mis. De plus je n'ai rien trouvé dans la FAQ.
J'ai donc réalisé cela
Code:
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
|
TPrinter *Prntr = Printer();
TRect CadreText;
int Xh; /*Coordonnée du point en haut à gauche du rectangle*/
int Yh;
int i =0; /*Ligne sélectionnée*/
int j=0; /*Colonne sélectionnée*/
int Xoff=5; /*Offset du rectangle*/
int Yoff=6;
int PosTextL; /*Position du texte en largeur*/
int PosTextH; /*Position du texte en hauteur*/
int Ymax= 3000;
int Xmax= 3000;
Prntr->BeginDoc();
for(Xh=200;Xh<Xmax;Xh=CadreText.right)
{
for(Yh=1000;Yh<Ymax;Yh=CadreText.bottom)
{
/*Mise à jour position de la cellule*/
CadreText.left = Xh ;
CadreText.top = Yh ;
CadreText.right = Xh+(GrilleSeq->ColWidths[i]*Xoff);
CadreText.bottom =Yh+(GrilleSeq->RowHeights[j]*Yoff);
/*Mise à jour position du texte*/
PosTextH=Yh;
PosTextL=Xh;
/*Ecriture du texte dans la cellule*/
Prntr->Canvas->Font = GrilleSeq->Font;
Prntr->Canvas->TextRect(CadreText,PosTextL,PosTextH,GrilleSeq->Cells[i][j]) ;
/*Création de la cellule*/
Prntr->Canvas->FrameRect(GrilleSeq->BoundsRect);
j+=1; /*changement de colonne*/
}
i+=1; /*changement de ligne*/
j=0; /*Mise à zéro de la colonne*/
}
Prntr->EndDoc(); |
Cela me permet d'avoir donc l'écriture du tableau. Malheureusement, je n'ai pas les bordures délimitant les cellules. J'ai essayé le code en gras mais rien ne se passe.
Quelqu'un pourrait m'aider à trouver une solution pour avoir un joli tableau:mrgreen: ?
merci de votre aide @+
