paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 04:43:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* handle wildcard parameters to the ide. (#6597)

Browse Source 
git-svn-id: trunk@11507 -
This commit is contained in:
marco 2008-08-03 19:06:20 +00:00
parent e64aec7c6e
commit f206a6421f
2 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/fp.pas
View File

@ -206,7 +206,7 @@ begin
end end
else else
if not BeforeINI then if not BeforeINI then
TryToOpenFile(nil,Param,0,0,{false}true); TryToOpenFileMulti(nil,Param,0,0,{false}true);
end; end;
end; end;

17
ide/fpviews.pas
View File

@ -463,6 +463,7 @@ function IOpenEditorWindow(Bounds: PRect; FileName: string; CurX,CurY: sw_intege
function LastSourceEditor : PSourceWindow; function LastSourceEditor : PSourceWindow;
function SearchOnDesktop(FileName : string;tryexts:boolean) : PSourceWindow; function SearchOnDesktop(FileName : string;tryexts:boolean) : PSourceWindow;
function TryToOpenFile(Bounds: PRect; FileName: string; CurX,CurY: sw_integer;tryexts: boolean): PSourceWindow; function TryToOpenFile(Bounds: PRect; FileName: string; CurX,CurY: sw_integer;tryexts: boolean): PSourceWindow;
function TryToOpenFileMulti(Bounds: PRect; FileName: string; CurX,CurY: sw_integer;tryexts: boolean): PSourceWindow;
function ITryToOpenFile(Bounds: PRect; FileName: string; CurX,CurY: sw_integer;tryexts, ShowIt, function ITryToOpenFile(Bounds: PRect; FileName: string; CurX,CurY: sw_integer;tryexts, ShowIt,
ForceNewWindow:boolean): PSourceWindow; ForceNewWindow:boolean): PSourceWindow;
function LocateSourceFile(const FileName: string; tryexts: boolean): string; function LocateSourceFile(const FileName: string; tryexts: boolean): string;
@ -3976,6 +3977,22 @@ begin
TryToOpenFile:=ITryToOpenFile(Bounds,FileName,CurX,CurY,tryexts,true,false); TryToOpenFile:=ITryToOpenFile(Bounds,FileName,CurX,CurY,tryexts,true,false);
end; end;
function TryToOpenFileMulti(Bounds: PRect; FileName: string; CurX,CurY: sw_integer;tryexts:boolean): PSourceWindow;
var srec:SearchRec;
dir,name,ext : string;
begin
fsplit(filename,dir,name,ext);
dir:=completedir(dir);
FindFirst(filename,anyfile,Srec);
while (DosError=0) do
begin
ITryToOpenFile(Bounds,dir+srec.name,CurX,CurY,tryexts,true,false);
FindNext(srec);
end;
FindClose(srec);
end;
function LocateSingleSourceFile(const FileName: string; tryexts: boolean): string; function LocateSingleSourceFile(const FileName: string; tryexts: boolean): string;
var D : DirStr; var D : DirStr;
N : NameStr; N : NameStr;