paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 17:39:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32: improved comment for OpenFileDialog hook

Browse Source 
git-svn-id: trunk@9751 -
This commit is contained in:
vincents 2006-08-26 20:50:07 +00:00
parent 02b059ec49
commit e11c8924b5
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -212,11 +212,12 @@ end;
Unfortunately, this only works with win9x and the unicode versions of later
windows versions.
Therefore in the hook function, if the size of the initial buffer is not large
enough, the selected files are copied into another buffer. When dialog is
closed with a FNERR_BUFFERTOOSMALL error, this buffer is used to get the
selected files. If this error did not occur, the normal way of retrieving the
files is used.
Therefore in the hook function, if the size of the initial buffer (lpStrFile)
is not large enough, the selected files are copied into a string. A pointer to
this string is kept in the lCustData field of the the OpenFileName struct.
When dialog is closed with a FNERR_BUFFERTOOSMALL error, this string is used to
get the selected files. If this error did not occur, the normal way of
retrieving the files is used.
}
type
@ -236,10 +237,11 @@ begin
OpenFileName := OpenFileNotify^.lpOFN;
// NeededSize is the size that the lpStrFile buffer must have.
// the lpstrFile buffer contains the directory and a list of files
// for example 'c:\winnt'#0'file1.txt'#0'file2.txt'#0#0
// GetFolderPath is upper limit for the path, GetSpec for the files.
// for example 'c:\winnt'#0'file1.txt'#0'file2.txt'#0#0.
// 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"'
// '"file1.txt" "file2.txt"', so that size will be two bytes per filename
// more than needed in the 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