paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 03:48:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

printers, windows, check paper codes to match supported papers in case driver returns wrong counts (fineprint) from Andreas Schneider (\pub\bash0r)

Browse Source 
git-svn-id: trunk@9950 -
This commit is contained in:
jesus 2006-09-20 20:14:58 +00:00
parent 8af5d78f33
commit 82ef5fc46c
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/printers/win32/winprinters.inc
View File

@ -466,7 +466,9 @@ begin
DC_PAPERS,@ArPapers,nil);
if PaperC<=0 then
raise EPrinter.CreateFmt('DoEnumPapers<DC_PAPERS> error : %d, (%s)',
[GetLastError,SysErrorMessage(GetLastError)]);
[GetLastError,SysErrorMessage(GetLastError)])
else if PaperC>Lst.Count then
PaperC := Lst.Count;
for i:=0 to PaperC-1 do
Lst.Objects[i]:=TObject(ptrint(ArPapers[i]));

1
docs/Contributors.txt
View File

@ -6,6 +6,7 @@ Alexander Shiyan
Alexandre Leclerc
Alexandru Alexandrov
Andreas Hausladen
Andreas Schneider
Andrew Haines
Andrew Johnson
Bob Wingard