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

printers, fixes AV for qt-win32 issue

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
components/printers/win32
winprinters.incwinutilprn.pas

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

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

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

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