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

SynEdit: Made Highlighter-Attribute names resource-strings

Browse Source 
git-svn-id: trunk@21053 -
This commit is contained in:
martin 2009-08-01 10:48:48 +00:00
parent 32034af863
commit cde1f77fe0
19 changed files with 282 additions and 189 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
components/synedit/synedithighlighter.pp
View File

@ -109,7 +109,7 @@ type
{$ENDIF}
public
procedure Assign(Source: TPersistent); override;
constructor Create(attribName: string);
constructor Create(attribName: string; aStoredName: String = '');
procedure InternalSaveDefaultValues; //mh 2000-10-08
function LoadFromBorlandRegistry(rootKey: HKEY; attrKey, attrName: string;
oldStyle: boolean): boolean; virtual;
@ -489,14 +489,17 @@ begin
fOnChange(Self);
end;
constructor TSynHighlighterAttributes.Create(attribName: string);
constructor TSynHighlighterAttributes.Create(attribName: string; aStoredName: String = '');
begin
inherited Create;
Background := clNone;
Foreground := clNone;
FFrameColor := clNone;
fName := attribName;
FStoredName := attribName;
if aStoredName = '' then
FStoredName := attribName
else
FStoredName := aStoredName;;
end;
function TSynHighlighterAttributes.GetBackgroundColorStored: boolean;
@ -751,7 +754,7 @@ begin
{$IFNDEF SYN_LAZARUS}
// ToDo Registry
key := Reg.CurrentPath;
if Reg.OpenKeyReadOnly(Name) then begin
if Reg.OpenKeyReadOnly(StoredName) then begin
if Reg.ValueExists('Background') then
Background := Reg.ReadInteger('Background');
if Reg.ValueExists('Foreground') then
@ -772,7 +775,7 @@ var
key: string;
begin
key := Reg.CurrentPath;
if Reg.OpenKey(Name,true) then begin
if Reg.OpenKey(StoredName,true) then begin
Reg.WriteInteger('Background', Background);
Reg.WriteInteger('Foreground', Foreground);
Reg.WriteInteger('Style', IntegerStyle);
@ -791,18 +794,18 @@ var
begin
S := TStringList.Create;
try
Ini.ReadSection(Name, S);
Ini.ReadSection(StoredName, S);
if S.Count > 0 then
begin
if S.IndexOf('Background') <> -1 then
Background := Ini.ReadInteger(Name, 'Background', clWindow);
Background := Ini.ReadInteger(StoredName, 'Background', clWindow);
if S.IndexOf('Foreground') <> -1 then
Foreground := Ini.ReadInteger(Name, 'Foreground', clWindowText);
Foreground := Ini.ReadInteger(StoredName, 'Foreground', clWindowText);
if S.IndexOf('Style') <> -1 then
IntegerStyle := Ini.ReadInteger(Name, 'Style', 0);
IntegerStyle := Ini.ReadInteger(StoredName, 'Style', 0);
{$IFDEF SYN_LAZARUS}
if S.IndexOf('StyleMask') <> -1 then
IntegerStyleMask := Ini.ReadInteger(Name, 'StyleMask', 0);
IntegerStyleMask := Ini.ReadInteger(StoredName, 'StyleMask', 0);
{$ENDIF}
Result := true;
end else Result := false;
@ -813,11 +816,11 @@ end;
function TSynHighlighterAttributes.SaveToFile(Ini : TIniFile): boolean; //DDH 10/16/01
begin
Ini.WriteInteger(Name, 'Background', Background);
Ini.WriteInteger(Name, 'Foreground', Foreground);
Ini.WriteInteger(Name, 'Style', IntegerStyle);
Ini.WriteInteger(StoredName, 'Background', Background);
Ini.WriteInteger(StoredName, 'Foreground', Foreground);
Ini.WriteInteger(StoredName, 'Style', IntegerStyle);
{$IFDEF SYN_LAZARUS}
Ini.WriteInteger(Name, 'StyleMask', IntegerStyleMask);
Ini.WriteInteger(StoredName, 'StyleMask', IntegerStyleMask);
{$ENDIF}
Result := true;
end;
@ -1035,7 +1038,7 @@ end;
procedure TSynCustomHighlighter.AddAttribute(AAttrib: TSynHighlighterAttributes);
begin
fAttributes.AddObject(AAttrib.Name, AAttrib);
fAttributes.AddObject(AAttrib.StoredName, AAttrib);
end;
{$IFDEF SYN_LAZARUS}

136
components/synedit/syneditstrconst.pp
View File

@ -45,24 +45,25 @@ const
SYNS_ComponentsPage = 'SynEdit';
SYNS_HighlightersPage = 'SynEdit Highlighters';
{$IFDEF SYN_LAZARUS}
// The highlight attribute names are the only independent identification.
// So, they can't be translated.
// ToDo: add translated versions.
const
{$ELSE}
{$IFDEF SYN_COMPILER_3_UP}
resourcestring
{$ELSE}
const
{$ENDIF}
{$ENDIF}
SYNS_Untitled = 'Untitled';
(* IMPORTANT
The highlight attribute "StoredName" are the only independent
identification of Attributes.
They must be UNIQUE and UNCHANGED.
The resoure-strings below are followed by a const section, containing
a constant for each of the strings. This is assigned in initialization
*before* translation.
It relies on the english names below not to be changed.
If you change them you must set the constant to a copy of the original value.
Also if you change a Name in the resourcestring section below, keep it unique
So, they can't be translated.
*)
resourcestring
(* Attribute Names *)
SYNS_Untitled = 'Untitled';
// names for highlighter attributes
SYNS_AttrAsm = 'Asm';
SYNS_AttrAsmComment = 'Asm comment';
SYNS_AttrAsmKey = 'Asm key';
SYNS_AttrASP = 'Asp';
SYNS_AttrAssembler = 'Assembler';
SYNS_AttrAttributeName = 'Attribute Name';
@ -149,11 +150,106 @@ const
SYNS_AttrSquareBracket = 'Square Bracket';
SYNS_AttrRoundBracket = 'Round Bracket';
SYNS_AttrTeXCommand = 'TeX Command';
(* End of Attribute Names *)
const
(* IMPORTANT
The highlight attribute "StoredName" are the only independent
identification of Attributes.
They must be UNIQUE and UNCHANGED. Read section above.
*)
(* Stored Attribute Names *)
SYNS_XML_Untitled :String = SYNS_Untitled; // 'Untitled';
SYNS_XML_AttrASP :String = SYNS_AttrASP; // 'Asp';
SYNS_XML_AttrAssembler :String = SYNS_AttrAssembler; // 'Assembler';
SYNS_XML_AttrAttributeName :String = SYNS_AttrAttributeName; // 'Attribute Name';
SYNS_XML_AttrAttributeValue :String = SYNS_AttrAttributeValue; // 'Attribute Value';
SYNS_XML_AttrBlock :String = SYNS_AttrBlock; // 'Block';
SYNS_XML_AttrBrackets :String = SYNS_AttrBrackets; // 'Brackets';
SYNS_XML_AttrCDATASection :String = SYNS_AttrCDATASection; // 'CDATA Section';
SYNS_XML_AttrCharacter :String = SYNS_AttrCharacter; // 'Character';
SYNS_XML_AttrClass :String = SYNS_AttrClass; // 'Class';
SYNS_XML_AttrComment :String = SYNS_AttrComment; // 'Comment';
SYNS_XML_AttrCondition :String = SYNS_AttrCondition; // 'Condition';
SYNS_XML_AttrDataType :String = SYNS_AttrDataType; // 'Data type';
SYNS_XML_AttrDefaultPackage :String = SYNS_AttrDefaultPackage; // 'Default packages';
SYNS_XML_AttrDir :String = SYNS_AttrDir; // 'Direction';
SYNS_XML_AttrDirective :String = SYNS_AttrDirective; // 'Directive';
SYNS_XML_AttrDOCTYPESection :String = SYNS_AttrDOCTYPESection; // 'DOCTYPE Section';
SYNS_XML_AttrDocumentation :String = SYNS_AttrDocumentation; // 'Documentation';
SYNS_XML_AttrElementName :String = SYNS_AttrElementName; // 'Element Name';
SYNS_XML_AttrEmbedSQL :String = SYNS_AttrEmbedSQL; // 'Embedded SQL';
SYNS_XML_AttrEmbedText :String = SYNS_AttrEmbedText; // 'Embedded text';
SYNS_XML_AttrEntityReference :String = SYNS_AttrEntityReference; // 'Entity Reference';
SYNS_XML_AttrEscapeAmpersand :String = SYNS_AttrEscapeAmpersand; // 'Escape ampersand';
SYNS_XML_AttrEvent :String = SYNS_AttrEvent; // 'Event';
SYNS_XML_AttrException :String = SYNS_AttrException; // 'Exception';
SYNS_XML_AttrFloat :String = SYNS_AttrFloat; // 'Float';
SYNS_XML_AttrForm :String = SYNS_AttrForm; // 'Form';
SYNS_XML_AttrFunction :String = SYNS_AttrFunction; // 'Function';
SYNS_XML_AttrHexadecimal :String = SYNS_AttrHexadecimal; // 'Hexadecimal';
SYNS_XML_AttrIcon :String = SYNS_AttrIcon; // 'Icon reference';
SYNS_XML_AttrIdentifier :String = SYNS_AttrIdentifier; // 'Identifier';
SYNS_XML_AttrIllegalChar :String = SYNS_AttrIllegalChar; // 'Illegal char';
SYNS_XML_AttrInclude :String = SYNS_AttrInclude; // 'Include';
SYNS_XML_AttrIndirect :String = SYNS_AttrIndirect; // 'Indirect';
SYNS_XML_AttrInvalidSymbol :String = SYNS_AttrInvalidSymbol; // 'Invalid symbol';
SYNS_XML_AttrInternalFunction :String = SYNS_AttrInternalFunction; // 'Internal function';
SYNS_XML_AttrKey :String = SYNS_AttrKey; // 'Key';
SYNS_XML_AttrLabel :String = SYNS_AttrLabel; // 'Label';
SYNS_XML_AttrMacro :String = SYNS_AttrMacro; // 'Macro';
SYNS_XML_AttrMarker :String = SYNS_AttrMarker; // 'Marker';
SYNS_XML_AttrMessage :String = SYNS_AttrMessage; // 'Message';
SYNS_XML_AttrMiscellaneous :String = SYNS_AttrMiscellaneous; // 'Miscellaneous';
SYNS_XML_AttrNamespaceAttrName :String = SYNS_AttrNamespaceAttrName; // 'Namespace Attribute Name';
SYNS_XML_AttrNamespaceAttrValue :String = SYNS_AttrNamespaceAttrValue; // 'Namespace Attribute Value';
SYNS_XML_AttrNonReservedKeyword :String = SYNS_AttrNonReservedKeyword; // 'Non-reserved keyword';
SYNS_XML_AttrNull :String = SYNS_AttrNull; // 'Null';
SYNS_XML_AttrNumber :String = SYNS_AttrNumber; // 'Number';
SYNS_XML_AttrOctal :String = SYNS_AttrOctal; // 'Octal';
SYNS_XML_AttrOperator :String = SYNS_AttrOperator; // 'Operator';
SYNS_XML_AttrPLSQL :String = SYNS_AttrPLSQL; // 'Reserved word (PL/SQL)';
SYNS_XML_AttrPragma :String = SYNS_AttrPragma; // 'Pragma';
SYNS_XML_AttrPreprocessor :String = SYNS_AttrPreprocessor; // 'Preprocessor';
SYNS_XML_AttrProcessingInstr :String = SYNS_AttrProcessingInstr; // 'Processing Instruction';
SYNS_XML_AttrQualifier :String = SYNS_AttrQualifier; // 'Qualifier';
SYNS_XML_AttrRegister :String = SYNS_AttrRegister; // 'Register';
SYNS_XML_AttrReservedWord :String = SYNS_AttrReservedWord; // 'Reserved word';
SYNS_XML_AttrRpl :String = SYNS_AttrRpl; // 'Rpl';
SYNS_XML_AttrRplKey :String = SYNS_AttrRplKey; // 'Rpl key';
SYNS_XML_AttrRplComment :String = SYNS_AttrRplComment; // 'Rpl comment';
SYNS_XML_AttrSASM :String = SYNS_AttrSASM; // 'SASM';
SYNS_XML_AttrSASMComment :String = SYNS_AttrSASMComment; // 'SASM Comment';
SYNS_XML_AttrSASMKey :String = SYNS_AttrSASMKey; // 'SASM Key';
SYNS_XML_AttrSecondReservedWord :String = SYNS_AttrSecondReservedWord; // 'Second reserved word';
SYNS_XML_AttrSection :String = SYNS_AttrSection; // 'Section';
SYNS_XML_AttrSpace :String = SYNS_AttrSpace; // 'Space';
SYNS_XML_AttrSpecialVariable :String = SYNS_AttrSpecialVariable; // 'Special variable';
SYNS_XML_AttrSQLKey :String = SYNS_AttrSQLKey; // 'SQL keyword';
SYNS_XML_AttrSQLPlus :String = SYNS_AttrSQLPlus; // 'SQL*Plus command';
SYNS_XML_AttrString :String = SYNS_AttrString; // 'String';
SYNS_XML_AttrSymbol :String = SYNS_AttrSymbol; // 'Symbol';
SYNS_XML_AttrSyntaxError :String = SYNS_AttrSyntaxError; // 'SyntaxError';
SYNS_XML_AttrSystem :String = SYNS_AttrSystem; // 'System functions and variables';
SYNS_XML_AttrSystemValue :String = SYNS_AttrSystemValue; // 'System value';
SYNS_XML_AttrTerminator :String = SYNS_AttrTerminator; // 'Terminator';
SYNS_XML_AttrText :String = SYNS_AttrText; // 'Text';
SYNS_XML_AttrUnknownWord :String = SYNS_AttrUnknownWord; // 'Unknown word';
SYNS_XML_AttrUser :String = SYNS_AttrUser; // 'User functions and variables';
SYNS_XML_AttrUserFunction :String = SYNS_AttrUserFunction; // 'User functions';
SYNS_XML_AttrValue :String = SYNS_AttrValue; // 'Value';
SYNS_XML_AttrVariable :String = SYNS_AttrVariable; // 'Variable';
SYNS_XML_AttrWhitespace :String = SYNS_AttrWhitespace; // 'Whitespace';
SYNS_XML_AttrTableName :String = SYNS_AttrTableName; // 'Table Name';
SYNS_XML_AttrMathMode :String = SYNS_AttrMathMode; // 'Math Mode';
SYNS_XML_AttrTextMathMode :String = SYNS_AttrTextMathMode; // 'Text in Math Mode';
SYNS_XML_AttrSquareBracket :String = SYNS_AttrSquareBracket; // 'Square Bracket';
SYNS_XML_AttrRoundBracket :String = SYNS_AttrRoundBracket; // 'Round Bracket';
SYNS_XML_AttrTeXCommand :String = SYNS_AttrTeXCommand; // 'TeX Command';
(* End of Stored Attribute Names *)
{$IFDEF SYN_LAZARUS}
resourcestring
{$ENDIF}
// names of exporter output formats
SYNS_ExporterFormatHTML = 'HTML';
SYNS_ExporterFormatRTF = 'RTF';
@ -273,9 +369,7 @@ const
SYNS_LangUnreal = 'Unreal';
SYNS_LangTeX = 'TeX';
{$IFDEF SYN_LAZARUS}
resourcestring
{$ENDIF}
SYNS_emcNone = 'No Action';
SYNS_emcStartSelection = 'Selection';

16
components/synedit/synhighlighterany.pas
View File

@ -411,12 +411,12 @@ begin
fObjects := TStringList.Create;
TStringList(fObjects).Sorted := True;
TStringList(fObjects).Duplicates := dupIgnore;
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment);
fCommentAttri.Style := [fsItalic];
AddAttribute(fCommentAttri);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier);
AddAttribute(fIdentifierAttri);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord);
fKeyAttri.Style := [fsBold];
AddAttribute(fKeyAttri);
fConstantAttri := TSynHighlighterAttributes.Create('jan_constant');
@ -435,19 +435,19 @@ begin
fDotAttri.Style := [fsBold];
fDotAttri.Foreground:=clgreen;
AddAttribute(fDotAttri);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber);
AddAttribute(fNumberAttri);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace);
AddAttribute(fSpaceAttri);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString);
AddAttribute(fStringAttri);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol);
AddAttribute(fSymbolAttri);
fVariableAttri := TSynHighlighterAttributes.Create('jan_Variable');
fVariableAttri.Style := [fsBold];
fVariableAttri.Foreground:=clpurple;
AddAttribute(fVariableAttri);
fPreprocessorAttri := TSynHighlighterAttributes.Create(SYNS_AttrPreprocessor);
fPreprocessorAttri := TSynHighlighterAttributes.Create(SYNS_AttrPreprocessor, SYNS_XML_AttrPreprocessor);
AddAttribute(fPreprocessorAttri);
SetAttributesOnChange({$IFDEF FPC}@{$ENDIF}DefHighlightChange);

20
components/synedit/synhighlightercpp.pp
View File

@ -779,28 +779,28 @@ end;
constructor TSynCppSyn.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
fAsmAttri := TSynHighlighterAttributes.Create(SYNS_AttrAssembler);
fAsmAttri := TSynHighlighterAttributes.Create(SYNS_AttrAssembler, SYNS_XML_AttrAssembler);
AddAttribute(fAsmAttri);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment);
fCommentAttri.Style:= [fsItalic];
AddAttribute(fCommentAttri);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier);
AddAttribute(fIdentifierAttri);
fInvalidAttri := TSynHighlighterAttributes.Create(SYNS_AttrIllegalChar);
fInvalidAttri := TSynHighlighterAttributes.Create(SYNS_AttrIllegalChar, SYNS_XML_AttrIllegalChar);
AddAttribute(fInvalidAttri);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord);
fKeyAttri.Style:= [fsBold];
AddAttribute(fKeyAttri);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber);
AddAttribute(fNumberAttri);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace);
fSpaceAttri.Foreground := clWindow;
AddAttribute(fSpaceAttri);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString);
AddAttribute(fStringAttri);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol);
AddAttribute(fSymbolAttri);
fDirecAttri := TSynHighlighterAttributes.Create(SYNS_AttrPreprocessor);
fDirecAttri := TSynHighlighterAttributes.Create(SYNS_AttrPreprocessor, SYNS_XML_AttrPreprocessor);
AddAttribute(fDirecAttri);
SetAttributesOnChange({$IFDEF FPC}@{$ENDIF}DefHighlightChange);
InitIdent;

14
components/synedit/synhighlightercss.pas
View File

@ -1448,21 +1448,21 @@ end;
constructor TSynCssSyn.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment);
fCommentAttri.Style := [fsItalic];
AddAttribute(fCommentAttri);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier);
AddAttribute(fIdentifierAttri);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrKey);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrKey, SYNS_XML_AttrKey);
fKeyAttri.Style := [fsBold];
AddAttribute(fKeyAttri);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber);
AddAttribute(fNumberAttri);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace);
AddAttribute(fSpaceAttri);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString);
AddAttribute(fStringAttri);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol);
AddAttribute(fSymbolAttri);
SetAttributesOnChange({$IFDEF FPC}@{$ENDIF}DefHighlightChange);
InitIdent;

20
components/synedit/synhighlighterhtml.pp
View File

@ -1924,43 +1924,43 @@ constructor TSynHTMLSyn.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
fASPAttri := TSynHighlighterAttributes.Create(SYNS_AttrASP);
fASPAttri := TSynHighlighterAttributes.Create(SYNS_AttrASP, SYNS_XML_AttrASP);
fASPAttri.Foreground := clBlack;
fASPAttri.Background := clYellow;
AddAttribute(fASPAttri);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment);
AddAttribute(fCommentAttri);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier);
fIdentifierAttri.Style := [fsBold];
AddAttribute(fIdentifierAttri);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord);
fKeyAttri.Style := [fsBold];
fKeyAttri.Foreground := $00ff0080;
AddAttribute(fKeyAttri);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace);
AddAttribute(fSpaceAttri);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol);
fSymbolAttri.Style := [fsBold];
AddAttribute(fSymbolAttri);
fTextAttri := TSynHighlighterAttributes.Create(SYNS_AttrText);
fTextAttri := TSynHighlighterAttributes.Create(SYNS_AttrText, SYNS_XML_AttrText);
AddAttribute(fTextAttri);
fUndefKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrUnknownWord);
fUndefKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrUnknownWord, SYNS_XML_AttrUnknownWord);
fUndefKeyAttri.Style := [fsBold];
fUndefKeyAttri.Foreground := clRed;
AddAttribute(fUndefKeyAttri);
fValueAttri := TSynHighlighterAttributes.Create(SYNS_AttrValue);
fValueAttri := TSynHighlighterAttributes.Create(SYNS_AttrValue, SYNS_XML_AttrValue);
fValueAttri.Foreground := $00ff8000;
AddAttribute(fValueAttri);
fAndAttri := TSynHighlighterAttributes.Create(SYNS_AttrEscapeAmpersand);
fAndAttri := TSynHighlighterAttributes.Create(SYNS_AttrEscapeAmpersand, SYNS_XML_AttrEscapeAmpersand);
fAndAttri.Style := [fsBold];
fAndAttri.Foreground := $0000ff00;
AddAttribute(fAndAttri);

18
components/synedit/synhighlighterjava.pas
View File

@ -660,27 +660,27 @@ end;
constructor TSynJavaSyn.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment);
fCommentAttri.Style := [fsItalic];
AddAttribute(fCommentAttri);
fDocumentAttri := TSynHighlighterAttributes.Create(SYNS_AttrDocumentation);
fDocumentAttri := TSynHighlighterAttributes.Create(SYNS_AttrDocumentation, SYNS_XML_AttrDocumentation);
fDocumentAttri.Style := [fsItalic];
AddAttribute(fDocumentAttri);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier);
AddAttribute(fIdentifierAttri);
fInvalidAttri := TSynHighlighterAttributes.Create(SYNS_AttrInvalidSymbol);
fInvalidAttri := TSynHighlighterAttributes.Create(SYNS_AttrInvalidSymbol, SYNS_XML_AttrInvalidSymbol);
AddAttribute(fInvalidAttri);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord);
fKeyAttri.Style := [fsBold];
AddAttribute(fKeyAttri);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber);
AddAttribute(fNumberAttri);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace);
fSpaceAttri.Foreground := clWindow;
AddAttribute(fSpaceAttri);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString);
AddAttribute(fStringAttri);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol);
AddAttribute(fSymbolAttri);
fRange := rsUnknown;
SetAttributesOnChange({$IFDEF SYN_LAZARUS}@{$ENDIF}DefHighlightChange);

18
components/synedit/synhighlighterjscript.pas
View File

@ -1508,25 +1508,25 @@ end;
constructor TSynJScriptSyn.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment);
fCommentAttri.Style := [fsItalic];
AddAttribute(fCommentAttri);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier);
AddAttribute(fIdentifierAttri);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord);
fKeyAttri.Style := [fsBold];
AddAttribute(fKeyAttri);
fNonReservedKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrNonReservedKeyword);
fNonReservedKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrNonReservedKeyword, SYNS_XML_AttrNonReservedKeyword);
AddAttribute(fNonReservedKeyAttri);
fEventAttri := TSynHighlighterAttributes.Create(SYNS_AttrEvent);
fEventAttri := TSynHighlighterAttributes.Create(SYNS_AttrEvent, SYNS_XML_AttrEvent);
AddAttribute(fEventAttri);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber);
AddAttribute(fNumberAttri);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace);
AddAttribute(fSpaceAttri);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString);
AddAttribute(fStringAttri);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol);
AddAttribute(fSymbolAttri);
SetAttributesOnChange({$IFDEF FPC}@{$ENDIF}DefHighlightChange);
InitIdent;

14
components/synedit/synhighlighterlfm.pas
View File

@ -254,21 +254,21 @@ end;
constructor TSynLFMSyn.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment);
fCommentAttri.Style := [fsItalic];
AddAttribute(fCommentAttri);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier);
AddAttribute(fIdentifierAttri);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrKey);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrKey, SYNS_XML_AttrKey);
fKeyAttri.Style := [fsBold];
AddAttribute(fKeyAttri);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber);
AddAttribute(fNumberAttri);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace);
AddAttribute(fSpaceAttri);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString);
AddAttribute(fStringAttri);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol);
AddAttribute(fSymbolAttri);
SetAttributesOnChange({$IFDEF FPC}@{$ENDIF}DefHighlightChange);
MakeMethodTables;

2
components/synedit/synhighlightermulti.pas
View File

@ -743,7 +743,7 @@ constructor TgmScheme.Create(TheCollection: TCollection);
begin
inherited Create(TheCollection);
fCaseSensitive := True;
fMarkerAttri := TSynHighlighterAttributes.Create(SYNS_AttrMarker);
fMarkerAttri := TSynHighlighterAttributes.Create(SYNS_AttrMarker, SYNS_XML_AttrMarker);
fMarkerAttri.OnChange := {$IFDEF FPC}@{$ENDIF}MarkerAttriChanged;
MarkerAttri.Background := clYellow;
MarkerAttri.Style := [fsBold];

18
components/synedit/synhighlighterpas.pp
View File

@ -1892,26 +1892,26 @@ begin
CreateDividerDrawConfig;
InitFoldConfig;
fD4syntax := true;
fAsmAttri := TSynHighlighterAttributes.Create(SYNS_AttrAssembler);
fAsmAttri := TSynHighlighterAttributes.Create(SYNS_AttrAssembler, SYNS_XML_AttrAssembler);
AddAttribute(fAsmAttri);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment);
fCommentAttri.Style:= [fsItalic];
AddAttribute(fCommentAttri);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier);
AddAttribute(fIdentifierAttri);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord);
fKeyAttri.Style:= [fsBold];
AddAttribute(fKeyAttri);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber);
AddAttribute(fNumberAttri);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace);
AddAttribute(fSpaceAttri);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString);
AddAttribute(fStringAttri);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol);
AddAttribute(fSymbolAttri);
{$IFDEF SYN_LAZARUS}
fDirectiveAttri := TSynHighlighterAttributes.Create(SYNS_AttrDirective);
fDirectiveAttri := TSynHighlighterAttributes.Create(SYNS_AttrDirective, SYNS_XML_AttrDirective);
fDirectiveAttri.Style:= [fsItalic];
AddAttribute(fDirectiveAttri);
CompilerMode:=pcmDelphi;

22
components/synedit/synhighlighterperl.pas
View File

@ -2003,31 +2003,31 @@ end;
constructor TSynPerlSyn.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment);
fCommentAttri.Style:= [fsItalic];
AddAttribute(fCommentAttri);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier);
AddAttribute(fIdentifierAttri);
fInvalidAttri := TSynHighlighterAttributes.Create(SYNS_AttrIllegalChar);
fInvalidAttri := TSynHighlighterAttributes.Create(SYNS_AttrIllegalChar, SYNS_XML_AttrIllegalChar);
AddAttribute(fInvalidAttri);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord);
fKeyAttri.Style:= [fsBold];
AddAttribute(fKeyAttri);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber);
AddAttribute(fNumberAttri);
fOperatorAttri := TSynHighlighterAttributes.Create(SYNS_AttrOperator);
fOperatorAttri := TSynHighlighterAttributes.Create(SYNS_AttrOperator, SYNS_XML_AttrOperator);
AddAttribute(fOperatorAttri);
fPragmaAttri := TSynHighlighterAttributes.Create(SYNS_AttrPragma);
fPragmaAttri := TSynHighlighterAttributes.Create(SYNS_AttrPragma, SYNS_XML_AttrPragma);
fPragmaAttri.Style := [fsBold];
AddAttribute(fPragmaAttri);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace);
fSpaceAttri.Foreground := clWindow;
AddAttribute(fSpaceAttri);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString);
AddAttribute(fStringAttri);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol);
AddAttribute(fSymbolAttri);
fVariableAttri := TSynHighlighterAttributes.Create(SYNS_AttrVariable);
fVariableAttri := TSynHighlighterAttributes.Create(SYNS_AttrVariable, SYNS_XML_AttrVariable);
fVariableAttri.Style := [fsBold];
AddAttribute(fVariableAttri);
SetAttributesOnChange({$IFDEF FPC}@{$ENDIF}DefHighlightChange);

18
components/synedit/synhighlighterphp.pas
View File

@ -666,25 +666,25 @@ constructor TSynPHPSyn.Create(AOwner: TComponent);
begin
{begin} //mh 2000-01-14
inherited Create(AOwner);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment);
fCommentAttri.Style := [fsItalic];
AddAttribute(fCommentAttri);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier);
AddAttribute(fIdentifierAttri);
fInvalidSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrInvalidSymbol);
fInvalidSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrInvalidSymbol, SYNS_XML_AttrInvalidSymbol);
AddAttribute(fInvalidSymbolAttri);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord);
fKeyAttri.Style := [fsBold];
AddAttribute(fKeyAttri);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber);
AddAttribute(fNumberAttri);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace);
AddAttribute(fSpaceAttri);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString);
AddAttribute(fStringAttri);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol);
AddAttribute(fSymbolAttri);
fVariableAttri := TSynHighlighterAttributes.Create(SYNS_AttrVariable);
fVariableAttri := TSynHighlighterAttributes.Create(SYNS_AttrVariable, SYNS_XML_AttrVariable);
AddAttribute(fVariableAttri);
{end} //mh 2000-01-14
SetAttributesOnChange({$IFDEF FPC}@{$ENDIF}DefHighlightChange);

2
components/synedit/synhighlighterposition.pas
View File

@ -158,7 +158,7 @@ begin
inherited Create(TheOwner);
fTokens:=TList.Create;
fCopiedAttributes:=TList.Create;
fTextAttri := TSynHighlighterAttributes.Create(SYNS_AttrText);
fTextAttri := TSynHighlighterAttributes.Create(SYNS_AttrText, SYNS_XML_AttrText);
AddAttribute(fTextAttri);
SetAttributesOnChange({$IFDEF FPC}@{$ENDIF}DefHighlightChange);

28
components/synedit/synhighlighterpython.pas
View File

@ -423,45 +423,45 @@ begin
FKeywords.Assign (GetKeywordIdentifiers);
fRange := rsUnknown;
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment);
fCommentAttri.Foreground := clGray;
fCommentAttri.Style := [fsItalic];
AddAttribute(fCommentAttri);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier);
AddAttribute(fIdentifierAttri);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord);
fKeyAttri.Style := [fsBold];
AddAttribute(fKeyAttri);
fNonKeyAttri := TSynHighlighterAttributes.Create (SYNS_AttrNonReservedKeyword);
fNonKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrNonReservedKeyword, SYNS_XML_AttrNonReservedKeyword);
fNonKeyAttri.Foreground := clNavy;
fNonKeyAttri.Style := [fsBold];
AddAttribute (fNonKeyAttri);
fSystemAttri := TSynHighlighterAttributes.Create (SYNS_AttrSystem);
fSystemAttri := TSynHighlighterAttributes.Create(SYNS_AttrSystem, SYNS_XML_AttrSystem);
fSystemAttri.Style := [fsBold];
AddAttribute (fSystemAttri);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber);
fNumberAttri.Foreground := clBlue;
AddAttribute(fNumberAttri);
fHexAttri := TSynHighlighterAttributes.Create(SYNS_AttrHexadecimal);
fHexAttri := TSynHighlighterAttributes.Create(SYNS_AttrHexadecimal, SYNS_XML_AttrHexadecimal);
fHexAttri.Foreground := clBlue;
AddAttribute(fHexAttri);
fOctalAttri := TSynHighlighterAttributes.Create(SYNS_AttrOctal);
fOctalAttri := TSynHighlighterAttributes.Create(SYNS_AttrOctal, SYNS_XML_AttrOctal);
fOctalAttri.Foreground := clBlue;
AddAttribute(fOctalAttri);
fFloatAttri := TSynHighlighterAttributes.Create(SYNS_AttrFloat);
fFloatAttri := TSynHighlighterAttributes.Create(SYNS_AttrFloat, SYNS_XML_AttrFloat);
fFloatAttri.Foreground := clBlue;
AddAttribute(fFloatAttri);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace);
AddAttribute(fSpaceAttri);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString);
fStringAttri.Foreground := clBlue;
AddAttribute(fStringAttri);
fDocStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrDocumentation);
fDocStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrDocumentation, SYNS_XML_AttrDocumentation);
fDocStringAttri.Foreground := clTeal;
AddAttribute(fDocStringAttri);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol);
AddAttribute(fSymbolAttri);
fErrorAttri := TSynHighlighterAttributes.Create(SYNS_AttrSyntaxError);
fErrorAttri := TSynHighlighterAttributes.Create(SYNS_AttrSyntaxError, SYNS_XML_AttrSyntaxError);
fErrorAttri.Foreground := clRed;
AddAttribute(fErrorAttri);
SetAttributesOnChange({$IFDEF SYN_LAZARUS}@{$ENDIF}DefHighlightChange);

30
components/synedit/synhighlightersql.pas
View File

@ -1038,50 +1038,50 @@ begin
fKeywords := TSynHashEntryList.Create;
fTableNames := TStringList.Create;
TStringList(fTableNames).OnChange := {$IFDEF FPC}@{$ENDIF}TableNamesChanged;
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment);
fCommentAttri.Style := [fsItalic];
AddAttribute(fCommentAttri);
fDataTypeAttri := TSynHighlighterAttributes.Create(SYNS_AttrDataType);
fDataTypeAttri := TSynHighlighterAttributes.Create(SYNS_AttrDataType, SYNS_XML_AttrDataType);
fDataTypeAttri.Style := [fsBold];
AddAttribute(fDataTypeAttri);
{begin} // DJLP 2000-08-11
fDefaultPackageAttri :=
TSynHighlighterAttributes.Create(SYNS_AttrDefaultPackage);
TSynHighlighterAttributes.Create(SYNS_AttrDefaultPackage, SYNS_XML_AttrDefaultPackage);
fDefaultPackageAttri.Style := [fsBold];
AddAttribute(fDefaultPackageAttri);
{end} // DJLP 2000-08-11
fExceptionAttri := TSynHighlighterAttributes.Create(SYNS_AttrException);
fExceptionAttri := TSynHighlighterAttributes.Create(SYNS_AttrException, SYNS_XML_AttrException);
fExceptionAttri.Style := [fsItalic];
AddAttribute(fExceptionAttri);
fFunctionAttri := TSynHighlighterAttributes.Create(SYNS_AttrFunction);
fFunctionAttri := TSynHighlighterAttributes.Create(SYNS_AttrFunction, SYNS_XML_AttrFunction);
fFunctionAttri.Style := [fsBold];
AddAttribute(fFunctionAttri);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier);
AddAttribute(fIdentifierAttri);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord);
fKeyAttri.Style := [fsBold];
AddAttribute(fKeyAttri);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber);
AddAttribute(fNumberAttri);
{begin} // DJLP 2000-08-11
fPLSQLAttri := TSynHighlighterAttributes.Create(SYNS_AttrPLSQL);
fPLSQLAttri := TSynHighlighterAttributes.Create(SYNS_AttrPLSQL, SYNS_XML_AttrPLSQL);
fPLSQLAttri.Style := [fsBold];
AddAttribute(fPLSQLAttri);
{end} // DJLP 2000-08-11
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace);
AddAttribute(fSpaceAttri);
{begin} // DJLP 2000-09-05
fSQLPlusAttri:=TSynHighlighterAttributes.Create(SYNS_AttrSQLPlus);
fSQLPlusAttri:=TSynHighlighterAttributes.Create(SYNS_AttrSQLPlus, SYNS_XML_AttrSQLPlus);
fSQLPlusAttri.Style := [fsBold];
AddAttribute(fSQLPlusAttri);
{end} // DJLP 2000-09-05
fStringAttri := TSynHighlighterAttributes.Create(SYNS_Attrstring);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_Attrstring, SYNS_XML_Attrstring);
AddAttribute(fStringAttri);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol);
AddAttribute(fSymbolAttri);
fTableNameAttri := TSynHighlighterAttributes.Create(SYNS_AttrTableName);
fTableNameAttri := TSynHighlighterAttributes.Create(SYNS_AttrTableName, SYNS_XML_AttrTableName);
AddAttribute(fTableNameAttri);
fVariableAttri := TSynHighlighterAttributes.Create(SYNS_AttrVariable);
fVariableAttri := TSynHighlighterAttributes.Create(SYNS_AttrVariable, SYNS_XML_AttrVariable);
AddAttribute(fVariableAttri);
SetAttributesOnChange({$IFDEF FPC}@{$ENDIF}DefHighlightChange);
MakeMethodTables;

18
components/synedit/synhighlighterunixshellscript.pas
View File

@ -319,29 +319,29 @@ begin
fSecondKeys.Add(ShellScriptSecondKeys[i]);
end;
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment);
fCommentAttri.Foreground := clGreen;
AddAttribute(fCommentAttri);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier);
AddAttribute(fIdentifierAttri);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord);
fKeyAttri.Foreground := clNavy;
fKeyAttri.Style := [fsBold];
AddAttribute(fKeyAttri);
fSecondKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrSecondReservedWord);
fSecondKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrSecondReservedWord, SYNS_XML_AttrSecondReservedWord);
AddAttribute(fSecondKeyAttri);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber);
fNumberAttri.Foreground := clBlue;
AddAttribute(fNumberAttri);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace);
AddAttribute(fSpaceAttri);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString);
fStringAttri.Foreground := clMaroon;
AddAttribute(fStringAttri);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol);
fSymbolAttri.Foreground := clRed;
AddAttribute(fSymbolAttri);
fVarAttri := TSynHighlighterAttributes.Create(SYNS_AttrVariable);
fVarAttri := TSynHighlighterAttributes.Create(SYNS_AttrVariable, SYNS_XML_AttrVariable);
fVarAttri.Foreground := clPurple;
AddAttribute(fVarAttri);
SetAttributesOnChange({$IFDEF SYN_LAZARUS}@{$ENDIF}DefHighlightChange); ////TL 2003-06-11: added the @prefix to DefHighlightChange

14
components/synedit/synhighlightervb.pas
View File

@ -1029,21 +1029,21 @@ end;
constructor TSynVBSyn.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment);
fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment);
fCommentAttri.Style:= [fsItalic];
AddAttribute(fCommentAttri);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier);
fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier);
AddAttribute(fIdentifierAttri);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord);
fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord);
fKeyAttri.Style:= [fsBold];
AddAttribute(fKeyAttri);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber);
fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber);
AddAttribute(fNumberAttri);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace);
fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace);
AddAttribute(fSpaceAttri);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString);
fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString);
AddAttribute(fStringAttri);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol);
fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol);
AddAttribute(fSymbolAttri);
SetAttributesOnChange({$IFDEF FPC}@{$ENDIF}DefHighlightChange);
InitIdent;

30
components/synedit/synhighlighterxml.pas
View File

@ -211,23 +211,19 @@ constructor TSynXMLSyn.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
fElementAttri:= TSynHighlighterAttributes.Create(SYNS_AttrElementName);
fTextAttri:= TSynHighlighterAttributes.Create(SYNS_AttrText);
fSpaceAttri:= TSynHighlighterAttributes.Create(SYNS_AttrWhitespace);
fEntityRefAttri:= TSynHighlighterAttributes.Create(SYNS_AttrEntityReference);
fProcessingInstructionAttri:= TSynHighlighterAttributes.Create(
SYNS_AttrProcessingInstr);
fCDATAAttri:= TSynHighlighterAttributes.Create(SYNS_AttrCDATASection);
fCommentAttri:= TSynHighlighterAttributes.Create(SYNS_AttrComment);
fDocTypeAttri:= TSynHighlighterAttributes.Create(SYNS_AttrDOCTYPESection);
fAttributeAttri:= TSynHighlighterAttributes.Create(SYNS_AttrAttributeName);
fnsAttributeAttri:= TSynHighlighterAttributes.Create(
SYNS_AttrNamespaceAttrName);
fAttributeValueAttri:= TSynHighlighterAttributes.Create(
SYNS_AttrAttributeValue);
fnsAttributeValueAttri:= TSynHighlighterAttributes.Create(
SYNS_AttrNamespaceAttrValue);
fSymbolAttri:= TSynHighlighterAttributes.Create(SYNS_AttrSymbol);
fElementAttri:= TSynHighlighterAttributes.Create(SYNS_AttrElementName, SYNS_XML_AttrElementName);
fTextAttri:= TSynHighlighterAttributes.Create(SYNS_AttrText, SYNS_XML_AttrText);
fSpaceAttri:= TSynHighlighterAttributes.Create(SYNS_AttrWhitespace, SYNS_XML_AttrWhitespace);
fEntityRefAttri:= TSynHighlighterAttributes.Create(SYNS_AttrEntityReference, SYNS_XML_AttrEntityReference);
fProcessingInstructionAttri:= TSynHighlighterAttributes.Create(SYNS_AttrProcessingInstr, SYNS_XML_AttrProcessingInstr);
fCDATAAttri:= TSynHighlighterAttributes.Create(SYNS_AttrCDATASection, SYNS_XML_AttrCDATASection);
fCommentAttri:= TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment);
fDocTypeAttri:= TSynHighlighterAttributes.Create(SYNS_AttrDOCTYPESection, SYNS_XML_AttrDOCTYPESection);
fAttributeAttri:= TSynHighlighterAttributes.Create(SYNS_AttrAttributeName, SYNS_XML_AttrAttributeName);
fnsAttributeAttri:= TSynHighlighterAttributes.Create(SYNS_AttrNamespaceAttrName, SYNS_XML_AttrNamespaceAttrName);
fAttributeValueAttri:= TSynHighlighterAttributes.Create(SYNS_AttrAttributeValue, SYNS_XML_AttrAttributeValue);
fnsAttributeValueAttri:= TSynHighlighterAttributes.Create(SYNS_AttrNamespaceAttrValue, SYNS_XML_AttrNamespaceAttrValue);
fSymbolAttri:= TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol);
fElementAttri.Foreground:= clMaroon;
fElementAttri.Style:= [fsBold];