pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

GridPrinter: More general code in dbgrid sample project.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8641 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-12-08 17:56:43 +00:00
parent 2aea816f91
commit 4a596b1041
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/gridprinter/examples/dbgrid/main.pas
View File

@ -73,7 +73,7 @@ end;
procedure TForm1.GridPrinter1BeforePrint(Sender: TObject); procedure TForm1.GridPrinter1BeforePrint(Sender: TObject);
begin begin
BufDataset1.First; DBGrid1.DataSource.Dataset.First;
end; end;
procedure TForm1.Button1Click(Sender: TObject); procedure TForm1.Button1Click(Sender: TObject);
@ -182,10 +182,10 @@ var
begin begin
dbGrid := AGrid as TDBGrid; dbGrid := AGrid as TDBGrid;
if dgTitles in dbGrid.Options then if dgTitles in dbGrid.Options then
BufDataset1.RecNo := ARow dbGrid.DataSource.Dataset.RecNo := ARow
// RecNo starts at 1. ARow starts at 1, too, since we display the header row // RecNo starts at 1. ARow starts at 1, too, since we display the header row
else else
BufDataset1.RecNo := ARow + 1; dbGrid.Datasource.Dataset.RecNo := ARow + 1;
// We must add 1 to the row index since the header row is hidder here. // We must add 1 to the row index since the header row is hidder here.
end; end;