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

printers, fixes AV for qt-win32 issue #10611

Browse Source 
git-svn-id: trunk@13724 -
This commit is contained in:
jesus 2008-01-11 07:06:00 +00:00
parent 39dd581366
commit 6bdc560d73
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,7 +2,7 @@
{************************************************************** {**************************************************************
Implementation for winprinter Implementation for winprinter
***************************************************************} ***************************************************************}
Uses WinUtilPrn, InterfaceBase, LCLIntf, WinVer; Uses InterfaceBase, LCLIntf, WinVer, WinUtilPrn;
// todo: this ^ is a mess: mixed WinUtilPrn/Windows units clean... // todo: this ^ is a mess: mixed WinUtilPrn/Windows units clean...
@ -33,7 +33,7 @@ end;
destructor TWinPrinter.Destroy; destructor TWinPrinter.Destroy;
begin begin
ClearDC; ClearDC;
DoResetPrintersList; DoResetPrintersList;
if fPrinterHandle<>0 then if fPrinterHandle<>0 then
@ -81,7 +81,7 @@ begin
if (Printers.Count>0) and not RawMode then if (Printers.Count>0) and not RawMode then
begin begin
SetDC; SetDC;
Result:=GetDeviceCaps(fDC, LOGPIXELSX); Result:=windows.GetDeviceCaps(fDC, LOGPIXELSX);
end; end;
end; end;
@ -91,7 +91,7 @@ begin
if (Printers.Count>0) and not RawMode then if (Printers.Count>0) and not RawMode then
begin begin
SetDC; SetDC;
Result:=GetDeviceCaps(fDC,LOGPIXELSY); Result:=windows.GetDeviceCaps(fDC,LOGPIXELSY);
end; end;
end; end;

2
components/printers/win32/winutilprn.pas
View File

@ -34,7 +34,7 @@ interface
{$ENDIF} {$ENDIF}
uses uses
Types, Classes, SysUtils, LCLType,Printers; Types, Classes, SysUtils, LCLType, Printers;
const const
{$i winutilprnconst.inc} {$i winutilprnconst.inc}