From f7c92839bd5be20f1a6942ced17b375769e4dec6 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Mon, 19 Mar 2012 11:52:01 +0000
Subject: [PATCH] Minor customdrawn improvement, fixes compilation in some fpc
 versions

git-svn-id: trunk@36164 -
---
 lcl/interfaces/customdrawn/customdrawnproc.pas   | 2 ++
 lcl/interfaces/customdrawn/customdrawnwinapi.inc | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/lcl/interfaces/customdrawn/customdrawnproc.pas b/lcl/interfaces/customdrawn/customdrawnproc.pas
index 8a75878a67..a50e8fd445 100644
--- a/lcl/interfaces/customdrawn/customdrawnproc.pas
+++ b/lcl/interfaces/customdrawn/customdrawnproc.pas
@@ -576,6 +576,8 @@ begin
 
   // Consider the form scrolling
   // ToDo: Figure out why this "div 2" factor is necessary for drawing non-windows controls and remove this factor
+  // If you remove this factor then the wincontrols are fine,
+  // but graphiccontrols scroll with a different speed which is a huge problem
   ACanvas.BaseWindowOrg := Point(0, - lWindowHandle.ScrollY div 2);
   ACanvas.WindowOrg := Point(0, 0);
 
diff --git a/lcl/interfaces/customdrawn/customdrawnwinapi.inc b/lcl/interfaces/customdrawn/customdrawnwinapi.inc
index 2524b40192..c02e67684e 100644
--- a/lcl/interfaces/customdrawn/customdrawnwinapi.inc
+++ b/lcl/interfaces/customdrawn/customdrawnwinapi.inc
@@ -1147,7 +1147,7 @@ var
   LazDC: TLazCanvas absolute DC;
   lControlStateEx: TCDControlStateEx;
   lState: TCDControlState;
-  lSize: TSize;
+  lSize: Types.TSize;
 begin
   Result := False;