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

SynEdit: remove the use of SYN_CPPB_1. It is not needed and was not used consistently.

Browse Source 
git-svn-id: trunk@34411 -
This commit is contained in:
juha 2011-12-25 19:00:46 +00:00
parent fd3e9d5fd9
commit 347ea32e4c
24 changed files with 71 additions and 150 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/synedit/synedithighlighter.pp
View File

@ -324,10 +324,8 @@ type
public
procedure DefHighlightChange(Sender: TObject);
property AttributeChangeNeedScan: Boolean read FAttributeChangeNeedScan;
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function GetCapabilities: TSynHighlighterCapabilities; virtual;
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function GetLanguageName: string; virtual;
class function GetCapabilities: TSynHighlighterCapabilities; virtual;
class function GetLanguageName: string; virtual;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -415,7 +413,6 @@ type
TSynCustomHighlighterClass = class of TSynCustomHighlighter;
{$IFNDEF SYN_CPPB_1}
TSynHighlighterList = class(TList)
private
hlList: TList;
@ -430,10 +427,8 @@ type
read GetItem; default;
end;
procedure RegisterPlaceableHighlighter(highlighter:
TSynCustomHighlighterClass);
procedure RegisterPlaceableHighlighter(highlighter: TSynCustomHighlighterClass);
function GetPlaceableHighlighters: TSynHighlighterList;
{$ENDIF}
implementation
@ -467,7 +462,6 @@ const
end; { TBetterRegistry.OpenKeyReadOnly }
{$ENDIF _Gp_MustEnhanceRegistry}
{$IFNDEF SYN_CPPB_1}
{ THighlighterList }
function TSynHighlighterList.Count: integer;
@ -531,7 +525,6 @@ begin
if G_PlaceableHighlighters.hlList.IndexOf(highlighter) < 0 then
G_PlaceableHighlighters.hlList.Add(highlighter);
end;
{$ENDIF}
{ TLazSynCustomTextAttributes }
@ -1315,8 +1308,7 @@ begin
Result := TSynHighlighterAttributes(fAttributes.Objects[idx]);
end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function TSynCustomHighlighter.GetCapabilities: TSynHighlighterCapabilities;
class function TSynCustomHighlighter.GetCapabilities: TSynHighlighterCapabilities;
begin
Result := [hcRegistry]; //registry save/load supported by default
end;
@ -1341,8 +1333,7 @@ begin
fWordBreakChars := AChars;
end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function TSynCustomHighlighter.GetLanguageName: string;
class function TSynCustomHighlighter.GetLanguageName: string;
begin
{$IFDEF SYN_DEVELOPMENT_CHECKS}
raise Exception.CreateFmt('%s.GetLanguageName not implemented', [ClassName]);

8
components/synedit/synhighlighterany.pas
View File

@ -163,8 +163,7 @@ type
protected
function GetIdentChars: TSynIdentChars; override;
public
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function GetLanguageName: string; override;
class function GetLanguageName: string; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -903,8 +902,7 @@ begin
DefHighLightChange(nil);
end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function TSynAnySyn.GetLanguageName: string;
class function TSynAnySyn.GetLanguageName: string;
begin
Result := SYNS_LangGeneral;
end;
@ -1367,10 +1365,8 @@ end;
initialization
MakeIdentTable;
{$IFNDEF SYN_CPPB_1}
{$IFNDEF FPC}
RegisterPlaceableHighlighter(TSynAnySyn);
{$ENDIF}
{$ENDIF}
end.

9
components/synedit/synhighlighterbat.pas
View File

@ -129,8 +129,7 @@ type
function GetIdentChars: TSynIdentChars; override;
function GetSampleSource: string; override;
public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function GetLanguageName: string; override;
class function GetLanguageName: string; override;
public
constructor Create(AOwner: TComponent); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
@ -599,8 +598,7 @@ begin
Result := TSynValidStringChars;
end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function TSynBatSyn.GetLanguageName: string;
class function TSynBatSyn.GetLanguageName: string;
begin
Result := SYNS_LangBatch;
end;
@ -621,8 +619,7 @@ end;
initialization
MakeIdentTable;
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
RegisterPlaceableHighlighter(TSynBatSyn);
{$ENDIF}
end.

15
components/synedit/synhighlightercpp.pp
View File

@ -227,10 +227,8 @@ type
function GetIdentChars: TSynIdentChars; override;
function GetExtTokenID: TxtkTokenKind;
public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function GetCapabilities: TSynHighlighterCapabilities; override;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function GetLanguageName: string; override;
class function GetCapabilities: TSynHighlighterCapabilities; override;
class function GetLanguageName: string; override;
public
constructor Create(AOwner: TComponent); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
@ -1684,22 +1682,19 @@ begin
Result := ['_', '0'..'9', 'a'..'z', 'A'..'Z'];
end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function TSynCppSyn.GetLanguageName: string;
class function TSynCppSyn.GetLanguageName: string;
begin
Result := SYNS_LangCPP;
end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function TSynCppSyn.GetCapabilities: TSynHighlighterCapabilities;
class function TSynCppSyn.GetCapabilities: TSynHighlighterCapabilities;
begin
Result := inherited GetCapabilities + [hcUserSettings];
end;
initialization
MakeIdentTable;
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
RegisterPlaceableHighlighter(TSynCppSyn);
{$ENDIF}
end.

9
components/synedit/synhighlightercss.pas
View File

@ -240,8 +240,7 @@ type
function GetIdentChars: TSynIdentChars; override;
function GetSampleSource: String; override;
public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function GetLanguageName: string; override;
class function GetLanguageName: string; override;
public
constructor Create(AOwner: TComponent); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
@ -1721,8 +1720,7 @@ begin
Result := TSynValidStringChars + ['-'];
end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function TSynCssSyn.GetLanguageName: string;
class function TSynCssSyn.GetLanguageName: string;
begin
Result := SYNS_LangCSS;
end;
@ -1745,7 +1743,6 @@ end;
initialization
MakeIdentTable;
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
RegisterPlaceableHighlighter(TSynCssSyn);
{$ENDIF}
end.

9
components/synedit/synhighlighterdiff.pas
View File

@ -145,8 +145,7 @@ type
procedure ResetRange; override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes; override;
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function GetLanguageName: string; override;
class function GetLanguageName: string; override;
protected
// folding
procedure CreateRootCodeFoldBlock; override;
@ -689,8 +688,7 @@ begin
Result := nil;
end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function TSynDiffSyn.GetLanguageName: string;
class function TSynDiffSyn.GetLanguageName: string;
begin
Result := SYNS_LangDiff;
end;
@ -799,8 +797,7 @@ begin
Result := 0;
end;
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
initialization
RegisterPlaceableHighlighter(TSynDiffSyn);
{$ENDIF}
end.

9
components/synedit/synhighlighterhtml.pp
View File

@ -432,8 +432,7 @@ type
function GetFoldConfigCount: Integer; override;
function GetFoldConfigInternalCount: Integer; override;
public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function GetLanguageName: string; override;
class function GetLanguageName: string; override;
public
constructor Create(AOwner: TComponent); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
@ -2436,16 +2435,14 @@ begin
Result := ord(high(THtmlCodeFoldBlockType)) - ord(low(THtmlCodeFoldBlockType)) + 1;
end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function TSynHTMLSyn.GetLanguageName: string;
class function TSynHTMLSyn.GetLanguageName: string;
begin
Result := SYNS_LangHTML;
end;
initialization
MakeIdentTable;
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
RegisterPlaceableHighlighter(TSynHTMLSyn);
{$ENDIF}
end.

9
components/synedit/synhighlighterini.pas
View File

@ -101,8 +101,7 @@ type
function GetIdentChars: TSynIdentChars; override;
function GetSampleSource: String; override;
public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function GetLanguageName: string; override;
class function GetLanguageName: string; override;
public
constructor Create(AOwner: TComponent); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
@ -420,13 +419,11 @@ begin
Result := TSynValidStringChars;
end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function TSynIniSyn.GetLanguageName: string;
class function TSynIniSyn.GetLanguageName: string;
begin
Result := SYNS_LangINI;
end;
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
function TSynIniSyn.GetSampleSource: String;
begin
Result := '; Syntax highlighting'#13#10+
@ -438,5 +435,5 @@ end;
initialization
RegisterPlaceableHighlighter(TSynIniSyn);
{$ENDIF}
end.

9
components/synedit/synhighlighterjava.pas
View File

@ -198,8 +198,7 @@ type
function GetSampleSource: string; override;
function GetExtTokenID: TxtkTokenKind;
public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function GetLanguageName: string; override;
class function GetLanguageName: string; override;
public
constructor Create(AOwner: TComponent); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
@ -1367,8 +1366,7 @@ begin
Result := ['_', '$', '0'..'9', 'a'..'z', 'A'..'Z'] + TSynSpecialChars;
end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function TSynJavaSyn.GetLanguageName: string;
class function TSynJavaSyn.GetLanguageName: string;
begin
Result := SYNS_LangJava;
end;
@ -1390,8 +1388,7 @@ end;
initialization
MakeIdentTable;
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
RegisterPlaceableHighlighter(TSynJavaSyn);
{$ENDIF}
end.

3
components/synedit/synhighlighterjscript.pas
View File

@ -1869,7 +1869,6 @@ end;
initialization
MakeIdentTable;
{$IFNDEF SYN_CPPB_1}
RegisterPlaceableHighlighter(TSynJScriptSyn);
{$ENDIF}
end.

9
components/synedit/synhighlighterlfm.pas
View File

@ -126,8 +126,7 @@ type
function GetFoldConfigCount: Integer; override;
function GetFoldConfigInternalCount: Integer; override;
public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function GetLanguageName: string; override;
class function GetLanguageName: string; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -668,8 +667,7 @@ begin
Result := TSynValidStringChars;
end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function TSynLFMSyn.GetLanguageName: string;
class function TSynLFMSyn.GetLanguageName: string;
begin
Result := SYNS_LangLFM;
end;
@ -732,8 +730,7 @@ begin
Result := ord(high(TLfmCodeFoldBlockType)) - ord(low(TLfmCodeFoldBlockType)) + 1;
end;
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
initialization
RegisterPlaceableHighlighter(TSynLFMSyn);
{$ENDIF}
end.

6
components/synedit/synhighlightermulti.pas
View File

@ -306,8 +306,7 @@ type
property CurrentRanges: TSynHighlighterMultiRangeList read GetCurrentRanges;
property KnownRanges[Index: Integer]: TSynHighlighterMultiRangeList read GetKnownMultiRanges;
public
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function GetLanguageName: string; override;
class function GetLanguageName: string; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -1151,8 +1150,7 @@ begin
Result := inherited GetIdentChars;
end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function TSynMultiSyn.GetLanguageName: string;
class function TSynMultiSyn.GetLanguageName: string;
begin
Result := SYNS_LangGeneralMulti;
end;

14
components/synedit/synhighlighterpas.pp
View File

@ -510,10 +510,8 @@ type
function GetFoldConfigInternalCount: Integer; override;
procedure DoFoldConfigChanged(Sender: TObject); override;
public
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function GetCapabilities: TSynHighlighterCapabilities; override;
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function GetLanguageName: string; override;
class function GetCapabilities: TSynHighlighterCapabilities; override;
class function GetLanguageName: string; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -4169,14 +4167,12 @@ begin
Result := ['_', '0'..'9', 'a'..'z', 'A'..'Z'];
end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function TSynPasSyn.GetLanguageName: string;
class function TSynPasSyn.GetLanguageName: string;
begin
Result := SYNS_LangPascal;
end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function TSynPasSyn.GetCapabilities: TSynHighlighterCapabilities;
class function TSynPasSyn.GetCapabilities: TSynHighlighterCapabilities;
begin
Result := inherited GetCapabilities + [hcUserSettings];
end;
@ -4358,9 +4354,7 @@ end;
initialization
MakeIdentTable;
{$IFNDEF SYN_CPPB_1}
RegisterPlaceableHighlighter(TSynPasSyn);
{$ENDIF}
finalization
FreeAndNil(KeywordsList);

9
components/synedit/synhighlighterperl.pas
View File

@ -363,8 +363,7 @@ type
protected
function GetIdentChars: TSynIdentChars; override;
public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function GetLanguageName: string; override;
class function GetLanguageName: string; override;
public
constructor Create(AOwner: TComponent); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
@ -2594,16 +2593,14 @@ begin
Result := ['%', '@', '$', '_', '0'..'9', 'a'..'z', 'A'..'Z'] + TSynSpecialChars;
end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function TSynPerlSyn.GetLanguageName: string;
class function TSynPerlSyn.GetLanguageName: string;
begin
Result := SYNS_LangPerl;
end;
initialization
MakeIdentTable;
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
RegisterPlaceableHighlighter(TSynPerlSyn);
{$ENDIF}
end.

11
components/synedit/synhighlighterphp.pas
View File

@ -198,8 +198,7 @@ type
function GetIdentChars: TSynIdentChars; override;
function GetSampleSource: string; override;
public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function GetLanguageName: string; override;
class function GetLanguageName: string; override;
public
constructor Create(AOwner: TComponent); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
@ -1435,10 +1434,7 @@ begin
end;
{$ENDIF}
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function TSynPHPSyn.GetLanguageName: string;
class function TSynPHPSyn.GetLanguageName: string;
begin
Result := SYNS_LangPHP;
end;
@ -1463,8 +1459,7 @@ end;
initialization
MakeIdentTable;
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
RegisterPlaceableHighlighter(TSynPHPSyn);
{$ENDIF}
end.

15
components/synedit/synhighlighterpo.pp
View File

@ -82,8 +82,7 @@ type
function GetIdentChars: TSynIdentChars; override;
function GetSampleSource: String; override;
public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function GetLanguageName: string; override;
class function GetLanguageName: string; override;
function IsKeyword(const AKeyword: string): boolean; override;
public
constructor Create(AOwner: TComponent); override;
@ -91,7 +90,7 @@ type
override;
function GetEol: Boolean; override;
function GetTokenID: TtkTokenKind;
procedure SetLine({$IFDEF FPC}const {$ENDIF}NewValue: String; LineNumber:Integer); override;
procedure SetLine(const NewValue: String; LineNumber:Integer); override;
function GetToken: String; override;
procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override;
function GetTokenAttribute: TSynHighlighterAttributes; override;
@ -180,14 +179,14 @@ begin
MakeMethodTables;
end; { Create }
procedure TSynPoSyn.SetLine({$IFDEF FPC}const {$ENDIF}NewValue: String; LineNumber:Integer);
procedure TSynPoSyn.SetLine(const NewValue: String; LineNumber:Integer);
begin
inherited;
fLine := PChar(NewValue);
Run := 0;
fLineNumber := LineNumber;
Next;
end; { SetLine }
end;
procedure TSynPoSyn.IdentProc;
@ -369,13 +368,11 @@ begin
Result := inherited GetIdentChars; //TSynValidStringChars;
end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} //mh 2000-07-14
function TSynPoSyn.GetLanguageName: string;
class function TSynPoSyn.GetLanguageName: string;
begin
Result := SYNS_LangPo;
end;
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
function TSynPoSyn.GetSampleSource: String;
begin
Result := '"Project-Id-Version: \n"' + LineEnding +
@ -415,5 +412,5 @@ end;
initialization
RegisterPlaceableHighlighter(TSynPoSyn);
{$ENDIF}
end.

6
components/synedit/synhighlighterposition.pas
View File

@ -68,8 +68,7 @@ type
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
override;
public
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function GetLanguageName: string; override;
class function GetLanguageName: string; override;
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
@ -146,8 +145,7 @@ begin
Result:=nil;
end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function TSynPositionHighlighter.GetLanguageName: string;
class function TSynPositionHighlighter.GetLanguageName: string;
begin
Result:='Position based highlighter';
end;

3
components/synedit/synhighlighterpython.pas
View File

@ -1267,9 +1267,8 @@ begin
end;
initialization
{$IFNDEF SYN_CPPB_1} //mh 2000-07-14
RegisterPlaceableHighlighter(TSynPythonSyn);
{$ENDIF}
finalization
GlobalKeywords.Free;
end.

9
components/synedit/synhighlightersql.pas
View File

@ -162,8 +162,7 @@ type
function GetIdentChars: TSynIdentChars; override;
function GetSampleSource : String; override;
public
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function GetLanguageName: string; override;
class function GetLanguageName: string; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -1532,8 +1531,7 @@ begin
{end} // DJLP 2000-08-11
end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function TSynSQLSyn.GetLanguageName: string;
class function TSynSQLSyn.GetLanguageName: string;
begin
Result := SYNS_LangSQL;
end;
@ -1786,7 +1784,6 @@ end;
initialization
MakeIdentTable;
{$IFNDEF SYN_CPPB_1}
RegisterPlaceableHighlighter(TSynSQLSyn);
{$ENDIF}
end.

9
components/synedit/synhighlightertex.pas
View File

@ -106,8 +106,7 @@ type
function GetIdentChars: TSynIdentChars; override;
function GetSampleSource : String; override;
public
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function GetLanguageName: string; override;
class function GetLanguageName: string; override;
public
constructor Create(AOwner: TComponent); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
@ -383,8 +382,7 @@ begin
Result := ['_', '0'..'9', 'a'..'z', 'A'..'Z'];
end; { GetIdentChars }
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function TSynTeXSyn.GetLanguageName: string;
class function TSynTeXSyn.GetLanguageName: string;
begin
Result := SYNS_LangTeX;
end; { GetLanguageName }
@ -411,8 +409,7 @@ begin
'\end{document}';
end;
{$IFNDEF SYN_CPPB_1}
initialization
RegisterPlaceableHighlighter(TSynTeXSyn);
{$ENDIF}
end.

9
components/synedit/synhighlighterunixshellscript.pas
View File

@ -122,8 +122,7 @@ type
protected
function GetIdentChars: TSynIdentChars; override;
public
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function GetLanguageName: string; override;
class function GetLanguageName: string; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -791,8 +790,7 @@ end;
resourcestring
LangName = 'UNIX Shell Script';
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function TSynUNIXShellScriptSyn.GetLanguageName: string;
class function TSynUNIXShellScriptSyn.GetLanguageName: string;
/////TL 11-06-2003: FPC complained about local declaration... moved to the global scope
/////TL resourcestring
/////TL LangName = 'UNIX Shell Script';
@ -802,8 +800,7 @@ end;
initialization
MakeIdentTable;
{$IFNDEF SYN_CPPB_1}
RegisterPlaceableHighlighter(TSynUNIXShellScriptSyn);
{$ENDIF}
end.

7
components/synedit/synhighlightervb.pas
View File

@ -202,7 +202,7 @@ type
function GetSampleSource: String; override;
function IsFilterStored: Boolean; override;
public
{$IFNDEF SYN_CPPB_1} class {$ENDIF} function GetLanguageName: string; override;
class function GetLanguageName: string; override;
public
constructor Create(AOwner: TComponent); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
@ -1251,7 +1251,7 @@ begin
Result := fDefaultFilter <> SYNS_FilterVisualBASIC;
end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF} function TSynVBSyn.GetLanguageName: string;
class function TSynVBSyn.GetLanguageName: string;
begin
Result := SYNS_LangVisualBASIC;
end;
@ -1278,7 +1278,6 @@ end;
initialization
MakeIdentTable;
{$IFNDEF SYN_CPPB_1}
RegisterPlaceableHighlighter(TSynVBSyn);
{$ENDIF}
end.

9
components/synedit/synhighlighterxml.pas
View File

@ -180,8 +180,7 @@ type
function GetFoldConfigCount: Integer; override;
function GetFoldConfigInternalCount: Integer; override;
public
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function GetLanguageName: string; override;
class function GetLanguageName: string; override;
public
constructor Create(AOwner: TComponent); override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
@ -954,8 +953,7 @@ begin
Result := ['0'..'9', 'a'..'z', 'A'..'Z', '_', '.', '-'] + TSynSpecialChars;
end;
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function TSynXMLSyn.GetLanguageName: string;
class function TSynXMLSyn.GetLanguageName: string;
begin
Result := SYNS_LangXML;
end;
@ -1068,10 +1066,7 @@ begin
end;
initialization
{$IFNDEF SYN_CPPB_1}
RegisterPlaceableHighlighter(TSynXMLSyn);
{$ENDIF}
end.

6
components/synunihighlighter/synunihighlighter.pas
View File

@ -331,8 +331,7 @@ type
function GetSampleSource: string; override;
procedure SetSampleSource(Value: string); override;
public
{$IFNDEF SYN_CPPB_1} class {$ENDIF}
function GetLanguageName: string; override;
class function GetLanguageName: string; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -2801,9 +2800,8 @@ begin
end;
initialization
{$IFNDEF SYN_CPPB_1}
RegisterPlaceableHighlighter(TSynUniSyn);
{$ENDIF}
end.