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

fixed exception handling

Browse Source 
git-svn-id: trunk@8233 -
This commit is contained in:
mattias 2005-11-28 20:57:11 +00:00
parent ba823195d4
commit 5a28a8fb1e
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
examples/codetools/jumptoimplementation/codetoolsexample1.pas
View File

@ -26,8 +26,8 @@ unit CodeToolsExample1;
interface
uses
Classes, SysUtils, MenuIntf, LazIDEIntf, SrcEditorIntf, CodeToolManager,
CodeTree, CodeCache, CodeAtom, CustomCodeTool;
Classes, SysUtils, MenuIntf, LazIDEIntf, Controls, SrcEditorIntf,
CodeToolManager, CodeTree, CodeCache, CodeAtom, CustomCodeTool;
procedure JumpIDEToImplementationKeyword(Sender: TObject);
@ -44,6 +44,7 @@ var
Tool: TCodeTool;
NewCodePos: TCodeXYPosition;
NewTopLine: Integer;
Ok: Boolean;
begin
if Sender=nil then ;
// commit editor changes to codetools
@ -54,6 +55,7 @@ begin
if SrcEditor=nil then exit;
CodeBuffer:=SrcEditor.CodeToolsBuffer as TCodeBuffer;
Ok:=false;
try
// init codetool for the source
if CodeToolBoss.InitCurCodeTool(CodeBuffer) then begin
@ -70,16 +72,22 @@ begin
NewCodePos,NewTopLine)
then begin
// jump
LazarusIDE.DoOpenFileAndJumpToPos(NewCodePos.Code.Filename,
if LazarusIDE.DoOpenFileAndJumpToPos(NewCodePos.Code.Filename,
Point(NewCodePos.X,NewCodePos.Y),NewTopLine,-1,
[ofRegularFile,ofUseCache]);
[ofRegularFile,ofUseCache])=mrOk
then
Ok:=true;
end;
end;
end;
end;
except
LazarusIDE.DoJumpToCodeToolBossError;
on E: Exception do begin
CodeToolBoss.HandleException(E);
end;
end;
if not Ok then
LazarusIDE.DoJumpToCodeToolBossError;
end;
procedure Register;