paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

chelper: fix compilation for the latest IDE version

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5948 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz 2017-06-20 00:31:10 +00:00
parent 8c8c9480dd
commit 0f40ba6214
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/chelper/textparsingutils.pas
View File

@ -83,7 +83,7 @@ type
public
buffer: String;
constructor Create(const Abuffer: String=''; const aname: string = ''; aobj: TObject = nil);
procedure InsertSubBuffer(pos: Integer; const ABuffer: string; const AName: string = ''; ATag: TObject = '');
procedure InsertSubBuffer(pos: Integer; const ABuffer: string; const AName: string = ''; ATag: TObject = nil);
property SubBuffer[i: Integer]: TSubBuffer read GetSubBuffer;
property Count: Integer read GetCount;
end;

8
components/chelper/tosourceeditor.pas
View File

@ -216,7 +216,7 @@ var
p : TPoint;
st : TPoint;
err : TErrorInfo;
line : TIDEMessageLine;
//line : TIDEMessageLine;
parts : TStringList;
lcnt : Integer;
begin
@ -303,7 +303,7 @@ begin
end;
type
(*type
{ TChelperJumper }
@ -338,7 +338,7 @@ begin
LazarusIDE.DoOpenFileAndJumpToPos(fn, Point(cl, ln), -1, -1, -1, [ofOnlyIfExists,ofRegularFile,ofVirtualFile]);
end;
end;
*)
procedure Register;
var
pth : AnsiString;
@ -349,7 +349,7 @@ begin
LoadFromFile(ConvFile, ConvSettings);
ReadIDESettings(ConvFile);
if DefineFile='' then DefineFile:=pth+'cconvdefines.h';
RegisterIDEMsgQuickFix(TChelperJumper.Create);
//RegisterIDEMsgQuickFix(TChelperJumper.Create);
end;
initialization