From 08201e290443e5a9d32b454c1b2493cb2525642c Mon Sep 17 00:00:00 2001 From: mattias Date: Fri, 14 Jun 2013 21:41:35 +0000 Subject: [PATCH] synedit: highlighters: using non fixed resourcestrings git-svn-id: trunk@41721 - --- components/synedit/syneditfoldedview.pp | 2 +- components/synedit/synedithighlighter.pp | 31 ++++++++----- components/synedit/synhighlighterany.pas | 16 +++---- components/synedit/synhighlighterbat.pas | 12 ++--- components/synedit/synhighlightercpp.pp | 40 ++++++++--------- components/synedit/synhighlightercss.pas | 14 +++--- components/synedit/synhighlighterdiff.pas | 24 +++++----- components/synedit/synhighlighterhtml.pp | 24 +++++----- components/synedit/synhighlighterini.pas | 16 +++---- components/synedit/synhighlighterjava.pas | 18 ++++---- components/synedit/synhighlighterjscript.pas | 18 ++++---- components/synedit/synhighlighterlfm.pas | 14 +++--- components/synedit/synhighlightermulti.pas | 2 +- components/synedit/synhighlighterpas.pp | 44 +++++++++---------- components/synedit/synhighlighterperl.pas | 22 +++++----- components/synedit/synhighlighterphp.pas | 18 ++++---- components/synedit/synhighlighterpo.pp | 16 +++---- components/synedit/synhighlighterposition.pas | 4 +- components/synedit/synhighlighterpython.pas | 28 ++++++------ components/synedit/synhighlightersql.pas | 30 ++++++------- components/synedit/synhighlightertex.pas | 18 ++++---- .../synedit/synhighlighterunixshellscript.pas | 18 ++++---- components/synedit/synhighlightervb.pas | 14 +++--- components/synedit/synhighlighterxml.pas | 26 +++++------ 24 files changed, 239 insertions(+), 230 deletions(-) diff --git a/components/synedit/syneditfoldedview.pp b/components/synedit/syneditfoldedview.pp index 11482f3913..cc419ebc69 100644 --- a/components/synedit/syneditfoldedview.pp +++ b/components/synedit/syneditfoldedview.pp @@ -783,7 +783,7 @@ constructor TLazSynDisplayFold.Create(AFoldView: TSynEditFoldedView); begin inherited Create; FFoldView := AFoldView; - FTokenAttr := TSynHighlighterAttributesModifier.Create(''); + FTokenAttr := TSynHighlighterAttributesModifier.Create(nil); end; destructor TLazSynDisplayFold.Destroy; diff --git a/components/synedit/synedithighlighter.pp b/components/synedit/synedithighlighter.pp index d2d553bca1..09f0317074 100644 --- a/components/synedit/synedithighlighter.pp +++ b/components/synedit/synedithighlighter.pp @@ -140,8 +140,8 @@ type procedure DoChange; override; public constructor Create; - constructor Create(attribName: string; aStoredName: String = ''); - constructor Create(attribName: PString; aStoredName: String); + constructor Create(aCaption: string; aStoredName: String = ''); + constructor Create(aCaption: PString; aStoredName: String = ''); procedure InternalSaveDefaultValues; virtual; function LoadFromBorlandRegistry(rootKey: HKEY; attrKey, attrName: string; oldStyle: boolean): boolean; virtual; @@ -358,7 +358,9 @@ type public constructor Create(AOwner: TComponent); override; destructor Destroy; override; - function AddSpecialAttribute(const AttribName: string; + function AddSpecialAttribute(const aCaption: string; + const aStoredName: String = ''): TSynHighlighterAttributes; + function AddSpecialAttribute(const aCaption: PString; const aStoredName: String = ''): TSynHighlighterAttributes; procedure Assign(Source: TPersistent); override; procedure BeginUpdate; @@ -853,24 +855,24 @@ end; { TSynHighlighterAttributes } -constructor TSynHighlighterAttributes.Create(attribName: string; +constructor TSynHighlighterAttributes.Create(aCaption: string; aStoredName: String = ''); begin Create; - FConstName := attribName; + FConstName := aCaption; FCaption := @FConstName; if aStoredName = '' then aStoredName := FConstName; FStoredName := aStoredName;; end; -constructor TSynHighlighterAttributes.Create(attribName: PString; +constructor TSynHighlighterAttributes.Create(aCaption: PString; aStoredName: String); begin Create; - if attribName<>nil then begin - FConstName := attribName^; - FCaption := attribName; + if aCaption<>nil then begin + FConstName := aCaption^; + FCaption := aCaption; end else begin FConstName := ''; @@ -1417,10 +1419,17 @@ begin fAttributes.AddObject(AAttrib.StoredName, AAttrib); end; -function TSynCustomHighlighter.AddSpecialAttribute(const AttribName: string; +function TSynCustomHighlighter.AddSpecialAttribute(const aCaption: string; const aStoredName: String): TSynHighlighterAttributes; begin - result := TSynHighlighterAttributes.Create(AttribName,aStoredName); + result := TSynHighlighterAttributes.Create(aCaption,aStoredName); + AddAttribute(result); +end; + +function TSynCustomHighlighter.AddSpecialAttribute(const aCaption: PString; + const aStoredName: String): TSynHighlighterAttributes; +begin + Result := TSynHighlighterAttributes.Create(aCaption,aStoredName); AddAttribute(result); end; diff --git a/components/synedit/synhighlighterany.pas b/components/synedit/synhighlighterany.pas index 6b3e03e5e8..beb043b236 100644 --- a/components/synedit/synhighlighterany.pas +++ b/components/synedit/synhighlighterany.pas @@ -388,12 +388,12 @@ begin fObjects := TStringList.Create; TStringList(fObjects).Sorted := True; TStringList(fObjects).Duplicates := dupIgnore; - fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment); + fCommentAttri := TSynHighlighterAttributes.Create(@SYNS_AttrComment, SYNS_XML_AttrComment); fCommentAttri.Style := [fsItalic]; AddAttribute(fCommentAttri); - fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); + fIdentifierAttri := TSynHighlighterAttributes.Create(@SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); AddAttribute(fIdentifierAttri); - fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); + fKeyAttri := TSynHighlighterAttributes.Create(@SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); fKeyAttri.Style := [fsBold]; AddAttribute(fKeyAttri); fConstantAttri := TSynHighlighterAttributes.Create('jan_constant'); @@ -412,19 +412,19 @@ begin fDotAttri.Style := [fsBold]; fDotAttri.Foreground:=clgreen; AddAttribute(fDotAttri); - fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber); + fNumberAttri := TSynHighlighterAttributes.Create(@SYNS_AttrNumber, SYNS_XML_AttrNumber); AddAttribute(fNumberAttri); - fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace); + fSpaceAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSpace, SYNS_XML_AttrSpace); AddAttribute(fSpaceAttri); - fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString); + fStringAttri := TSynHighlighterAttributes.Create(@SYNS_AttrString, SYNS_XML_AttrString); AddAttribute(fStringAttri); - fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_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, SYNS_XML_AttrPreprocessor); + fPreprocessorAttri := TSynHighlighterAttributes.Create(@SYNS_AttrPreprocessor, SYNS_XML_AttrPreprocessor); AddAttribute(fPreprocessorAttri); SetAttributesOnChange(@DefHighlightChange); diff --git a/components/synedit/synhighlighterbat.pas b/components/synedit/synhighlighterbat.pas index 4bc0367d94..af05e1acf5 100644 --- a/components/synedit/synhighlighterbat.pas +++ b/components/synedit/synhighlighterbat.pas @@ -387,21 +387,21 @@ end; constructor TSynBatSyn.Create(AOwner: TComponent); begin inherited Create(AOwner); - fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment); + fCommentAttri := TSynHighlighterAttributes.Create(@SYNS_AttrComment); fCommentAttri.Style := [fsItalic]; fCommentAttri.Foreground := clNavy; AddAttribute(fCommentAttri); - fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier); + fIdentifierAttri := TSynHighlighterAttributes.Create(@SYNS_AttrIdentifier); AddAttribute(fIdentifierAttri); - fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrKey); + fKeyAttri := TSynHighlighterAttributes.Create(@SYNS_AttrKey); fKeyAttri.Style := [fsBold]; AddAttribute(fKeyAttri); - fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber); + fNumberAttri := TSynHighlighterAttributes.Create(@SYNS_AttrNumber); fNumberAttri.Foreground := clBlue; AddAttribute(fNumberAttri); - fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace); + fSpaceAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSpace); AddAttribute(fSpaceAttri); - fVariableAttri := TSynHighlighterAttributes.Create(SYNS_AttrVariable); + fVariableAttri := TSynHighlighterAttributes.Create(@SYNS_AttrVariable); fVariableAttri.Foreground := clGreen; AddAttribute(fVariableAttri); SetAttributesOnChange(@DefHighlightChange); diff --git a/components/synedit/synhighlightercpp.pp b/components/synedit/synhighlightercpp.pp index 2292cea953..e482059038 100644 --- a/components/synedit/synhighlightercpp.pp +++ b/components/synedit/synhighlightercpp.pp @@ -771,28 +771,28 @@ end; constructor TSynCppSyn.Create(AOwner: TComponent); begin inherited Create(AOwner); - fAsmAttri := TSynHighlighterAttributes.Create(SYNS_AttrAssembler, SYNS_XML_AttrAssembler); + fAsmAttri := TSynHighlighterAttributes.Create(@SYNS_AttrAssembler, SYNS_XML_AttrAssembler); AddAttribute(fAsmAttri); - fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment); + fCommentAttri := TSynHighlighterAttributes.Create(@SYNS_AttrComment, SYNS_XML_AttrComment); fCommentAttri.Style:= [fsItalic]; AddAttribute(fCommentAttri); - fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); + fIdentifierAttri := TSynHighlighterAttributes.Create(@SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); AddAttribute(fIdentifierAttri); - fInvalidAttri := TSynHighlighterAttributes.Create(SYNS_AttrIllegalChar, SYNS_XML_AttrIllegalChar); + fInvalidAttri := TSynHighlighterAttributes.Create(@SYNS_AttrIllegalChar, SYNS_XML_AttrIllegalChar); AddAttribute(fInvalidAttri); - fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); + fKeyAttri := TSynHighlighterAttributes.Create(@SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); fKeyAttri.Style:= [fsBold]; AddAttribute(fKeyAttri); - fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber); + fNumberAttri := TSynHighlighterAttributes.Create(@SYNS_AttrNumber, SYNS_XML_AttrNumber); AddAttribute(fNumberAttri); - fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace); + fSpaceAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSpace, SYNS_XML_AttrSpace); fSpaceAttri.Foreground := clWindow; AddAttribute(fSpaceAttri); - fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString); + fStringAttri := TSynHighlighterAttributes.Create(@SYNS_AttrString, SYNS_XML_AttrString); AddAttribute(fStringAttri); - fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol); + fSymbolAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSymbol, SYNS_XML_AttrSymbol); AddAttribute(fSymbolAttri); - fDirecAttri := TSynHighlighterAttributes.Create(SYNS_AttrPreprocessor, SYNS_XML_AttrPreprocessor); + fDirecAttri := TSynHighlighterAttributes.Create(@SYNS_AttrPreprocessor, SYNS_XML_AttrPreprocessor); AddAttribute(fDirecAttri); SetAttributesOnChange(@DefHighlightChange); InitIdent; @@ -1604,16 +1604,16 @@ function TSynCppSyn.UseUserSettings(settingIndex: integer): boolean; EnumUserSettings(s); if settingIndex >= s.Count then Result := false else begin - tmpStringAttri := TSynHighlighterAttributes.Create(''); - tmpNumberAttri := TSynHighlighterAttributes.Create(''); - tmpKeyAttri := TSynHighlighterAttributes.Create(''); - tmpSymbolAttri := TSynHighlighterAttributes.Create(''); - tmpAsmAttri := TSynHighlighterAttributes.Create(''); - tmpCommentAttri := TSynHighlighterAttributes.Create(''); - tmpIdentifierAttri:= TSynHighlighterAttributes.Create(''); - tmpInvalidAttri := TSynHighlighterAttributes.Create(''); - tmpSpaceAttri := TSynHighlighterAttributes.Create(''); - tmpDirecAttri := TSynHighlighterAttributes.Create(''); + tmpStringAttri := TSynHighlighterAttributes.Create(nil); + tmpNumberAttri := TSynHighlighterAttributes.Create(nil); + tmpKeyAttri := TSynHighlighterAttributes.Create(nil); + tmpSymbolAttri := TSynHighlighterAttributes.Create(nil); + tmpAsmAttri := TSynHighlighterAttributes.Create(nil); + tmpCommentAttri := TSynHighlighterAttributes.Create(nil); + tmpIdentifierAttri:= TSynHighlighterAttributes.Create(nil); + tmpInvalidAttri := TSynHighlighterAttributes.Create(nil); + tmpSpaceAttri := TSynHighlighterAttributes.Create(nil); + tmpDirecAttri := TSynHighlighterAttributes.Create(nil); tmpStringAttri .Assign(fStringAttri); tmpNumberAttri .Assign(fNumberAttri); tmpKeyAttri .Assign(fKeyAttri); diff --git a/components/synedit/synhighlightercss.pas b/components/synedit/synhighlightercss.pas index b67bbffe27..2efda36f64 100644 --- a/components/synedit/synhighlightercss.pas +++ b/components/synedit/synhighlightercss.pas @@ -1691,21 +1691,21 @@ end; constructor TSynCssSyn.Create(AOwner: TComponent); begin inherited Create(AOwner); - fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment); + fCommentAttri := TSynHighlighterAttributes.Create(@SYNS_AttrComment, SYNS_XML_AttrComment); fCommentAttri.Style := [fsItalic]; AddAttribute(fCommentAttri); - fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); + fIdentifierAttri := TSynHighlighterAttributes.Create(@SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); AddAttribute(fIdentifierAttri); - fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrKey, SYNS_XML_AttrKey); + fKeyAttri := TSynHighlighterAttributes.Create(@SYNS_AttrKey, SYNS_XML_AttrKey); fKeyAttri.Style := [fsBold]; AddAttribute(fKeyAttri); - fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber); + fNumberAttri := TSynHighlighterAttributes.Create(@SYNS_AttrNumber, SYNS_XML_AttrNumber); AddAttribute(fNumberAttri); - fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace); + fSpaceAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSpace, SYNS_XML_AttrSpace); AddAttribute(fSpaceAttri); - fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString); + fStringAttri := TSynHighlighterAttributes.Create(@SYNS_AttrString, SYNS_XML_AttrString); AddAttribute(fStringAttri); - fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol); + fSymbolAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSymbol, SYNS_XML_AttrSymbol); AddAttribute(fSymbolAttri); SetAttributesOnChange(@DefHighlightChange); InitIdent; diff --git a/components/synedit/synhighlighterdiff.pas b/components/synedit/synhighlighterdiff.pas index 4feaf60377..4069539fea 100644 --- a/components/synedit/synhighlighterdiff.pas +++ b/components/synedit/synhighlighterdiff.pas @@ -482,55 +482,55 @@ constructor TSynDiffSyn.Create(AOwner: TComponent); begin inherited Create(AOwner); - FUnknownAttri := TSynHighlighterAttributes.Create(SYNS_AttrUnknownWord, SYNS_XML_AttrUnknownWord); + FUnknownAttri := TSynHighlighterAttributes.Create(@SYNS_AttrUnknownWord, SYNS_XML_AttrUnknownWord); FUnknownAttri.Style := [fsItalic]; AddAttribute(FUnknownAttri); - FSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace); + FSpaceAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSpace, SYNS_XML_AttrSpace); AddAttribute(FSpaceAttri); - FOrigFileAttri := TSynHighlighterAttributes.Create(SYNS_AttrOrigFile, SYNS_XML_AttrOrigFile); + FOrigFileAttri := TSynHighlighterAttributes.Create(@SYNS_AttrOrigFile, SYNS_XML_AttrOrigFile); FOrigFileAttri.Style := [fsBold]; FOrigFileAttri.Background := clRed; AddAttribute(FOrigFileAttri); - FNewFileAttri := TSynHighlighterAttributes.Create(SYNS_AttrNewFile, SYNS_XML_AttrNewFile); + FNewFileAttri := TSynHighlighterAttributes.Create(@SYNS_AttrNewFile, SYNS_XML_AttrNewFile); FNewFileAttri.Style := [fsBold]; FNewFileAttri.Background := clGreen; AddAttribute(FNewFileAttri); - FChunkMarkerAttri := TSynHighlighterAttributes.Create(SYNS_AttrChunkMarker, SYNS_XML_AttrChunkMarker); + FChunkMarkerAttri := TSynHighlighterAttributes.Create(@SYNS_AttrChunkMarker, SYNS_XML_AttrChunkMarker); FChunkMarkerAttri.Style := [fsBold]; AddAttribute(FChunkMarkerAttri); - FChunkNewAttri := TSynHighlighterAttributes.Create(SYNS_AttrChunkNew, SYNS_XML_AttrChunkNew); + FChunkNewAttri := TSynHighlighterAttributes.Create(@SYNS_AttrChunkNew, SYNS_XML_AttrChunkNew); FChunkNewAttri.Style := [fsBold]; FChunkNewAttri.Foreground := clGreen; AddAttribute(FChunkNewAttri); - FChunkOldAttri := TSynHighlighterAttributes.Create(SYNS_AttrChunkOrig, SYNS_XML_AttrChunkOrig); + FChunkOldAttri := TSynHighlighterAttributes.Create(@SYNS_AttrChunkOrig, SYNS_XML_AttrChunkOrig); FChunkOldAttri.Style := [fsBold]; FChunkOldAttri.Foreground := clRed; AddAttribute(FChunkOldAttri); - FChunkMixedAttri := TSynHighlighterAttributes.Create(SYNS_AttrChunkMixed, SYNS_XML_AttrChunkMixed); + FChunkMixedAttri := TSynHighlighterAttributes.Create(@SYNS_AttrChunkMixed, SYNS_XML_AttrChunkMixed); FChunkMixedAttri.Style := [fsBold]; FChunkMixedAttri.Foreground := clPurple; AddAttribute(FChunkMixedAttri); - FLineAddedAttri := TSynHighlighterAttributes.Create(SYNS_AttrLineAdded, SYNS_XML_AttrLineAdded); + FLineAddedAttri := TSynHighlighterAttributes.Create(@SYNS_AttrLineAdded, SYNS_XML_AttrLineAdded); FLineAddedAttri.Foreground := clGreen; AddAttribute(FLineAddedAttri); - FLineRemovedAttri := TSynHighlighterAttributes.Create(SYNS_AttrLineRemoved, SYNS_XML_AttrLineRemoved); + FLineRemovedAttri := TSynHighlighterAttributes.Create(@SYNS_AttrLineRemoved, SYNS_XML_AttrLineRemoved); FLineRemovedAttri.Foreground := clRed; AddAttribute(FLineRemovedAttri); - FLineChangedAttri := TSynHighlighterAttributes.Create(SYNS_AttrLineChanged, SYNS_XML_AttrLineChanged); + FLineChangedAttri := TSynHighlighterAttributes.Create(@SYNS_AttrLineChanged, SYNS_XML_AttrLineChanged); FLineChangedAttri.Foreground := clPurple; AddAttribute(FLineChangedAttri); - FLineContextAttri := TSynHighlighterAttributes.Create(SYNS_AttrLineContext, SYNS_XML_AttrLineContext); + FLineContextAttri := TSynHighlighterAttributes.Create(@SYNS_AttrLineContext, SYNS_XML_AttrLineContext); AddAttribute(FLineContextAttri); SetAttributesOnChange(@DefHighlightChange); diff --git a/components/synedit/synhighlighterhtml.pp b/components/synedit/synhighlighterhtml.pp index 7c7bcc8163..f7b62f6e7d 100644 --- a/components/synedit/synhighlighterhtml.pp +++ b/components/synedit/synhighlighterhtml.pp @@ -2284,53 +2284,53 @@ begin inherited Create(AOwner); FMode := shmHtml; - fASPAttri := TSynHighlighterAttributes.Create(SYNS_AttrASP, SYNS_XML_AttrASP); + fASPAttri := TSynHighlighterAttributes.Create(@SYNS_AttrASP, SYNS_XML_AttrASP); fASPAttri.Foreground := clBlack; fASPAttri.Background := clYellow; AddAttribute(fASPAttri); - fCDATAAttri := TSynHighlighterAttributes.Create(SYNS_AttrCDATA, SYNS_XML_AttrCDATA); + fCDATAAttri := TSynHighlighterAttributes.Create(@SYNS_AttrCDATA, SYNS_XML_AttrCDATA); fCDATAAttri.Foreground := clGreen; AddAttribute(fCDATAAttri); - fDOCTYPEAttri := TSynHighlighterAttributes.Create(SYNS_AttrDOCTYPE, SYNS_XML_AttrDOCTYPE); + fDOCTYPEAttri := TSynHighlighterAttributes.Create(@SYNS_AttrDOCTYPE, SYNS_XML_AttrDOCTYPE); fDOCTYPEAttri.Foreground := clBlack; fDOCTYPEAttri.Background := clYellow; fDOCTYPEAttri.Style := [fsBold]; AddAttribute(fDOCTYPEAttri); - fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment); + fCommentAttri := TSynHighlighterAttributes.Create(@SYNS_AttrComment, SYNS_XML_AttrComment); AddAttribute(fCommentAttri); - fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); + fIdentifierAttri := TSynHighlighterAttributes.Create(@SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); fIdentifierAttri.Style := [fsBold]; AddAttribute(fIdentifierAttri); - fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); + fKeyAttri := TSynHighlighterAttributes.Create(@SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); fKeyAttri.Style := [fsBold]; fKeyAttri.Foreground := $00ff0080; AddAttribute(fKeyAttri); - fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace); + fSpaceAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSpace, SYNS_XML_AttrSpace); AddAttribute(fSpaceAttri); - fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol); + fSymbolAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSymbol, SYNS_XML_AttrSymbol); fSymbolAttri.Style := [fsBold]; AddAttribute(fSymbolAttri); - fTextAttri := TSynHighlighterAttributes.Create(SYNS_AttrText, SYNS_XML_AttrText); + fTextAttri := TSynHighlighterAttributes.Create(@SYNS_AttrText, SYNS_XML_AttrText); AddAttribute(fTextAttri); - fUndefKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrUnknownWord, SYNS_XML_AttrUnknownWord); + fUndefKeyAttri := TSynHighlighterAttributes.Create(@SYNS_AttrUnknownWord, SYNS_XML_AttrUnknownWord); fUndefKeyAttri.Style := [fsBold]; fUndefKeyAttri.Foreground := clRed; AddAttribute(fUndefKeyAttri); - fValueAttri := TSynHighlighterAttributes.Create(SYNS_AttrValue, SYNS_XML_AttrValue); + fValueAttri := TSynHighlighterAttributes.Create(@SYNS_AttrValue, SYNS_XML_AttrValue); fValueAttri.Foreground := $00ff8000; AddAttribute(fValueAttri); - fAndAttri := TSynHighlighterAttributes.Create(SYNS_AttrEscapeAmpersand, SYNS_XML_AttrEscapeAmpersand); + fAndAttri := TSynHighlighterAttributes.Create(@SYNS_AttrEscapeAmpersand, SYNS_XML_AttrEscapeAmpersand); fAndAttri.Style := [fsBold]; fAndAttri.Foreground := $0000ff00; AddAttribute(fAndAttri); diff --git a/components/synedit/synhighlighterini.pas b/components/synedit/synhighlighterini.pas index 28ab06824b..34910a50b1 100644 --- a/components/synedit/synhighlighterini.pas +++ b/components/synedit/synhighlighterini.pas @@ -159,25 +159,25 @@ end; constructor TSynIniSyn.Create(AOwner: TComponent); begin inherited Create(AOwner); - fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment); + fCommentAttri := TSynHighlighterAttributes.Create(@SYNS_AttrComment); fCommentAttri.Style := [fsItalic]; fCommentAttri.Foreground := clGreen; AddAttribute(fCommentAttri); - fTextAttri := TSynHighlighterAttributes.Create(SYNS_AttrText); + fTextAttri := TSynHighlighterAttributes.Create(@SYNS_AttrText); AddAttribute(fTextAttri); - fSectionAttri := TSynHighlighterAttributes.Create(SYNS_AttrSection); + fSectionAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSection); fSectionAttri.Style := [fsBold]; AddAttribute(fSectionAttri); - fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrKey); + fKeyAttri := TSynHighlighterAttributes.Create(@SYNS_AttrKey); fKeyAttri.Foreground := clBlue; AddAttribute(fKeyAttri); - fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber); + fNumberAttri := TSynHighlighterAttributes.Create(@SYNS_AttrNumber); AddAttribute(fNumberAttri); - fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace); + fSpaceAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSpace); AddAttribute(fSpaceAttri); - fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString); + fStringAttri := TSynHighlighterAttributes.Create(@SYNS_AttrString); AddAttribute(fStringAttri); - fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol); + fSymbolAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSymbol); fSymbolAttri.Foreground := clRed; AddAttribute(fSymbolAttri); SetAttributesOnChange(@DefHighlightChange); diff --git a/components/synedit/synhighlighterjava.pas b/components/synedit/synhighlighterjava.pas index c68fe97d06..ae257d288d 100644 --- a/components/synedit/synhighlighterjava.pas +++ b/components/synedit/synhighlighterjava.pas @@ -649,27 +649,27 @@ end; constructor TSynJavaSyn.Create(AOwner: TComponent); begin inherited Create(AOwner); - fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment); + fCommentAttri := TSynHighlighterAttributes.Create(@SYNS_AttrComment, SYNS_XML_AttrComment); fCommentAttri.Style := [fsItalic]; AddAttribute(fCommentAttri); - fDocumentAttri := TSynHighlighterAttributes.Create(SYNS_AttrDocumentation, SYNS_XML_AttrDocumentation); + fDocumentAttri := TSynHighlighterAttributes.Create(@SYNS_AttrDocumentation, SYNS_XML_AttrDocumentation); fDocumentAttri.Style := [fsItalic]; AddAttribute(fDocumentAttri); - fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); + fIdentifierAttri := TSynHighlighterAttributes.Create(@SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); AddAttribute(fIdentifierAttri); - fInvalidAttri := TSynHighlighterAttributes.Create(SYNS_AttrInvalidSymbol, SYNS_XML_AttrInvalidSymbol); + fInvalidAttri := TSynHighlighterAttributes.Create(@SYNS_AttrInvalidSymbol, SYNS_XML_AttrInvalidSymbol); AddAttribute(fInvalidAttri); - fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); + fKeyAttri := TSynHighlighterAttributes.Create(@SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); fKeyAttri.Style := [fsBold]; AddAttribute(fKeyAttri); - fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber); + fNumberAttri := TSynHighlighterAttributes.Create(@SYNS_AttrNumber, SYNS_XML_AttrNumber); AddAttribute(fNumberAttri); - fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace); + fSpaceAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSpace, SYNS_XML_AttrSpace); fSpaceAttri.Foreground := clWindow; AddAttribute(fSpaceAttri); - fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString); + fStringAttri := TSynHighlighterAttributes.Create(@SYNS_AttrString, SYNS_XML_AttrString); AddAttribute(fStringAttri); - fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol); + fSymbolAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSymbol, SYNS_XML_AttrSymbol); AddAttribute(fSymbolAttri); fRange := rsUnknown; SetAttributesOnChange(@DefHighlightChange); diff --git a/components/synedit/synhighlighterjscript.pas b/components/synedit/synhighlighterjscript.pas index 12b8314313..c741eae734 100644 --- a/components/synedit/synhighlighterjscript.pas +++ b/components/synedit/synhighlighterjscript.pas @@ -1494,25 +1494,25 @@ end; constructor TSynJScriptSyn.Create(AOwner: TComponent); begin inherited Create(AOwner); - fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment); + fCommentAttri := TSynHighlighterAttributes.Create(@SYNS_AttrComment, SYNS_XML_AttrComment); fCommentAttri.Style := [fsItalic]; AddAttribute(fCommentAttri); - fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); + fIdentifierAttri := TSynHighlighterAttributes.Create(@SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); AddAttribute(fIdentifierAttri); - fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); + fKeyAttri := TSynHighlighterAttributes.Create(@SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); fKeyAttri.Style := [fsBold]; AddAttribute(fKeyAttri); - fNonReservedKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrNonReservedKeyword, SYNS_XML_AttrNonReservedKeyword); + fNonReservedKeyAttri := TSynHighlighterAttributes.Create(@SYNS_AttrNonReservedKeyword, SYNS_XML_AttrNonReservedKeyword); AddAttribute(fNonReservedKeyAttri); - fEventAttri := TSynHighlighterAttributes.Create(SYNS_AttrEvent, SYNS_XML_AttrEvent); + fEventAttri := TSynHighlighterAttributes.Create(@SYNS_AttrEvent, SYNS_XML_AttrEvent); AddAttribute(fEventAttri); - fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber); + fNumberAttri := TSynHighlighterAttributes.Create(@SYNS_AttrNumber, SYNS_XML_AttrNumber); AddAttribute(fNumberAttri); - fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace); + fSpaceAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSpace, SYNS_XML_AttrSpace); AddAttribute(fSpaceAttri); - fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString); + fStringAttri := TSynHighlighterAttributes.Create(@SYNS_AttrString, SYNS_XML_AttrString); AddAttribute(fStringAttri); - fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol); + fSymbolAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSymbol, SYNS_XML_AttrSymbol); AddAttribute(fSymbolAttri); SetAttributesOnChange(@DefHighlightChange); InitIdent; diff --git a/components/synedit/synhighlighterlfm.pas b/components/synedit/synhighlighterlfm.pas index 680fadc248..bd7551c5a4 100644 --- a/components/synedit/synhighlighterlfm.pas +++ b/components/synedit/synhighlighterlfm.pas @@ -276,21 +276,21 @@ end; constructor TSynLFMSyn.Create(AOwner: TComponent); begin inherited Create(AOwner); - fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment); + fCommentAttri := TSynHighlighterAttributes.Create(@SYNS_AttrComment, SYNS_XML_AttrComment); fCommentAttri.Style := [fsItalic]; AddAttribute(fCommentAttri); - fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); + fIdentifierAttri := TSynHighlighterAttributes.Create(@SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); AddAttribute(fIdentifierAttri); - fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrKey, SYNS_XML_AttrKey); + fKeyAttri := TSynHighlighterAttributes.Create(@SYNS_AttrKey, SYNS_XML_AttrKey); fKeyAttri.Style := [fsBold]; AddAttribute(fKeyAttri); - fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber); + fNumberAttri := TSynHighlighterAttributes.Create(@SYNS_AttrNumber, SYNS_XML_AttrNumber); AddAttribute(fNumberAttri); - fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace); + fSpaceAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSpace, SYNS_XML_AttrSpace); AddAttribute(fSpaceAttri); - fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString); + fStringAttri := TSynHighlighterAttributes.Create(@SYNS_AttrString, SYNS_XML_AttrString); AddAttribute(fStringAttri); - fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol); + fSymbolAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSymbol, SYNS_XML_AttrSymbol); AddAttribute(fSymbolAttri); SetAttributesOnChange(@DefHighlightChange); MakeMethodTables; diff --git a/components/synedit/synhighlightermulti.pas b/components/synedit/synhighlightermulti.pas index 13396d493f..28d08772c9 100644 --- a/components/synedit/synhighlightermulti.pas +++ b/components/synedit/synhighlightermulti.pas @@ -1817,7 +1817,7 @@ begin FStartExprScanner := TRegExpr.Create; FEndExprScanner := TRegExpr.Create; fCaseSensitive := True; - fMarkerAttri := TSynHighlighterAttributes.Create(SYNS_AttrMarker, SYNS_XML_AttrMarker); + fMarkerAttri := TSynHighlighterAttributes.Create(@SYNS_AttrMarker, SYNS_XML_AttrMarker); fMarkerAttri.OnChange := @MarkerAttriChanged; MarkerAttri.Background := clYellow; MarkerAttri.Style := [fsBold]; diff --git a/components/synedit/synhighlighterpas.pp b/components/synedit/synhighlighterpas.pp index c1b0ab499b..dd7423560e 100644 --- a/components/synedit/synhighlighterpas.pp +++ b/components/synedit/synhighlighterpas.pp @@ -2258,34 +2258,34 @@ begin FExtendedKeywordsMode := False; CreateDividerDrawConfig; fD4syntax := true; - fAsmAttri := TSynHighlighterAttributes.Create(SYNS_AttrAssembler, SYNS_XML_AttrAssembler); + fAsmAttri := TSynHighlighterAttributes.Create(@SYNS_AttrAssembler, SYNS_XML_AttrAssembler); AddAttribute(fAsmAttri); - fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment); + fCommentAttri := TSynHighlighterAttributes.Create(@SYNS_AttrComment, SYNS_XML_AttrComment); fCommentAttri.Style:= [fsItalic]; AddAttribute(fCommentAttri); - FIDEDirectiveAttri := TSynHighlighterAttributesModifier.Create(SYNS_AttrIDEDirective, SYNS_XML_AttrIDEDirective); + FIDEDirectiveAttri := TSynHighlighterAttributesModifier.Create(@SYNS_AttrIDEDirective, SYNS_XML_AttrIDEDirective); AddAttribute(FIDEDirectiveAttri); // FCurIDEDirectiveAttri, FCurCaseLabelAttri // They are not available through the "Attribute" property (not added via AddAttribute // But they are returned via GetTokenAttribute, so they should have a name. - FCurIDEDirectiveAttri := TSynSelectedColorMergeResult.Create(SYNS_AttrIDEDirective, SYNS_XML_AttrIDEDirective); - fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); + FCurIDEDirectiveAttri := TSynSelectedColorMergeResult.Create(@SYNS_AttrIDEDirective, SYNS_XML_AttrIDEDirective); + fIdentifierAttri := TSynHighlighterAttributes.Create(@SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); AddAttribute(fIdentifierAttri); - fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); + fKeyAttri := TSynHighlighterAttributes.Create(@SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); fKeyAttri.Style:= [fsBold]; AddAttribute(fKeyAttri); - fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber); + fNumberAttri := TSynHighlighterAttributes.Create(@SYNS_AttrNumber, SYNS_XML_AttrNumber); AddAttribute(fNumberAttri); - fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace); + fSpaceAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSpace, SYNS_XML_AttrSpace); AddAttribute(fSpaceAttri); - fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString); + fStringAttri := TSynHighlighterAttributes.Create(@SYNS_AttrString, SYNS_XML_AttrString); AddAttribute(fStringAttri); - fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol); + fSymbolAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSymbol, SYNS_XML_AttrSymbol); AddAttribute(fSymbolAttri); - FCaseLabelAttri := TSynHighlighterAttributesModifier.Create(SYNS_AttrCaseLabel, SYNS_XML_AttrCaseLabel); + FCaseLabelAttri := TSynHighlighterAttributesModifier.Create(@SYNS_AttrCaseLabel, SYNS_XML_AttrCaseLabel); AddAttribute(FCaseLabelAttri); - FCurCaseLabelAttri := TSynSelectedColorMergeResult.Create(SYNS_AttrCaseLabel, SYNS_XML_AttrCaseLabel); - fDirectiveAttri := TSynHighlighterAttributes.Create(SYNS_AttrDirective, SYNS_XML_AttrDirective); + FCurCaseLabelAttri := TSynSelectedColorMergeResult.Create(@SYNS_AttrCaseLabel, SYNS_XML_AttrCaseLabel); + fDirectiveAttri := TSynHighlighterAttributes.Create(@SYNS_AttrDirective, SYNS_XML_AttrDirective); fDirectiveAttri.Style:= [fsItalic]; AddAttribute(fDirectiveAttri); CompilerMode:=pcmDelphi; @@ -4021,15 +4021,15 @@ function TSynPasSyn.UseUserSettings(settingIndex: integer): boolean; EnumUserSettings(s); if (settingIndex < 0) or (settingIndex >= s.Count) then Result := false else begin - tmpStringAttri := TSynHighlighterAttributes.Create(''); - tmpNumberAttri := TSynHighlighterAttributes.Create(''); - tmpKeyAttri := TSynHighlighterAttributes.Create(''); - tmpSymbolAttri := TSynHighlighterAttributes.Create(''); - tmpAsmAttri := TSynHighlighterAttributes.Create(''); - tmpCommentAttri := TSynHighlighterAttributes.Create(''); - tmpDirectiveAttri := TSynHighlighterAttributes.Create(''); - tmpIdentifierAttri:= TSynHighlighterAttributes.Create(''); - tmpSpaceAttri := TSynHighlighterAttributes.Create(''); + tmpStringAttri := TSynHighlighterAttributes.Create(nil); + tmpNumberAttri := TSynHighlighterAttributes.Create(nil); + tmpKeyAttri := TSynHighlighterAttributes.Create(nil); + tmpSymbolAttri := TSynHighlighterAttributes.Create(nil); + tmpAsmAttri := TSynHighlighterAttributes.Create(nil); + tmpCommentAttri := TSynHighlighterAttributes.Create(nil); + tmpDirectiveAttri := TSynHighlighterAttributes.Create(nil); + tmpIdentifierAttri:= TSynHighlighterAttributes.Create(nil); + tmpSpaceAttri := TSynHighlighterAttributes.Create(nil); tmpStringAttri .Assign(fStringAttri); tmpNumberAttri .Assign(fNumberAttri); tmpKeyAttri .Assign(fKeyAttri); diff --git a/components/synedit/synhighlighterperl.pas b/components/synedit/synhighlighterperl.pas index a404de973a..a9348ebb2a 100644 --- a/components/synedit/synhighlighterperl.pas +++ b/components/synedit/synhighlighterperl.pas @@ -1992,31 +1992,31 @@ end; constructor TSynPerlSyn.Create(AOwner: TComponent); begin inherited Create(AOwner); - fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment); + fCommentAttri := TSynHighlighterAttributes.Create(@SYNS_AttrComment, SYNS_XML_AttrComment); fCommentAttri.Style:= [fsItalic]; AddAttribute(fCommentAttri); - fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); + fIdentifierAttri := TSynHighlighterAttributes.Create(@SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); AddAttribute(fIdentifierAttri); - fInvalidAttri := TSynHighlighterAttributes.Create(SYNS_AttrIllegalChar, SYNS_XML_AttrIllegalChar); + fInvalidAttri := TSynHighlighterAttributes.Create(@SYNS_AttrIllegalChar, SYNS_XML_AttrIllegalChar); AddAttribute(fInvalidAttri); - fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); + fKeyAttri := TSynHighlighterAttributes.Create(@SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); fKeyAttri.Style:= [fsBold]; AddAttribute(fKeyAttri); - fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber); + fNumberAttri := TSynHighlighterAttributes.Create(@SYNS_AttrNumber, SYNS_XML_AttrNumber); AddAttribute(fNumberAttri); - fOperatorAttri := TSynHighlighterAttributes.Create(SYNS_AttrOperator, SYNS_XML_AttrOperator); + fOperatorAttri := TSynHighlighterAttributes.Create(@SYNS_AttrOperator, SYNS_XML_AttrOperator); AddAttribute(fOperatorAttri); - fPragmaAttri := TSynHighlighterAttributes.Create(SYNS_AttrPragma, SYNS_XML_AttrPragma); + fPragmaAttri := TSynHighlighterAttributes.Create(@SYNS_AttrPragma, SYNS_XML_AttrPragma); fPragmaAttri.Style := [fsBold]; AddAttribute(fPragmaAttri); - fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace); + fSpaceAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSpace, SYNS_XML_AttrSpace); fSpaceAttri.Foreground := clWindow; AddAttribute(fSpaceAttri); - fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString); + fStringAttri := TSynHighlighterAttributes.Create(@SYNS_AttrString, SYNS_XML_AttrString); AddAttribute(fStringAttri); - fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol); + fSymbolAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSymbol, SYNS_XML_AttrSymbol); AddAttribute(fSymbolAttri); - fVariableAttri := TSynHighlighterAttributes.Create(SYNS_AttrVariable, SYNS_XML_AttrVariable); + fVariableAttri := TSynHighlighterAttributes.Create(@SYNS_AttrVariable, SYNS_XML_AttrVariable); fVariableAttri.Style := [fsBold]; AddAttribute(fVariableAttri); SetAttributesOnChange(@DefHighlightChange); diff --git a/components/synedit/synhighlighterphp.pas b/components/synedit/synhighlighterphp.pas index b6f45d0834..5370766980 100644 --- a/components/synedit/synhighlighterphp.pas +++ b/components/synedit/synhighlighterphp.pas @@ -644,25 +644,25 @@ constructor TSynPHPSyn.Create(AOwner: TComponent); begin {begin} //mh 2000-01-14 inherited Create(AOwner); - fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment); + fCommentAttri := TSynHighlighterAttributes.Create(@SYNS_AttrComment, SYNS_XML_AttrComment); fCommentAttri.Style := [fsItalic]; AddAttribute(fCommentAttri); - fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); + fIdentifierAttri := TSynHighlighterAttributes.Create(@SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); AddAttribute(fIdentifierAttri); - fInvalidSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrInvalidSymbol, SYNS_XML_AttrInvalidSymbol); + fInvalidSymbolAttri := TSynHighlighterAttributes.Create(@SYNS_AttrInvalidSymbol, SYNS_XML_AttrInvalidSymbol); AddAttribute(fInvalidSymbolAttri); - fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); + fKeyAttri := TSynHighlighterAttributes.Create(@SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); fKeyAttri.Style := [fsBold]; AddAttribute(fKeyAttri); - fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber); + fNumberAttri := TSynHighlighterAttributes.Create(@SYNS_AttrNumber, SYNS_XML_AttrNumber); AddAttribute(fNumberAttri); - fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace); + fSpaceAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSpace, SYNS_XML_AttrSpace); AddAttribute(fSpaceAttri); - fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString); + fStringAttri := TSynHighlighterAttributes.Create(@SYNS_AttrString, SYNS_XML_AttrString); AddAttribute(fStringAttri); - fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol); + fSymbolAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSymbol, SYNS_XML_AttrSymbol); AddAttribute(fSymbolAttri); - fVariableAttri := TSynHighlighterAttributes.Create(SYNS_AttrVariable, SYNS_XML_AttrVariable); + fVariableAttri := TSynHighlighterAttributes.Create(@SYNS_AttrVariable, SYNS_XML_AttrVariable); AddAttribute(fVariableAttri); {end} //mh 2000-01-14 SetAttributesOnChange(@DefHighlightChange); diff --git a/components/synedit/synhighlighterpo.pp b/components/synedit/synhighlighterpo.pp index 0780d95bf6..9503f951d0 100644 --- a/components/synedit/synhighlighterpo.pp +++ b/components/synedit/synhighlighterpo.pp @@ -135,37 +135,37 @@ end; constructor TSynPoSyn.Create(AOwner: TComponent); begin inherited Create(AOwner); - fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment); + fCommentAttri := TSynHighlighterAttributes.Create(@SYNS_AttrComment); fCommentAttri.Style := [fsItalic]; fCommentAttri.Foreground := clGreen; AddAttribute(fCommentAttri); - fTextAttri := TSynHighlighterAttributes.Create(SYNS_AttrText); + fTextAttri := TSynHighlighterAttributes.Create(@SYNS_AttrText); AddAttribute(fTextAttri); - fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrKey); + fKeyAttri := TSynHighlighterAttributes.Create(@SYNS_AttrKey); fKeyAttri.Foreground := clBlue; fKeyAttri.Style := [fsBold]; AddAttribute(fKeyAttri); - fIdentAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); + fIdentAttri := TSynHighlighterAttributes.Create(@SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); fIdentAttri.Foreground := clGreen; fIdentAttri.Style := [fsBold]; AddAttribute(fIdentAttri); - fPrevAttri := TSynHighlighterAttributes.Create(SYNS_AttrPrevValue, SYNS_XML_AttrPrevValue); + fPrevAttri := TSynHighlighterAttributes.Create(@SYNS_AttrPrevValue, SYNS_XML_AttrPrevValue); fPrevAttri.Foreground := clOlive; fPrevAttri.Style := [fsItalic]; AddAttribute(fPrevAttri); - fFlagAttri := TSynHighlighterAttributes.Create(SYNS_AttrFlags, SYNS_XML_AttrFlags); + fFlagAttri := TSynHighlighterAttributes.Create(@SYNS_AttrFlags, SYNS_XML_AttrFlags); fFlagAttri.Foreground := clTeal; AddAttribute(fFlagAttri); - fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace); + fSpaceAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSpace, SYNS_XML_AttrSpace); AddAttribute(fSpaceAttri); - fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString); + fStringAttri := TSynHighlighterAttributes.Create(@SYNS_AttrString, SYNS_XML_AttrString); fStringAttri.Foreground := clFuchsia; AddAttribute(fStringAttri); diff --git a/components/synedit/synhighlighterposition.pas b/components/synedit/synhighlighterposition.pas index 634123d4d9..e82f53014e 100644 --- a/components/synedit/synhighlighterposition.pas +++ b/components/synedit/synhighlighterposition.pas @@ -153,7 +153,7 @@ begin inherited Create(TheOwner); fTokens:=TList.Create; fCopiedAttributes:=TList.Create; - fTextAttri := TSynHighlighterAttributes.Create(SYNS_AttrText, SYNS_XML_AttrText); + fTextAttri := TSynHighlighterAttributes.Create(@SYNS_AttrText, SYNS_XML_AttrText); AddAttribute(fTextAttri); SetAttributesOnChange(@DefHighlightChange); @@ -420,7 +420,7 @@ begin dec(i); end; // create new attribute - CurAttr:=TSynHighlighterAttributes.Create(''); + CurAttr:=TSynHighlighterAttributes.Create(nil); CurAttr.Assign(Attr); fCopiedAttributes.Add(CurAttr); Result:= -fCopiedAttributes.Count; diff --git a/components/synedit/synhighlighterpython.pas b/components/synedit/synhighlighterpython.pas index 141fef3d7c..86b6495252 100644 --- a/components/synedit/synhighlighterpython.pas +++ b/components/synedit/synhighlighterpython.pas @@ -385,45 +385,45 @@ begin FKeywords.Assign (GetKeywordIdentifiers); fRange := rsUnknown; - fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment); + fCommentAttri := TSynHighlighterAttributes.Create(@SYNS_AttrComment, SYNS_XML_AttrComment); fCommentAttri.Foreground := clGray; fCommentAttri.Style := [fsItalic]; AddAttribute(fCommentAttri); - fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); + fIdentifierAttri := TSynHighlighterAttributes.Create(@SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); AddAttribute(fIdentifierAttri); - fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); + fKeyAttri := TSynHighlighterAttributes.Create(@SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); fKeyAttri.Style := [fsBold]; AddAttribute(fKeyAttri); - fNonKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrNonReservedKeyword, SYNS_XML_AttrNonReservedKeyword); + fNonKeyAttri := TSynHighlighterAttributes.Create(@SYNS_AttrNonReservedKeyword, SYNS_XML_AttrNonReservedKeyword); fNonKeyAttri.Foreground := clNavy; fNonKeyAttri.Style := [fsBold]; AddAttribute (fNonKeyAttri); - fSystemAttri := TSynHighlighterAttributes.Create(SYNS_AttrSystem, SYNS_XML_AttrSystem); + fSystemAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSystem, SYNS_XML_AttrSystem); fSystemAttri.Style := [fsBold]; AddAttribute (fSystemAttri); - fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber); + fNumberAttri := TSynHighlighterAttributes.Create(@SYNS_AttrNumber, SYNS_XML_AttrNumber); fNumberAttri.Foreground := clBlue; AddAttribute(fNumberAttri); - fHexAttri := TSynHighlighterAttributes.Create(SYNS_AttrHexadecimal, SYNS_XML_AttrHexadecimal); + fHexAttri := TSynHighlighterAttributes.Create(@SYNS_AttrHexadecimal, SYNS_XML_AttrHexadecimal); fHexAttri.Foreground := clBlue; AddAttribute(fHexAttri); - fOctalAttri := TSynHighlighterAttributes.Create(SYNS_AttrOctal, SYNS_XML_AttrOctal); + fOctalAttri := TSynHighlighterAttributes.Create(@SYNS_AttrOctal, SYNS_XML_AttrOctal); fOctalAttri.Foreground := clBlue; AddAttribute(fOctalAttri); - fFloatAttri := TSynHighlighterAttributes.Create(SYNS_AttrFloat, SYNS_XML_AttrFloat); + fFloatAttri := TSynHighlighterAttributes.Create(@SYNS_AttrFloat, SYNS_XML_AttrFloat); fFloatAttri.Foreground := clBlue; AddAttribute(fFloatAttri); - fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace); + fSpaceAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSpace, SYNS_XML_AttrSpace); AddAttribute(fSpaceAttri); - fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString); + fStringAttri := TSynHighlighterAttributes.Create(@SYNS_AttrString, SYNS_XML_AttrString); fStringAttri.Foreground := clBlue; AddAttribute(fStringAttri); - fDocStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrDocumentation, SYNS_XML_AttrDocumentation); + fDocStringAttri := TSynHighlighterAttributes.Create(@SYNS_AttrDocumentation, SYNS_XML_AttrDocumentation); fDocStringAttri.Foreground := clTeal; AddAttribute(fDocStringAttri); - fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol); + fSymbolAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSymbol, SYNS_XML_AttrSymbol); AddAttribute(fSymbolAttri); - fErrorAttri := TSynHighlighterAttributes.Create(SYNS_AttrSyntaxError, SYNS_XML_AttrSyntaxError); + fErrorAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSyntaxError, SYNS_XML_AttrSyntaxError); fErrorAttri.Foreground := clRed; AddAttribute(fErrorAttri); SetAttributesOnChange(@DefHighlightChange); diff --git a/components/synedit/synhighlightersql.pas b/components/synedit/synhighlightersql.pas index cf054b5a02..e2863dc728 100644 --- a/components/synedit/synhighlightersql.pas +++ b/components/synedit/synhighlightersql.pas @@ -1166,50 +1166,50 @@ begin fKeywords := TSynHashEntryList.Create; fTableNames := TStringList.Create; TStringList(fTableNames).OnChange := @TableNamesChanged; - fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment); + fCommentAttri := TSynHighlighterAttributes.Create(@SYNS_AttrComment, SYNS_XML_AttrComment); fCommentAttri.Style := [fsItalic]; AddAttribute(fCommentAttri); - fDataTypeAttri := TSynHighlighterAttributes.Create(SYNS_AttrDataType, SYNS_XML_AttrDataType); + fDataTypeAttri := TSynHighlighterAttributes.Create(@SYNS_AttrDataType, SYNS_XML_AttrDataType); fDataTypeAttri.Style := [fsBold]; AddAttribute(fDataTypeAttri); {begin} // DJLP 2000-08-11 fDefaultPackageAttri := - TSynHighlighterAttributes.Create(SYNS_AttrDefaultPackage, SYNS_XML_AttrDefaultPackage); + TSynHighlighterAttributes.Create(@SYNS_AttrDefaultPackage, SYNS_XML_AttrDefaultPackage); fDefaultPackageAttri.Style := [fsBold]; AddAttribute(fDefaultPackageAttri); {end} // DJLP 2000-08-11 - fExceptionAttri := TSynHighlighterAttributes.Create(SYNS_AttrException, SYNS_XML_AttrException); + fExceptionAttri := TSynHighlighterAttributes.Create(@SYNS_AttrException, SYNS_XML_AttrException); fExceptionAttri.Style := [fsItalic]; AddAttribute(fExceptionAttri); - fFunctionAttri := TSynHighlighterAttributes.Create(SYNS_AttrFunction, SYNS_XML_AttrFunction); + fFunctionAttri := TSynHighlighterAttributes.Create(@SYNS_AttrFunction, SYNS_XML_AttrFunction); fFunctionAttri.Style := [fsBold]; AddAttribute(fFunctionAttri); - fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); + fIdentifierAttri := TSynHighlighterAttributes.Create(@SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); AddAttribute(fIdentifierAttri); - fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); + fKeyAttri := TSynHighlighterAttributes.Create(@SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); fKeyAttri.Style := [fsBold]; AddAttribute(fKeyAttri); - fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber); + fNumberAttri := TSynHighlighterAttributes.Create(@SYNS_AttrNumber, SYNS_XML_AttrNumber); AddAttribute(fNumberAttri); {begin} // DJLP 2000-08-11 - fPLSQLAttri := TSynHighlighterAttributes.Create(SYNS_AttrPLSQL, SYNS_XML_AttrPLSQL); + fPLSQLAttri := TSynHighlighterAttributes.Create(@SYNS_AttrPLSQL, SYNS_XML_AttrPLSQL); fPLSQLAttri.Style := [fsBold]; AddAttribute(fPLSQLAttri); {end} // DJLP 2000-08-11 - fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace); + fSpaceAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSpace, SYNS_XML_AttrSpace); AddAttribute(fSpaceAttri); {begin} // DJLP 2000-09-05 - fSQLPlusAttri:=TSynHighlighterAttributes.Create(SYNS_AttrSQLPlus, SYNS_XML_AttrSQLPlus); + fSQLPlusAttri:=TSynHighlighterAttributes.Create(@SYNS_AttrSQLPlus, SYNS_XML_AttrSQLPlus); fSQLPlusAttri.Style := [fsBold]; AddAttribute(fSQLPlusAttri); {end} // DJLP 2000-09-05 - fStringAttri := TSynHighlighterAttributes.Create(SYNS_Attrstring, SYNS_XML_Attrstring); + fStringAttri := TSynHighlighterAttributes.Create(@SYNS_Attrstring, SYNS_XML_Attrstring); AddAttribute(fStringAttri); - fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol); + fSymbolAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSymbol, SYNS_XML_AttrSymbol); AddAttribute(fSymbolAttri); - fTableNameAttri := TSynHighlighterAttributes.Create(SYNS_AttrTableName, SYNS_XML_AttrTableName); + fTableNameAttri := TSynHighlighterAttributes.Create(@SYNS_AttrTableName, SYNS_XML_AttrTableName); AddAttribute(fTableNameAttri); - fVariableAttri := TSynHighlighterAttributes.Create(SYNS_AttrVariable, SYNS_XML_AttrVariable); + fVariableAttri := TSynHighlighterAttributes.Create(@SYNS_AttrVariable, SYNS_XML_AttrVariable); AddAttribute(fVariableAttri); SetAttributesOnChange(@DefHighlightChange); MakeMethodTables; diff --git a/components/synedit/synhighlightertex.pas b/components/synedit/synhighlightertex.pas index ed6a390106..6d1e100254 100644 --- a/components/synedit/synhighlightertex.pas +++ b/components/synedit/synhighlightertex.pas @@ -69,7 +69,7 @@ type fBracketAttri: TSynHighlighterAttributes; fBraceAttri: TSynHighlighterAttributes; - function CreateHighlighterAttributes(AName:String; Foreground, + function CreateHighlighterAttributes(AName:PString; Foreground, Background: TColor; FontStyles: TFontStyles) : TSynHighlighterAttributes; @@ -155,26 +155,26 @@ constructor TSynTeXSyn.Create(AOwner: TComponent); begin inherited Create(AOwner); - fCommentAttri:=CreateHighlighterAttributes(SYNS_AttrComment,clTeal,clNone,[]); + fCommentAttri:=CreateHighlighterAttributes(@SYNS_AttrComment,clTeal,clNone,[]); AddAttribute(fCommentAttri); - fTextAttri:= CreateHighlighterAttributes(SYNS_AttrText,clBlack,clNone,[]); + fTextAttri:= CreateHighlighterAttributes(@SYNS_AttrText,clBlack,clNone,[]); AddAttribute(fTextAttri); - fMathmodeAttri:=CreateHighlighterAttributes(SYNS_AttrMathmode,clOlive,clNone,[fsbold]); + fMathmodeAttri:=CreateHighlighterAttributes(@SYNS_AttrMathmode,clOlive,clNone,[fsbold]); AddAttribute(fMathmodeAttri); - fSpaceAttri:=CreateHighlighterAttributes(SYNS_AttrSpace,clNone,clWhite,[]); + fSpaceAttri:=CreateHighlighterAttributes(@SYNS_AttrSpace,clNone,clWhite,[]); AddAttribute(fSpaceAttri); - fControlSequenceAttri:=CreateHighlighterAttributes(SYNS_AttrTexCommand,clBlue,clWhite,[fsBold]); + fControlSequenceAttri:=CreateHighlighterAttributes(@SYNS_AttrTexCommand,clBlue,clWhite,[fsBold]); AddAttribute(fControlSequenceAttri); - fBracketAttri:=CreateHighlighterAttributes(SYNS_AttrSquareBracket,clPurple,clNone,[]); + fBracketAttri:=CreateHighlighterAttributes(@SYNS_AttrSquareBracket,clPurple,clNone,[]); AddAttribute(fBracketAttri); fBraceAttri:= - CreateHighlighterAttributes(SYNS_AttrRoundBracket,clRed,clNone,[fsBold]); + CreateHighlighterAttributes(@SYNS_AttrRoundBracket,clRed,clNone,[fsBold]); AddAttribute(fBraceAttri); //************************* @@ -366,7 +366,7 @@ end; { GetLanguageName } -function TSynTeXSyn.CreateHighlighterAttributes(AName:String; Foreground, +function TSynTeXSyn.CreateHighlighterAttributes(AName:PString; Foreground, Background: TColor; FontStyles: TFontStyles) : TSynHighlighterAttributes; diff --git a/components/synedit/synhighlighterunixshellscript.pas b/components/synedit/synhighlighterunixshellscript.pas index 2e33367c78..5ce04ab69b 100644 --- a/components/synedit/synhighlighterunixshellscript.pas +++ b/components/synedit/synhighlighterunixshellscript.pas @@ -287,29 +287,29 @@ begin fSecondKeys.Add(ShellScriptSecondKeys[i]); end; - fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment); + fCommentAttri := TSynHighlighterAttributes.Create(@SYNS_AttrComment, SYNS_XML_AttrComment); fCommentAttri.Foreground := clGreen; AddAttribute(fCommentAttri); - fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); + fIdentifierAttri := TSynHighlighterAttributes.Create(@SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); AddAttribute(fIdentifierAttri); - fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); + fKeyAttri := TSynHighlighterAttributes.Create(@SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); fKeyAttri.Foreground := clNavy; fKeyAttri.Style := [fsBold]; AddAttribute(fKeyAttri); - fSecondKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrSecondReservedWord, SYNS_XML_AttrSecondReservedWord); + fSecondKeyAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSecondReservedWord, SYNS_XML_AttrSecondReservedWord); AddAttribute(fSecondKeyAttri); - fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber); + fNumberAttri := TSynHighlighterAttributes.Create(@SYNS_AttrNumber, SYNS_XML_AttrNumber); fNumberAttri.Foreground := clBlue; AddAttribute(fNumberAttri); - fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace); + fSpaceAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSpace, SYNS_XML_AttrSpace); AddAttribute(fSpaceAttri); - fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString); + fStringAttri := TSynHighlighterAttributes.Create(@SYNS_AttrString, SYNS_XML_AttrString); fStringAttri.Foreground := clMaroon; AddAttribute(fStringAttri); - fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol); + fSymbolAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSymbol, SYNS_XML_AttrSymbol); fSymbolAttri.Foreground := clRed; AddAttribute(fSymbolAttri); - fVarAttri := TSynHighlighterAttributes.Create(SYNS_AttrVariable, SYNS_XML_AttrVariable); + fVarAttri := TSynHighlighterAttributes.Create(@SYNS_AttrVariable, SYNS_XML_AttrVariable); fVarAttri.Foreground := clPurple; AddAttribute(fVarAttri); SetAttributesOnChange(@DefHighlightChange); ////TL 2003-06-11: added the @prefix to DefHighlightChange diff --git a/components/synedit/synhighlightervb.pas b/components/synedit/synhighlightervb.pas index 77fe4a954a..26037093a2 100644 --- a/components/synedit/synhighlightervb.pas +++ b/components/synedit/synhighlightervb.pas @@ -1019,21 +1019,21 @@ end; constructor TSynVBSyn.Create(AOwner: TComponent); begin inherited Create(AOwner); - fCommentAttri := TSynHighlighterAttributes.Create(SYNS_AttrComment, SYNS_XML_AttrComment); + fCommentAttri := TSynHighlighterAttributes.Create(@SYNS_AttrComment, SYNS_XML_AttrComment); fCommentAttri.Style:= [fsItalic]; AddAttribute(fCommentAttri); - fIdentifierAttri := TSynHighlighterAttributes.Create(SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); + fIdentifierAttri := TSynHighlighterAttributes.Create(@SYNS_AttrIdentifier, SYNS_XML_AttrIdentifier); AddAttribute(fIdentifierAttri); - fKeyAttri := TSynHighlighterAttributes.Create(SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); + fKeyAttri := TSynHighlighterAttributes.Create(@SYNS_AttrReservedWord, SYNS_XML_AttrReservedWord); fKeyAttri.Style:= [fsBold]; AddAttribute(fKeyAttri); - fNumberAttri := TSynHighlighterAttributes.Create(SYNS_AttrNumber, SYNS_XML_AttrNumber); + fNumberAttri := TSynHighlighterAttributes.Create(@SYNS_AttrNumber, SYNS_XML_AttrNumber); AddAttribute(fNumberAttri); - fSpaceAttri := TSynHighlighterAttributes.Create(SYNS_AttrSpace, SYNS_XML_AttrSpace); + fSpaceAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSpace, SYNS_XML_AttrSpace); AddAttribute(fSpaceAttri); - fStringAttri := TSynHighlighterAttributes.Create(SYNS_AttrString, SYNS_XML_AttrString); + fStringAttri := TSynHighlighterAttributes.Create(@SYNS_AttrString, SYNS_XML_AttrString); AddAttribute(fStringAttri); - fSymbolAttri := TSynHighlighterAttributes.Create(SYNS_AttrSymbol, SYNS_XML_AttrSymbol); + fSymbolAttri := TSynHighlighterAttributes.Create(@SYNS_AttrSymbol, SYNS_XML_AttrSymbol); AddAttribute(fSymbolAttri); SetAttributesOnChange(@DefHighlightChange); InitIdent; diff --git a/components/synedit/synhighlighterxml.pas b/components/synedit/synhighlighterxml.pas index 229a531c77..9cde8e5c90 100644 --- a/components/synedit/synhighlighterxml.pas +++ b/components/synedit/synhighlighterxml.pas @@ -225,19 +225,19 @@ constructor TSynXMLSyn.Create(AOwner: TComponent); begin inherited Create(AOwner); - 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:= 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];