paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-27 21:01:35 +01: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"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="10"/>
<General> <General>
<Flags> <Flags>
<MainUnitHasCreateFormStatements Value="False"/> <MainUnitHasCreateFormStatements Value="False"/>

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

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