paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 03:19: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

9
components/projectgroups/projectgroup.pp
View File

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

9
components/projectgroups/projectgroupeditor.pas
View File

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