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

MG: added non existing filename to multiselection in TOpenDialog

Browse Source 
git-svn-id: trunk@517 -
This commit is contained in:
lazarus 2001-12-12 20:45:30 +00:00
parent 09c2dadc23
commit 9a551ee4dc
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/pascalparsertool.pas
View File

@ -32,7 +32,7 @@
ToDo: ToDo:
-Parsing of GUID -Parsing of GUID
-Parsing of With an Case -Parsing of With and Case
-Parsing of proc modifier alias [Alias: '']; -Parsing of proc modifier alias [Alias: ''];
} }
unit PascalParserTool; unit PascalParserTool;

11
lcl/interfaces/gtk/gtkcallback.inc
View File

@ -677,6 +677,7 @@ var
fileInfo : PGChar; fileInfo : PGChar;
fileList : PGTKCList; fileList : PGTKCList;
DirName : string; DirName : string;
FileName : string;
begin begin
Result := True; Result := True;
theDialog := TCommonDialog(data); theDialog := TCommonDialog(data);
@ -689,9 +690,13 @@ begin
// check extra options // check extra options
if ofAllowMultiSelect in TOpenDialog(theDialog).Options then if ofAllowMultiSelect in TOpenDialog(theDialog).Options then
begin begin
DirName:=ExtractFilePath(gtk_file_selection_get_filename(PGtkFileSelection(FPointer))); FileName:=gtk_file_selection_get_filename(
PGtkFileSelection(FPointer));
DirName:=ExtractFilePath(FileName);
TFileDialog(data).FileName := ''; TFileDialog(data).FileName := '';
TStringList(TFileDialog(theDialog).Files).Clear; TStringList(TFileDialog(theDialog).Files).Clear;
if not FileExists(FileName) then
TStringList(TFileDialog(theDialog).Files).Add(FileName);
fileList := PGtkCList(PGtkFileSelection(FPointer)^.file_list); fileList := PGtkCList(PGtkFileSelection(FPointer)^.file_list);
rowNum := 0; rowNum := 0;
cListRow := fileList^.row_list; cListRow := fileList^.row_list;
@ -1580,7 +1585,11 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.55 2001/12/12 20:45:30 lazarus
MG: added non existing filename to multiselection in TOpenDialog
Revision 1.54 2001/12/12 20:19:19 lazarus Revision 1.54 2001/12/12 20:19:19 lazarus
Modified the the GTKFileSelection so that it will handle and use Modified the the GTKFileSelection so that it will handle and use
CTRL and SHIFT keys in a fashion similar to Windows. CTRL and SHIFT keys in a fashion similar to Windows.