paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 19:59:31 +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

6
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...
@ -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;