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

codetools: fixed example

Browse Source 
git-svn-id: trunk@56265 -
This commit is contained in:
mattias 2017-11-03 22:17:02 +00:00
parent 070589661a
commit 4b044297a1
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/examples/completeabstractmethods.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="10"/>
<General>
<Flags>
<MainUnitHasCreateFormStatements Value="False"/>

4
components/codetools/examples/completeabstractmethods.lpr
View File

@ -42,7 +42,7 @@ var
i: Integer;
CodeXYPos: TCodeXYPosition;
NewCode: TCodeBuffer;
NewX, NewY, NewTopLine: integer;
NewX, NewY, NewTopLine, BlockTopLine, BlockBottomLine: integer;
begin
if (ParamCount>=1) and (Paramcount<>3) then begin
writeln('Usage:');
@ -86,7 +86,7 @@ begin
end;
if CodeToolBoss.AddMethods(Code,X,Y,1,ListOfPCodeXYPosition,true,
NewCode,NewX,NewY,NewTopLine)
NewCode,NewX,NewY,NewTopLine,BlockTopLine,BlockBottomLine)
then begin
writeln('AddMethods succeeded: ',NewCode.Filename,' (',NewY,',',NewX,') ');
writeln(Code.Source);