From 18fa3ce4ca790406436279c1cb732c3812bf751b Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 13 May 2009 10:23:19 +0000
Subject: [PATCH] reduced warnings

git-svn-id: trunk@19952 -
---
 lcl/interfaces/gtk2/gtk2wscalendar.pp | 2 +-
 lcl/postscriptcanvas.pas              | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/gtk2/gtk2wscalendar.pp b/lcl/interfaces/gtk2/gtk2wscalendar.pp
index b9e8ff1448..653a5c6f8d 100644
--- a/lcl/interfaces/gtk2/gtk2wscalendar.pp
+++ b/lcl/interfaces/gtk2/gtk2wscalendar.pp
@@ -216,7 +216,7 @@ begin
     if PtInRect(R, APoint) then
       Exit(cpTitleBtn);
     R.Left := R.Right + 1;
-    R.Right := FrameW + ArrowW + PGtkCalendarPrivate(GtkCalendar^.private_data)^.max_month_width + 1;
+    R.Right := FrameW + ArrowW + integer(PGtkCalendarPrivate(GtkCalendar^.private_data)^.max_month_width) + 1;
     if PtInRect(R, APoint) then
       Exit(cpTitleMonth);
     R.Left := R.Right;
diff --git a/lcl/postscriptcanvas.pas b/lcl/postscriptcanvas.pas
index 3bce96fe15..18b84213f4 100644
--- a/lcl/postscriptcanvas.pas
+++ b/lcl/postscriptcanvas.pas
@@ -551,7 +551,7 @@ type
 
 procedure TAscii85Encoder.EmitData;
 const
-  Cn: array[0..4] of longint = (85*85*85*85,85*85*85,85*85,85,1);
+  Cn: array[0..4] of longword = (85*85*85*85,85*85*85,85*85,85,1);
 var
   B: byte;
   i,n: Integer;