paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 05:39:29 +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:
-Parsing of GUID
-Parsing of With an Case
-Parsing of With and Case
-Parsing of proc modifier alias [Alias: ''];
}
unit PascalParserTool;

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

@ -677,6 +677,7 @@ var
fileInfo : PGChar;
fileList : PGTKCList;
DirName : string;
FileName : string;
begin
Result := True;
theDialog := TCommonDialog(data);
@ -689,9 +690,13 @@ begin
// check extra options
if ofAllowMultiSelect in TOpenDialog(theDialog).Options then
begin
DirName:=ExtractFilePath(gtk_file_selection_get_filename(PGtkFileSelection(FPointer)));
FileName:=gtk_file_selection_get_filename(
PGtkFileSelection(FPointer));
DirName:=ExtractFilePath(FileName);
TFileDialog(data).FileName := '';
TStringList(TFileDialog(theDialog).Files).Clear;
if not FileExists(FileName) then
TStringList(TFileDialog(theDialog).Files).Add(FileName);
fileList := PGtkCList(PGtkFileSelection(FPointer)^.file_list);
rowNum := 0;
cListRow := fileList^.row_list;
@ -1580,7 +1585,11 @@ end;
{ =============================================================================
$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
Modified the the GTKFileSelection so that it will handle and use
CTRL and SHIFT keys in a fashion similar to Windows.