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

fixed open package for current unit popup menu item in src edit

Browse Source 
git-svn-id: trunk@7814 -
This commit is contained in:
mattias 2005-09-24 08:08:46 +00:00
parent eba28f7695
commit dcdfa8de52
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/designer.pp
View File

@ -749,7 +749,7 @@ begin
if (AllComponentText[EndPos] in ['e','E']) if (AllComponentText[EndPos] in ['e','E'])
and (EndPos>1) and (EndPos>1)
and (AllComponentText[EndPos-1] in [#10,#13]) and (AllComponentText[EndPos-1] in [#10,#13])
and (AnsiCompareText(copy(AllComponentText,EndPos,3),'END')=0) and (CompareText(copy(AllComponentText,EndPos,3),'END')=0)
and ((EndPos+3>length(AllComponentText)) and ((EndPos+3>length(AllComponentText))
or (AllComponentText[EndPos+3] in [#10,#13])) or (AllComponentText[EndPos+3] in [#10,#13]))
then begin then begin

2
ide/uniteditor.pp
View File

@ -3488,7 +3488,7 @@ begin
true,@OnPopupMenuOpenPFile); true,@OnPopupMenuOpenPFile);
end; end;
//if Assigned(OnPopupMenu) then OnPopupMenu(@AddContextPopupMenuItem); if Assigned(OnPopupMenu) then OnPopupMenu(@AddContextPopupMenuItem);
end; end;
procedure TSourceNotebook.NotebookShowTabHint(Sender: TObject; procedure TSourceNotebook.NotebookShowTabHint(Sender: TObject;