Lazarus
Home
Help
TinyPortal
Search
Login
Register
Lazarus
»
Forum
»
Programming
»
General
»
How to print a DrawGrid
Free Pascal
Website
Downloads
Wiki
Documentation
Bugtracker
Mailing List
Lazarus
Website
Downloads (Laz+FPC)
Packages (OPM)
FAQ
Wiki
Documentation (RTL/FCL/LCL)
Bugtracker
CCR Bugs
GIT
Mailing List
Other languages
Foundation
Website
Useful Wiki Links
Project Roadmap
Getting the Source
Screenshots
How to use the forum
About donations (wiki)
Bookstore
Computer Math and Games in Pascal
(preview)
Lazarus Handbook
Search
Advanced search
Recent
Generic function is 'wrea...
by
cdbc
[
Today
at 06:06:30 pm]
Distance measurments
by
Thaddy
[
Today
at 05:40:54 pm]
Source code explorer - te...
by
loaded
[
Today
at 05:36:51 pm]
how to use SetSysColors?
by
robert rozee
[
Today
at 05:18:31 pm]
Treeview: full-width back...
by
d7_2_laz
[
Today
at 04:49:41 pm]
Learn how to (un)dock a T...
by
Hansvb
[
Today
at 04:47:21 pm]
Random Carpet Designs: La...
by
majolika
[
Today
at 03:30:49 pm]
Hively Library
by
Gigatron
[
Today
at 03:27:34 pm]
Can't Install Anything
by
JimKueneman
[
Today
at 03:13:00 pm]
SFTP Connection
by
rvk
[
Today
at 02:34:53 pm]
DateEdit/TimeEdit show in...
by
zeljko
[
Today
at 02:33:07 pm]
My first "tool" written w...
by
TBMan
[
Today
at 02:13:56 pm]
loading tiff image error
by
Packs
[
Today
at 01:28:22 pm]
on form drag and drop fil...
by
Packs
[
Today
at 12:46:58 pm]
TaChart how to draw buffe...
by
wp
[
Today
at 12:39:56 pm]
ANN: TRichView - rich tex...
by
Sergey Tkachenko
[
Today
at 12:37:48 pm]
How to avoid copying
by
cdbc
[
Today
at 12:22:01 pm]
Forum slow?
by
Zvoni
[
Today
at 12:18:05 pm]
Error: Internal error: Fa...
by
BubikolRamios
[
Today
at 12:07:53 pm]
read text file position b...
by
Packs
[
Today
at 12:07:45 pm]
Faster hash tables
by
Thaddy
[
Today
at 11:35:31 am]
Want to turn down the iss...
by
jianwt
[
Today
at 09:11:14 am]
Print GroupBox contents
by
GalZoli
[
Today
at 09:09:51 am]
application security
by
Thaddy
[
Today
at 08:45:43 am]
How can I hide an annoyin...
by
dpap
[
Today
at 07:59:29 am]
« previous
next »
Print
Pages: [
1
]
Author
Topic: How to print a DrawGrid (Read 1317 times)
bobonwhidbey
Hero Member
Posts: 616
How to print a DrawGrid
«
on:
December 01, 2023, 06:42:08 pm »
The TDrawGrid looks good on my monitor but I haven't figured out how to print it on the printer canvas. I think my biggest problem is getting aRect, although there's a good chance I'm going about this all wrong.
Code: Pascal
[Select]
[+]
[-]
procedure
TMyForm
.
PrintClick
(
Sender
:
TObject
)
;
var
c
,
r
:
integer
;
aRect
:
TRect
;
begin
if
PrinterSetup
.
Execute
then
begin
Printer
.
BeginDoc
;
for
c
:
=
0
to
Grid
.
ColCount
-
1
do
for
r
:
=
0
to
Grid
.
RowCount
-
1
do
begin
aRect
:
=
Grid
.
CellRect
(
c
,
r
)
;
DrawCelltoCanvas
(
Printer
.
Canvas
,
c
,
r
,
aRect
,
[
]
)
;
end
;
// for c & r
Printer
.
EndDoc
;
end
;
// printer executed
end
;
Logged
Lazarus 3.6 FPC 3.2.2 x86_64-win64-win32/win64
paweld
Hero Member
Posts: 1297
Re: How to print a DrawGrid
«
Reply #1 on:
December 01, 2023, 07:08:06 pm »
GridPrinter:
https://wiki.lazarus.freepascal.org/GridPrinter
Logged
Best regards / Pozdrawiam
paweld
bobonwhidbey
Hero Member
Posts: 616
Re: How to print a DrawGrid
«
Reply #2 on:
December 04, 2023, 04:34:00 pm »
I haven't been able to figure out how to use the GridPrinter with a TDrawGrid. The (quite good) documentation doesn't mention use with a TDrawGrid. What am I missing?
Logged
Lazarus 3.6 FPC 3.2.2 x86_64-win64-win32/win64
wp
Hero Member
Posts: 12608
Re: How to print a DrawGrid
«
Reply #3 on:
December 04, 2023, 04:42:19 pm »
I cannot remember every detail of that component, but you probably must provide a handler for the OnGetCellText event in which you tell the printer the text to be printed in a specific cell.
Or is it non-text printing you are after? In this case provide a small demo project showing the grid to be printed.
Logged
bobonwhidbey
Hero Member
Posts: 616
Re: How to print a DrawGrid
«
Reply #4 on:
December 04, 2023, 05:37:26 pm »
I am printing text but I also need to control the font name and size in each cell.
In my DrawGrid onDrawCell I use my own FillRect and TextDraw, etc. I discovered that the GridPrinter needs the OnPrintCell method. Thanks wp for getting me to look further under the hood.
Logged
Lazarus 3.6 FPC 3.2.2 x86_64-win64-win32/win64
bobonwhidbey
Hero Member
Posts: 616
Re: How to print a DrawGrid
«
Reply #5 on:
December 04, 2023, 10:31:10 pm »
One last point. How do I trigger a new page. Not needed when viewing the Grid but needed when printing. I can't use Printer.NewPage.
Logged
Lazarus 3.6 FPC 3.2.2 x86_64-win64-win32/win64
wp
Hero Member
Posts: 12608
Re: How to print a DrawGrid
«
Reply #6 on:
December 04, 2023, 11:29:20 pm »
Page breaks are determined by the component, when a row or column does not fit on the current page any more. IIRC, there is no way to manually trigger a page break. This does not mean that it's not possible, but it certainly will require some work.
Logged
Print
Pages: [
1
]
« previous
next »
Lazarus
»
Forum
»
Programming
»
General
»
How to print a DrawGrid
TinyPortal
© 2005-2018