From a9a3e13ff51140d0c5b24e78840dc42e608f489e Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Fri, 16 Sep 2011 22:36:01 +0000
Subject: [PATCH] LCL: fixed range check on win

git-svn-id: trunk@32372 -
---
 lcl/interfaces/win32/win32wscustomlistview.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/win32/win32wscustomlistview.inc b/lcl/interfaces/win32/win32wscustomlistview.inc
index 3b32ee4b77..6debb9afde 100644
--- a/lcl/interfaces/win32/win32wscustomlistview.inc
+++ b/lcl/interfaces/win32/win32wscustomlistview.inc
@@ -981,7 +981,7 @@ end;
 
 class function TWin32WSCustomListView.GetHeader(const AHandle: THandle): THandle;
 begin
-  Result := SendMessage(AHandle, LVM_GETHEADER, 0, 0);
+  Result := THandle(SendMessage(AHandle, LVM_GETHEADER, 0, 0));
   if Result <> 0 then Exit;
 
   // probably old version, try the first child