paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 10:40:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE, Printing: Fix printing the source or selection would miss the last line out (Bug #13267)

Browse Source 
git-svn-id: trunk@19000 -
This commit is contained in:
martin 2009-03-15 16:54:08 +00:00
parent 4ede257fc0
commit b8e7143c97
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/printers/design/sourceprinter.pas
View File

@ -84,7 +84,7 @@ begin
LineNum := Pred(PageNum) * LinesPerPage + l;
//check if end of text is reached
if LineNum < Text.Count then
if LineNum <= Text.Count then
begin
if ShowLineNumbers then
s := Format('%4d: ',[LineNum])