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

fixed printer height, width without selected printer from Olivier

Browse Source 
git-svn-id: trunk@6233 -
This commit is contained in:
mattias 2004-11-11 18:49:58 +00:00
parent d5414fe864
commit d6ec9d4553
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/printers.pas
View File

@ -636,6 +636,8 @@ begin
if (fOwnedPrinter.Printers.Count>0) and
((fSupportedPapers.Count=0) or (fLastPrinterIndex<>fOwnedPrinter.PrinterIndex)) then
begin
fOwnedPrinter.SelectCurrentPrinterOrDefault;
fSupportedPapers.Clear;
fOwnedPrinter.DoEnumPapers(fSupportedPapers);
fLastPrinterIndex:=fOwnedPrinter.PrinterIndex;