From 2c2126066bbb29740d046c402badffebe72e9815 Mon Sep 17 00:00:00 2001 From: paul Date: Thu, 13 Nov 2008 14:56:45 +0000 Subject: [PATCH] win32: fix range check error in TWin32ListStringList.GetObject git-svn-id: trunk@17371 - --- lcl/interfaces/win32/win32listsl.inc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lcl/interfaces/win32/win32listsl.inc b/lcl/interfaces/win32/win32listsl.inc index 63f071e416..1b0f324efa 100644 --- a/lcl/interfaces/win32/win32listsl.inc +++ b/lcl/interfaces/win32/win32listsl.inc @@ -10,7 +10,7 @@ * * * This file is part of the Lazarus Component Library (LCL) * * * - * See the file COPYING.modifiedLGPL.txt, included in this distribution, * + * See the file COPYING.modifiedLGPL.txt, included in this distribution, * * for details about the copyright. * * * * This program is distributed in the hope that it will be useful, * @@ -224,7 +224,7 @@ End; ------------------------------------------------------------------------------} function TWin32ListStringList.GetObject(Index: Integer): TObject; Begin - HWND(Result) := Windows.SendMessage(FWin32List, FFlagGetItemData, Index, 0); + Result := TObject(PtrInt(Windows.SendMessage(FWin32List, FFlagGetItemData, Index, 0))); End; {------------------------------------------------------------------------------