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

Merged revision(s) 48887 #28089b25f7 from trunk:

Browse Source 
Printers, win: check for PDev.DevModeSize that prevents error 204, from DaLiv, issue #27970
........

git-svn-id: branches/fixes_1_4@48948 -
This commit is contained in:
maxim 2015-05-06 22:22:15 +00:00
parent fef115d67d
commit 136574a27f
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -257,15 +257,17 @@ begin
begin begin
PDev.DevModeSize := DocumentPropertiesW(0, FPrinterHandle, Pwidechar(UTF8Decode(PDev.Name)), PDev.DevModeSize := DocumentPropertiesW(0, FPrinterHandle, Pwidechar(UTF8Decode(PDev.Name)),
nil, nil, 0); nil, nil, 0);
ReallocMem(Pdev.DevModeW, PDev.DevModeSize); if PDev.DevModeSize>0 then
ReallocMem(Pdev.DevModeW, PDev.DevModeSize);
end end
else else
begin begin
PDev.DevModeSize := DocumentProperties(0, FPrinterHandle, pchar(PDev.Name), PDev.DevModeSize := DocumentProperties(0, FPrinterHandle, pchar(PDev.Name),
nil, nil, 0); nil, nil, 0);
ReallocMem(Pdev.DevModeA, PDev.DevModeSize); if PDev.DevModeSize>0 then
ReallocMem(Pdev.DevModeA, PDev.DevModeSize);
end; end;
if PDev.DevModeSize=0 then begin if PDev.DevModeSize<=0 then begin
result := false; result := false;
exit; exit;
end; end;