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

IDE: fixed OnSrcNoteBookMouseLink use editor of Sender, bug #23555

Browse Source 
git-svn-id: trunk@39710 -
This commit is contained in:
mattias 2013-01-01 12:14:13 +00:00
parent a70beb5187
commit f3bbfa5d32
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/main.pp
View File

@ -12239,12 +12239,13 @@ end;
procedure TMainIDE.OnSrcNoteBookMouseLink(
Sender: TObject; X, Y: Integer; var AllowMouseLink: Boolean);
var
ActiveSrcEdit: TSourceEditor;
ActiveUnitInfo: TUnitInfo;
NewSource: TCodeBuffer;
NewX, NewY, NewTopLine: integer;
SrcEdit: TSourceEditor;
begin
if not BeginCodeTool(ActiveSrcEdit,ActiveUnitInfo,[]) then exit;
SrcEdit:=SourceEditorManager.SenderToEditor(Sender);
if not BeginCodeTool(SrcEdit,ActiveUnitInfo,[]) then exit;
AllowMouseLink := CodeToolBoss.FindDeclaration(
ActiveUnitInfo.Source,X,Y,NewSource,NewX,NewY,NewTopLine);
end;