paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-25 13:43:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

Printer, fix cups printer default paper, from C. Western, issue

Browse Source 
git-svn-id: trunk@23998 -
This commit is contained in:
jesus 2010-03-14 22:28:23 +00:00
parent 19a69132a3
commit 75952cf1f0
1 changed files with 1 additions and 1 deletions

2
components/printers/unix/cupsprinters.inc
View File

@ -844,7 +844,7 @@ begin
begin
Option := ppdFindOption(CupsPPD, PChar('PageSize'));
Choice := Option^.choices;
fCupsDefaultPaper := Choice^.choice;
fCupsDefaultPaper := Option^.defchoice;
c := 0;
while (Choice<>nil) and (c<Option^.num_choices) do
begin