From 07ebd480ca92599fb3d3c0bf7524f33c53d847ef Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Mon, 16 Dec 2013 21:26:11 +0000
Subject: [PATCH] Components, printers: fixed compilation with FPC > 2.6.2

git-svn-id: trunk@43553 -
---
 components/printers/win32/winprinters.inc | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/components/printers/win32/winprinters.inc b/components/printers/win32/winprinters.inc
index 4867375e06..4781e69607 100644
--- a/components/printers/win32/winprinters.inc
+++ b/components/printers/win32/winprinters.inc
@@ -570,7 +570,11 @@ begin
               end
               else
               begin
+                {$IFDEF FPC_FULLVERSION>20602}
+                PDev.Device := PChar(TmpDevModeA^.dmDeviceName);
+                {$ELSE}
                 PDev.Device := PChar(PByte(TmpDevModeA^.dmDeviceName));
+                {$ENDIF}
                 PDev.DefaultPaper := TmpDevModeA^.dmPaperSize;
                 PDev.DefaultBin   := TmpDevModeA^.dmDefaultSource;
               end;