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

git-svn-id: trunk@11507 -

ide/fp.pas

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

ide/fpviews.pas

@@ -463,6 +463,7 @@ function IOpenEditorWindow(Bounds: PRect; FileName: string; CurX,CurY: sw_intege
 function LastSourceEditor : PSourceWindow;
 function SearchOnDesktop(FileName : string;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,
          ForceNewWindow:boolean): PSourceWindow;
 function LocateSourceFile(const FileName: string; tryexts: boolean): string;
@@ -3976,6 +3977,22 @@ begin
   TryToOpenFile:=ITryToOpenFile(Bounds,FileName,CurX,CurY,tryexts,true,false);
 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;
 var D : DirStr;
     N : NameStr;