paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-22 15:29:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed compilation for fpc 1.0.x

Browse Source 
git-svn-id: trunk@5255 -
This commit is contained in:
vincents 2004-03-03 22:03:49 +00:00
parent f87f97900d
commit efdb296b4b
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synhighlightercss.pas
View File

@ -249,7 +249,7 @@ type
function GetEol: Boolean; override; function GetEol: Boolean; override;
function GetRange: Pointer; override; function GetRange: Pointer; override;
function GetTokenID: TtkTokenKind; function GetTokenID: TtkTokenKind;
procedure SetLine(NewValue: String; LineNumber: Integer); override; procedure SetLine({$IFDEF FPC}const {$ENDIF}NewValue: String; LineNumber: Integer); override;
function GetToken: string; override; function GetToken: string; override;
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
procedure GetTokenEx(var TokenStart: PChar; var TokenLength: integer); override; procedure GetTokenEx(var TokenStart: PChar; var TokenLength: integer); override;
@ -1471,7 +1471,7 @@ begin
fRange := rsUnknown; fRange := rsUnknown;
end; end;
procedure TSynCssSyn.SetLine(NewValue: String; LineNumber: Integer); procedure TSynCssSyn.SetLine({$IFDEF FPC}const {$ENDIF}NewValue: String; LineNumber: Integer);
begin begin
fLine := PChar(NewValue); fLine := PChar(NewValue);
Run := 0; Run := 0;

4
components/synedit/synhighlighterphp.pas
View File

@ -204,7 +204,7 @@ type
function GetEol: Boolean; override; function GetEol: Boolean; override;
function GetRange: Pointer; override; function GetRange: Pointer; override;
function GetTokenID: TtkTokenKind; function GetTokenID: TtkTokenKind;
procedure SetLine(NewValue: String; LineNumber: Integer); override; procedure SetLine({$IFDEF FPC}const {$ENDIF}NewValue: String; LineNumber: Integer); override;
function GetToken: String; override; function GetToken: String; override;
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
procedure GetTokenEx(var TokenStart: PChar; var TokenLength: integer); override; procedure GetTokenEx(var TokenStart: PChar; var TokenLength: integer); override;
@ -691,7 +691,7 @@ begin
fRange := rsUnknown; fRange := rsUnknown;
end; end;
procedure TSynPHPSyn.SetLine(NewValue: String; LineNumber: Integer); procedure TSynPHPSyn.SetLine({$IFDEF FPC}const {$ENDIF}NewValue: String; LineNumber: Integer);
begin begin
fLine := PChar(NewValue); fLine := PChar(NewValue);
Run := 0; Run := 0;

4
components/synedit/synhighlightersql.pas
View File

@ -184,7 +184,7 @@ type
function IsKeyword(const AKeyword: string): boolean; override; // DJLP 2000-08-09 function IsKeyword(const AKeyword: string): boolean; override; // DJLP 2000-08-09
procedure Next; override; procedure Next; override;
procedure ResetRange; override; procedure ResetRange; override;
procedure SetLine(NewValue: string; LineNumber: Integer); override; procedure SetLine({$IFDEF FPC}const {$ENDIF}NewValue: string; LineNumber: Integer); override;
procedure SetRange(Value: Pointer); override; procedure SetRange(Value: Pointer); override;
published published
property CommentAttri: TSynHighlighterAttributes read fCommentAttri property CommentAttri: TSynHighlighterAttributes read fCommentAttri
@ -1105,7 +1105,7 @@ begin
SQLDialect := TSynSQLSyn(Source).SQLDialect; SQLDialect := TSynSQLSyn(Source).SQLDialect;
end; end;
procedure TSynSQLSyn.SetLine(NewValue: string; LineNumber: Integer); procedure TSynSQLSyn.SetLine({$IFDEF FPC}const {$ENDIF}NewValue: string; LineNumber: Integer);
begin begin
fLine := PChar(NewValue); fLine := PChar(NewValue);
Run := 0; Run := 0;

4
components/synedit/synhighlightertex.pas
View File

@ -114,7 +114,7 @@ type
override; override;
function GetEol: Boolean; override; function GetEol: Boolean; override;
function GetTokenID: TtkTokenKind; function GetTokenID: TtkTokenKind;
procedure SetLine(NewValue: String; LineNumber:Integer); override; procedure SetLine({$IFDEF FPC}const {$ENDIF}NewValue: String; LineNumber:Integer); override;
function GetToken: String; override; function GetToken: String; override;
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
procedure GetTokenEx(var TokenStart: PChar; var TokenLength: integer); override; procedure GetTokenEx(var TokenStart: PChar; var TokenLength: integer); override;
@ -205,7 +205,7 @@ begin
MakeMethodTables; MakeMethodTables;
end; { Create } end; { Create }
procedure TSynTeXSyn.SetLine(NewValue: String; LineNumber:Integer); procedure TSynTeXSyn.SetLine({$IFDEF FPC}const {$ENDIF}NewValue: String; LineNumber:Integer);
begin begin
fLine := PChar(NewValue); fLine := PChar(NewValue);
Run := 0; Run := 0;