From 29c4abf8ee7ea371b2b982f7d5fa3294da06ec5a Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Tue, 5 Sep 2006 09:04:58 +0000
Subject: [PATCH] win32: fixed warning

git-svn-id: trunk@9813 -
---
 lcl/interfaces/win32/win32wsdialogs.pp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lcl/interfaces/win32/win32wsdialogs.pp b/lcl/interfaces/win32/win32wsdialogs.pp
index 2fb2672e01..e94a166ab4 100644
--- a/lcl/interfaces/win32/win32wsdialogs.pp
+++ b/lcl/interfaces/win32/win32wsdialogs.pp
@@ -228,7 +228,7 @@ function OpenFileDialogCallBack(hwnd : Handle; uMsg : UINT; wParam: WPARAM;
 var
   OpenFileNotify: LPOFNOTIFY;
   OpenFileName: POPENFILENAME;
-  NeededSize: DWORD;
+  NeededSize: SizeInt;
   FileNames: pstring;
 begin
   if uMsg = WM_NOTIFY then begin
@@ -241,11 +241,11 @@ begin
       // GetFolderPath returns upper limit for the path, GetSpec for the files.
       // This is not exact because the GetSpec returns the size for
       // '"file1.txt" "file2.txt"', so that size will be two bytes per filename
-      // more than needed in the lpStrFile buffer.
+      // more than needed in thlengthe lpStrFile buffer.
       NeededSize := CommDlg_OpenSave_GetFolderPath(GetParent(hwnd), nil, 0) +
                       CommDlg_OpenSave_GetSpec(GetParent(hwnd), nil, 0);
       // test if we need to use our own storage
-      if OpenFileName^.nMaxFile<NeededSize then begin
+      if SizeInt(OpenFileName^.nMaxFile)<NeededSize then begin
         if OpenFileName^.lCustData=0 then
           OpenFileName^.lCustData := Windows.LParam(new(PString));
         FileNames := PString(OpenFileName^.lCustData);