paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 19:19:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

cody: find overloads: jump to proc in source editor

Browse Source 
git-svn-id: trunk@49999 -
This commit is contained in:
mattias 2015-10-08 15:22:06 +00:00
parent 2e1ed46381
commit b09cf58a9c
2 changed files with 18 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/ide/codyfindoverloads.lfm
View File

@ -159,6 +159,7 @@ object CodyFindOverloadsWindow: TCodyFindOverloadsWindow
TabOrder = 0 TabOrder = 0
OnColRowExchanged = ResultsStringGridColRowExchanged OnColRowExchanged = ResultsStringGridColRowExchanged
OnCompareCells = ResultsStringGridCompareCells OnCompareCells = ResultsStringGridCompareCells
OnDblClick = ResultsStringGridDblClick
ColWidths = ( ColWidths = (
182 182
100 100

21
components/codetools/ide/codyfindoverloads.pas
View File

@ -34,8 +34,6 @@
ToDo: ToDo:
-show line number -show line number
-Sort columns
-Jump to method
-param compatibility -param compatibility
-last visited -last visited
-filter by ancestor -filter by ancestor
@ -124,6 +122,7 @@ type
IsColumn: Boolean; sIndex, tIndex: Integer); IsColumn: Boolean; sIndex, tIndex: Integer);
procedure ResultsStringGridCompareCells(Sender: TObject; ACol, ARow, BCol, procedure ResultsStringGridCompareCells(Sender: TObject; ACol, ARow, BCol,
BRow: Integer; var Result: integer); BRow: Integer; var Result: integer);
procedure ResultsStringGridDblClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject); procedure Timer1Timer(Sender: TObject);
private private
FIdleConnected: boolean; FIdleConnected: boolean;
@ -237,7 +236,7 @@ end;
procedure TCodyFindOverloadsWindow.JumpToButtonClick(Sender: TObject); procedure TCodyFindOverloadsWindow.JumpToButtonClick(Sender: TObject);
begin begin
JumpToIdentifier;
end; end;
procedure TCodyFindOverloadsWindow.OnIdle(Sender: TObject; var Done: Boolean); procedure TCodyFindOverloadsWindow.OnIdle(Sender: TObject; var Done: Boolean);
@ -291,6 +290,11 @@ begin
debugln(['TCodyFindOverloadsWindow.ResultsStringGridCompareCells invalid ACol=',ACol,' ARow=',ARow,' BCol=',BCol,' BRow=',BRow]); debugln(['TCodyFindOverloadsWindow.ResultsStringGridCompareCells invalid ACol=',ACol,' ARow=',ARow,' BCol=',BCol,' BRow=',BRow]);
end; end;
procedure TCodyFindOverloadsWindow.ResultsStringGridDblClick(Sender: TObject);
begin
JumpToIdentifier;
end;
procedure TCodyFindOverloadsWindow.Timer1Timer(Sender: TObject); procedure TCodyFindOverloadsWindow.Timer1Timer(Sender: TObject);
var var
Cnt: Integer; Cnt: Integer;
@ -713,6 +717,7 @@ begin
// ToDo: resize columns // ToDo: resize columns
JumpToButton.Enabled:=Grid.Row>0;
end; end;
procedure TCodyFindOverloadsWindow.FreeUsesGraph; procedure TCodyFindOverloadsWindow.FreeUsesGraph;
@ -778,8 +783,15 @@ begin
end; end;
procedure TCodyFindOverloadsWindow.JumpToIdentifier; procedure TCodyFindOverloadsWindow.JumpToIdentifier;
var
i: Integer;
aProc: TCFOProc;
begin begin
i:=ResultsStringGrid.Row-1;
if (i<0) or (i>=ProcCount) then exit;
aProc:=Procs[i];
LazarusIDE.DoOpenFileAndJumpToPos(aProc.XYPos.Code.Filename,
Point(aProc.XYPos.X,aProc.XYPos.Y),-1,-1,-1,[]);
end; end;
function TCodyFindOverloadsWindow.Init: boolean; function TCodyFindOverloadsWindow.Init: boolean;
@ -853,6 +865,7 @@ begin
AbortParsing; AbortParsing;
ResultsStringGrid.Visible:=false; ResultsStringGrid.Visible:=false;
JumpToButton.Enabled:=false;
FTargetName:=''; FTargetName:='';
FTargetPath:=''; FTargetPath:='';
FTargetXYPosition:=CleanCodeXYPosition; FTargetXYPosition:=CleanCodeXYPosition;