paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 06:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32: fixed warning

Browse Source 
git-svn-id: trunk@9813 -
This commit is contained in:
vincents 2006-09-05 09:04:58 +00:00
parent 3140af0ad5
commit 29c4abf8ee
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/win32/win32wsdialogs.pp
View File

@ -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);