Discussion :

[Papy214]

Bonjour

J'utilise cette librairie pour générer des PDF.

https://github.com/synopse/SynPDF

ça fonctionne bien mais je cherche le moyen de d'avoir une grille de données avec des lignes autour de chaque cellule, comme dans Excel.
J'ai trouvé la fonction qui trace une ligne en haut d'une cellule et je peux utiliser la même fonction pour faire celle d'en dessous mais impossible de trouver celle pour dessiner la ligne verticale à gauche et à droite.
Il y a une fonction quii indique les positions gauche et droite d'une colonne mais pas la hauteur.

Si quelqu'un utilise cette librairie et connait cette solution, ça m'arrangerait bien :-)

[Paul TOTH]

avec SynPDF tu peux utiliser un Canvas pour PDF qui te permet d'utiliser toutes les fonctions de TCanvas

[Papy214]

S'il faut tracer une "box" autour de chaque cellule, je peux le faire.
ce n'est pas tant la question du traçage de la ligne qui me pose problème mais plutôt celle de trouver les bonnes coordonnées :-(
Comment je peux trouver la hauteur d'une cellule ?

[Papy214]

J'ai trouvé en faisant comme ça mais je trouve ça bien lourd. Je suis bien certain que l'auteur a pensé à un truc plus simple mais bon, je m'en contenterai pour le moment

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Cl := Pages.GetColumnInfo(0);
 
    P1 := Pages.CurrentYPos;
    Pages.DrawTextAcrossCols([Translations['_RIGHT_EYE']]);
    P2 := Pages.CurrentYPos;
 
    Rct := Pages.MmToPrinter( Rect(Cl.ColLeft, P1, Cl.ColRight, P2));
    Pages.Canvas.MoveTo(Rct.Left, Rct.Top);
    Pages.Canvas.LineTo(Rct.Right, Rct.Top);
    Pages.Canvas.LineTo(Rct.Right, Rct.Bottom);
    Pages.Canvas.LineTo(Rct.Left, Rct.Bottom);
    Pages.Canvas.LineTo(Rct.Left, Rct.Top);

[SergioMaster]

Perso, les PDFs je les génère via FastReport (et les visionne avec PDFView de Winsoft)

[Papy214]

C'est aussi une solution.
Pour Info, SynPDF a une visionneuse qui fait le boulot. Pas besoin d'un second composant