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

Components, printers: Fix wrong compiler directive for compiler version detection in r43553 #07ebd480ca

Browse Source 
git-svn-id: trunk@43554 -
This commit is contained in:
bart 2013-12-16 21:57:25 +00:00
parent 07ebd480ca
commit 462b02e2de
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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