pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases 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
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 public
buffer: String; buffer: String;
constructor Create(const Abuffer: String=''; const aname: string = ''; aobj: TObject = nil); 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 SubBuffer[i: Integer]: TSubBuffer read GetSubBuffer;
property Count: Integer read GetCount; property Count: Integer read GetCount;
end; end;

8
components/chelper/tosourceeditor.pas
View File

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