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

Components, printers: fixed compilation with FPC > 2.6.2

Browse Source 
git-svn-id: trunk@43553 -
This commit is contained in:
maxim 2013-12-16 21:26:11 +00:00
parent c3f0c69262
commit 07ebd480ca
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -570,7 +570,11 @@ begin
end end
else else
begin begin
{$IFDEF FPC_FULLVERSION>20602}
PDev.Device := PChar(TmpDevModeA^.dmDeviceName);
{$ELSE}
PDev.Device := PChar(PByte(TmpDevModeA^.dmDeviceName)); PDev.Device := PChar(PByte(TmpDevModeA^.dmDeviceName));
{$ENDIF}
PDev.DefaultPaper := TmpDevModeA^.dmPaperSize; PDev.DefaultPaper := TmpDevModeA^.dmPaperSize;
PDev.DefaultBin := TmpDevModeA^.dmDefaultSource; PDev.DefaultBin := TmpDevModeA^.dmDefaultSource;
end; end;