From 070589661a62d9da9f81bae00214f218f68bcf8a Mon Sep 17 00:00:00 2001 From: mattias Date: Fri, 3 Nov 2017 22:16:07 +0000 Subject: [PATCH] codetools: fixed example git-svn-id: trunk@56264 - --- components/codetools/examples/codecompletion.lpr | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/components/codetools/examples/codecompletion.lpr b/components/codetools/examples/codecompletion.lpr index 19d170c728..22b2eaf112 100644 --- a/components/codetools/examples/codecompletion.lpr +++ b/components/codetools/examples/codecompletion.lpr @@ -39,7 +39,7 @@ var Code: TCodeBuffer; X: Integer; Y: Integer; - TopLine: Integer; + TopLine, BlockTopLine, BlockBottomLine: Integer; Filename: String; begin if (ParamCount>=1) and (Paramcount<>3) then begin @@ -70,7 +70,8 @@ begin raise Exception.Create('loading failed '+Filename); // complete code - if CodeToolBoss.CompleteCode(Code,X,Y,TopLine,NewCode,NewX,NewY,NewTopLine,false) + if CodeToolBoss.CompleteCode(Code,X,Y,TopLine,NewCode,NewX,NewY,NewTopLine, + BlockTopLine,BlockBottomLine,false) then begin writeln('Code completed: ',NewCode.Filename,' Line=',NewY,' Column=',NewX); writeln(Code.Source);