paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-20 11:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: A minor optimization for getting ecFindDeclaration command. Formatting.

Browse Source 
git-svn-id: trunk@56365 -
This commit is contained in:
juha 2017-11-11 16:06:27 +00:00
parent b0701b8534
commit 24ea33059c
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/main.pp
View File

@ -3635,6 +3635,7 @@ var
IdentFound, StringFound: Boolean;
ActiveDesigner: TComponentEditorDesigner;
CurWordAtCursor: string;
FindDeclarationCmd: TIDECommand;
begin
GetCurrentUnit(ASrcEdit, AnUnitInfo);
ActiveDesigner := GetActiveDesignerSkipMainBar;
@ -3731,13 +3732,12 @@ begin
IDECommandList.FindIDECommand(ecShowAbstractMethods).Enabled := Editable;
IDECommandList.FindIDECommand(ecRemoveEmptyMethods).Enabled := Editable;
IDECommandList.FindIDECommand(ecFindDeclaration).Enabled := CurWordAtCursor<>'';
FindDeclarationCmd := IDECommandList.FindIDECommand(ecFindDeclaration);
FindDeclarationCmd.Enabled := CurWordAtCursor<>'';
if CurWordAtCursor<>'' then
IDECommandList.FindIDECommand(ecFindDeclaration).Caption :=
Format(lisFindDeclarationOf, [CurWordAtCursor])
FindDeclarationCmd.Caption := Format(lisFindDeclarationOf, [CurWordAtCursor])
else
IDECommandList.FindIDECommand(ecFindDeclaration).Caption :=
uemFindDeclaration;
FindDeclarationCmd.Caption := uemFindDeclaration;
end;
procedure TMainIDE.UpdateEditorTabCommands(Sender: TObject);
@ -9895,12 +9895,14 @@ begin
NewX,NewY,BodySource,BodyX,BodyY,BodyTopLine,BlockTopLine,BlockBottomLine,RevertableJump))
then
JumpToBodySuccess := DoJumpToCodePosition(ActiveSrcEdit, ActiveUnitInfo,
BodySource, BodyX, BodyY, BodyTopLine, BlockTopLine, BlockBottomLine, [jfAddJumpPoint, jfFocusEditor]) = mrOK;
BodySource, BodyX, BodyY, BodyTopLine, BlockTopLine, BlockBottomLine,
[jfAddJumpPoint, jfFocusEditor]) = mrOK;
end;
end;
if not JumpToBodySuccess then
DoJumpToCodePosition(ActiveSrcEdit, ActiveUnitInfo,
NewSource, NewX, NewY, NewTopLine, BlockTopLine, BlockBottomLine, [jfAddJumpPoint, jfFocusEditor]);
NewSource, NewX, NewY, NewTopLine, BlockTopLine, BlockBottomLine,
[jfAddJumpPoint, jfFocusEditor]);
end else begin
DoJumpToCodeToolBossError;
end;