SAVE StringGrid to PDF

[seghele0]

Attached is the latest updated version.
The header is still missing.
Thanks in advance.
 

[dseligo]

Another small problem, I sometimes use the application on a Linux platform (Mint) by using "Wine". The 'exe' works fine via 'wine' but the font selection is a problem.
Maybe it is better not to encode a imposed font, but just the size of 15pt.
Is this possible?
 

This code should compile under Linux, so you don't have to use Wine. You could also ship font you need with your program, and use it so you have same PDF everywhere.

Sorry, I forgot to mention that the 'Headers' should also be shown on the PDF.

In line 55 you start for loop with 1. Rows in StringGrid are zero based, so change line 55 to:

Code: Pascal  [Select][+][-]

1.     for i := 0 to StringGrid1.RowCount - 1 do

[seghele0]

Thanks for the quick tip.
I know I'm pushing for improvements to the code, but at 75 years old, things slow down.
As you can see, the PDF (attachment) is not really readable. The columns are too close to each other. Can this be adjusted?
 

[dseligo]

Thanks for the quick tip.
I know I'm pushing for improvements to the code, but at 75 years old, things slow down.

No problem.

As you can see, the PDF (attachment) is not really readable. The columns are too close to each other. Can this be adjusted?
 

In line 60 of last project you sent is where you write text out. You control X (horizontal) position with expression 15 + j * 10. 15 is fixed offset from left side, j is column you write and then you multiply j with 10. Increase this multiplier and you will get wider columns.
I.e.:

Code: Pascal  [Select][+][-]

1.         Page.WriteText(15 + j * 20, YPos, StringGrid1.Cells[j, i]);

[seghele0]

Incredible and efficient.
Your kind support is an attempt to make the world a better place.
 
Thank you all.

[dseligo]

Your kind support is an attempt to make the world a better place.

LOL, I wish it is that simple.

I wanted to mention earlier, but forgot: maybe you already know, but you could also use LazReport (https://wiki.freepascal.org/LazReport_Tutorial) or FPReport (https://wiki.freepascal.org/FPReport_Designer) to design documents and from them create PDF files.
Benefit is that you can visually design documents and this is great when documents become more complex. Also, you can print it directly and export it to other formats. But it also involves learning how to use these components.

[jianwt]

@dseligo. When exporting PDF, can I export StringGrid horizontal and vertical form lines as well?

[dseligo]

@dseligo. When exporting PDF, can I export StringGrid horizontal and vertical form lines as well?

Well, you have DrawLine and DrawRect methods in TPDFPage, but you have to calculate coordinates.
I don't know of a simple way to do it like this. That is why, in reply #20, I mentioned that LazReport or FPReport (and probably some other components too) can be used when documents become more complex. Manually creating PDF can quickly become tedious.

[seghele0]

I try to use LazReport as little as possible.
The code you all provided is great.
An additional procedure was added.
There is another request for a line under the heading of the stringgrid, but I get ERROR.
"Line 37: Identifier idents no member "Title".
I hope for a solution.
Thanks.

[cdbc]

Hi
Try this:

Code: Pascal  [Select][+][-]

1.   // Get the bottom position of the StringGrid heading
2.   Y1 := StringGrid1.Top + StringGrid1.Row[0].Height;

Regards Benny

[seghele0]

Still ERROR:

Exit code 1, Errors: 2
unit1.pas(37,43) Error: Illegal qualifier
unit1.pas(37,45) Error: Syntax error, ";" expected but "." found

Code: Pascal  [Select][+][-]

1.   Y1 := StringGrid1.Top + StringGrid1.Row[0].Height;  

[cdbc]

Then go have a looksee in the implementation of TStringgrid.
"Use the Source Luke"
/bc

[seghele0]

 
Sorry, but I don't get it.
English is not my native language.

[dseligo]

Try this:

Code: Pascal  [Select][+][-]

1. Y1 := StringGrid1.Top + StringGrid1.RowHeights[0];

[seghele0]

Thanks for your reply0
No line is drawn in the PDF.
On the Form there is a new little diagonal line, top left.
The code is still not correct.