mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-09 16:17:18 +02:00
project groups: dbl click on file open in source editor
git-svn-id: trunk@50391 -
This commit is contained in:
parent
4894afcb9a
commit
80d795b245
@ -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;
|
||||
|
||||
|
@ -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: ;
|
||||
|
Loading…
Reference in New Issue
Block a user