paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:39:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: source editor popup menu: open unit/lfm of include file

Browse Source 
git-svn-id: trunk@34839 -
This commit is contained in:
mattias 2012-01-21 14:08:14 +00:00
parent c4046b45fa
commit 74acb7f2d8
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/sourceeditor.pp
View File

@ -2035,7 +2035,7 @@ begin
SrcEditHintWindow.Provider:=TFPDocHintProvider.Create(SrcEditHintWindow);
end;
SrcEditHintWindow.AnchorForm := TheForm;
debugln(['TSourceEditCompletion.StartShowCodeHelp ',CodeToolsOpts.IdentComplShowHelp]);
//debugln(['TSourceEditCompletion.StartShowCodeHelp ',CodeToolsOpts.IdentComplShowHelp]);
if CodeToolsOpts.IdentComplShowHelp then begin
TheForm.LongLineHintType:=sclpNone;
SrcEditHintWindow.HelpEnabled:=true;
@ -5443,17 +5443,21 @@ begin
CurFilename:=ASrcEdit.FileName;
ShortFileName:=ExtractFileName(CurFilename);
if (FilenameIsAbsolute(CurFilename)) then begin
MainCodeBuf:=CodeToolBoss.GetMainCode(ASrcEdit.CodeBuffer);
if (MainCodeBuf<>nil) and (MainCodeBuf<>ASrcEdit.CodeBuffer)
and (not MainCodeBuf.IsVirtual) then begin
// this is an include file => add link to open unit
AddContextPopupMenuItem(
Format(lisOpenLfm,[CreateRelativePath(MainCodeBuf.Filename,ASrcEdit.Filename)]),
true,@OnPopupMenuOpenFile);
CurFilename:=MainCodeBuf.Filename;
ShortFileName:=ExtractFileName(CurFilename);
end;
if FilenameIsPascalUnit(CurFilename) then begin
MaybeAddPopup('.lfm');
MaybeAddPopup('.dfm');
MaybeAddPopup('.lrs');
MaybeAddPopup('.s');
end else if CompareFileExt(CurFilename,'.inc',false)=0 then begin
// include file => check unit
MainCodeBuf:=CodeToolBoss.GetMainCode(ASrcEdit.CodeBuffer);
if (MainCodeBuf<>nil) then begin
MaybeAddPopup('.lfm', nil,MainCodeBuf.Filename);
end;
end;
if (CompareFileExt(CurFilename,'.lfm',true)=0)
or (CompareFileExt(CurFilename,'.dfm',true)=0) then begin