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

project groups: dbl click on file open in source editor

Browse Source 
git-svn-id: trunk@50391 -
This commit is contained in:
mattias 2015-11-18 13:34:01 +00:00
parent 4894afcb9a
commit 80d795b245
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/projectgroups/projectgroup.pp
View File

@ -876,7 +876,7 @@ var
ProjFile: TLazProjectFile; ProjFile: TLazProjectFile;
PkgList: TFPList; PkgList: TFPList;
Pkg: TIDEPackage; Pkg: TIDEPackage;
PkgName, Path, SubPath, CurFilename: String; PkgName, Path, SubPath, CurFilename, BaseDir: String;
xml: TXMLConfig; xml: TXMLConfig;
begin begin
if FFiles<>nil then exit; // already loaded if FFiles<>nil then exit; // already loaded
@ -892,7 +892,7 @@ begin
FFiles:=TStringList.Create; FFiles:=TStringList.Create;
for i:=0 to AProject.FileCount-1 do begin for i:=0 to AProject.FileCount-1 do begin
ProjFile:=AProject.Files[i]; ProjFile:=AProject.Files[i];
if ProjFile.IsPartOfProject then if not ProjFile.IsPartOfProject then continue;
FFiles.Add(ProjFile.Filename); FFiles.Add(ProjFile.Filename);
end; end;
@ -917,6 +917,7 @@ begin
try try
if xml<>nil then begin if xml<>nil then begin
// load list of files from lpi // load list of files from lpi
BaseDir:=ExtractFilePath(Filename);
Path:='ProjectOptions/Units/'; Path:='ProjectOptions/Units/';
Cnt:=xml.GetValue(Path+'Count',0); Cnt:=xml.GetValue(Path+'Count',0);
for i:=0 to Cnt-1 do begin for i:=0 to Cnt-1 do begin
@ -925,6 +926,8 @@ begin
continue; continue;
CurFilename:=xml.GetValue(SubPath+'Filename/Value',''); CurFilename:=xml.GetValue(SubPath+'Filename/Value','');
if CurFilename='' then continue; if CurFilename='' then continue;
if not FilenameIsAbsolute(CurFilename) then
CurFilename:=TrimFilename(BaseDir+CurFilename);
FFiles.Add(CurFilename); FFiles.Add(CurFilename);
end; end;

9
components/projectgroups/projectgroupeditor.pas
View File

@ -505,7 +505,7 @@ Var
aFilename: String; aFilename: String;
begin begin
ND:=SelectedNodeData; ND:=SelectedNodeData;
debugln(['TProjectGroupEditorForm.TVPGDblClick ',DbgSName(Sender),' ',TVPG.Selected.Text,' ',ND<>nil]); //debugln(['TProjectGroupEditorForm.TVPGDblClick ',DbgSName(Sender),' ',TVPG.Selected.Text,' ',ND<>nil]);
if ND=nil then exit; if ND=nil then exit;
case ND.NodeType of case ND.NodeType of
ntUnknown: ; ntUnknown: ;
@ -517,10 +517,11 @@ begin
ntFiles: ; ntFiles: ;
ntFile: ntFile:
begin begin
aFilename:=GetTVNodeFilename(TVPG.Selected); aFilename:=ND.Value;
debugln(['TProjectGroupEditorForm.TVPGDblClick File=',aFilename]); //debugln(['TProjectGroupEditorForm.TVPGDblClick File=',aFilename]);
if aFilename='' then exit; if aFilename='' then exit;
LazarusIDE.DoOpenEditorFile(aFilename,-1,-1,[ofAddToRecent]); LazarusIDE.DoOpenEditorFile(aFilename,-1,-1,[ofAddToRecent,
ofRegularFile,ofDoNotLoadResource,ofOnlyIfExists]);
end; end;
ntDependencies: ; ntDependencies: ;
ntDependency: ; ntDependency: ;