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
JvCLlaz - Duplicate file ...
by
wp
[
Today
at 10:27:19 pm]
Lazarus Android ans LAMW
by
eldonfsr
[
Today
at 09:51:46 pm]
my programs crash
by
turunk
[
Today
at 08:43:46 pm]
Bug and crash. I think th...
by
wp
[
Today
at 08:33:50 pm]
using RunCommand to wrap ...
by
nomorelogic
[
Today
at 08:14:56 pm]
FPC 3.2.2 / Apple Silicon...
by
PepperJules
[
Today
at 07:55:11 pm]
Compile error using FPC3....
by
PepperJules
[
Today
at 07:34:29 pm]
Learn how to (un)dock a T...
by
Hansvb
[
Today
at 07:10:38 pm]
Accessing parent form fro...
by
nikel
[
Today
at 06:58:18 pm]
[SOLVED] Read Excel file ...
by
Hansvb
[
Today
at 06:43:00 pm]
TBGRASpeedButton not show...
by
qk
[
Today
at 06:33:27 pm]
UADE Library
by
Gigatron
[
Today
at 05:57:57 pm]
Drawing with psInsidefram...
by
Jonny
[
Today
at 05:17:09 pm]
Rotaring cube
by
Mathias
[
Today
at 05:16:05 pm]
Gradient with fcl-image
by
Jonny
[
Today
at 05:05:03 pm]
Custom self drawn compone...
by
Artur W.
[
Today
at 04:33:41 pm]
visasession
by
Laksen
[
Today
at 04:21:54 pm]
Length of String is not f...
by
BrunoK
[
Today
at 04:03:35 pm]
Treeview: full-width back...
by
wp
[
Today
at 04:00:16 pm]
Hi there
by
LV
[
Today
at 03:26:06 pm]
Feature request - new "fi...
by
cdbc
[
Today
at 03:11:43 pm]
Using Heaptrace with Linu...
by
cdbc
[
Today
at 03:10:14 pm]
Random Carpet Designs: La...
by
majolika
[
Today
at 01:18:49 pm]
changing the position of ...
by
paweld
[
Today
at 11:37:07 am]
MyLangEdit 2.0 for editin...
by
marcov
[
Today
at 11:24:44 am]
« previous
next »
Print
Pages: [
1
]
Author
Topic: How to print a DrawGrid (Read 1306 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: 1295
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: 12595
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: 12595
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