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

IDE/SourceEditor: Fix a typo in the type name TSynHighlighterLazCustumPasAttribute

Browse Source
This commit is contained in:
n7800 2024-12-13 07:15:29 +05:00 committed by Martin
parent 633cb5bbc0
commit 11ea7e7e46
2 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/editoroptions.pp
View File

@ -324,7 +324,7 @@ type
{ TColorSchemeAttribute } { TColorSchemeAttribute }
TColorSchemeAttribute = class(TSynHighlighterLazCustumPasAttribute) TColorSchemeAttribute = class(TSynHighlighterLazCustomPasAttribute)
private private
FFeatures: TColorSchemeAttributeFeatures; FFeatures: TColorSchemeAttributeFeatures;
FGroup: TAhaGroupName; FGroup: TAhaGroupName;
@ -7053,9 +7053,9 @@ begin
TSynHighlighterAttributesModifier(aDest).ForeAlpha := Src.ForeAlpha; TSynHighlighterAttributesModifier(aDest).ForeAlpha := Src.ForeAlpha;
TSynHighlighterAttributesModifier(aDest).BackAlpha := Src.BackAlpha; TSynHighlighterAttributesModifier(aDest).BackAlpha := Src.BackAlpha;
TSynHighlighterAttributesModifier(aDest).FrameAlpha := Src.FrameAlpha; TSynHighlighterAttributesModifier(aDest).FrameAlpha := Src.FrameAlpha;
if aDest is TSynHighlighterLazCustumPasAttribute then begin if aDest is TSynHighlighterLazCustomPasAttribute then begin
TSynHighlighterLazCustumPasAttribute(aDest).CustomWords.Assign(CustomWords); TSynHighlighterLazCustomPasAttribute(aDest).CustomWords.Assign(CustomWords);
TSynHighlighterLazCustumPasAttribute(aDest).CustomWordTokenKind := CustomWordTokenKind; TSynHighlighterLazCustomPasAttribute(aDest).CustomWordTokenKind := CustomWordTokenKind;
end; end;
end; end;
@ -7098,7 +7098,7 @@ begin
inherited Assign(Src); inherited Assign(Src);
FFeatures := [hafBackColor, hafForeColor, hafFrameColor, FFeatures := [hafBackColor, hafForeColor, hafFrameColor,
hafStyle, hafFrameStyle, hafFrameEdges, hafPrior]; hafStyle, hafFrameStyle, hafFrameEdges, hafPrior];
if Src is TSynHighlighterLazCustumPasAttribute then if Src is TSynHighlighterLazCustomPasAttribute then
FFeatures := FFeatures + [hafCustomWords]; FFeatures := FFeatures + [hafCustomWords];
if Src is TSynHighlighterAttributesModifier then if Src is TSynHighlighterAttributesModifier then
FFeatures := FFeatures + [hafAlpha, hafStyleMask]; FFeatures := FFeatures + [hafAlpha, hafStyleMask];
@ -7338,7 +7338,7 @@ begin
csa.Assign(hla); csa.Assign(hla);
csa.Group := agnLanguage; csa.Group := agnLanguage;
if (FHighlighter <> nil) and (FHighlighter is TNonSrcIDEHighlighter) then if (FHighlighter <> nil) and (FHighlighter is TNonSrcIDEHighlighter) then
if hla is TSynHighlighterLazCustumPasAttribute then if hla is TSynHighlighterLazCustomPasAttribute then
csa.Features := [hafBackColor, hafForeColor, hafFrameColor, hafAlpha, hafPrior, hafStyle, hafStyleMask, hafCustomWords] csa.Features := [hafBackColor, hafForeColor, hafFrameColor, hafAlpha, hafPrior, hafStyle, hafStyleMask, hafCustomWords]
else else
if hla is TSynHighlighterAttributesModifier then if hla is TSynHighlighterAttributesModifier then

28
ide/sourcesyneditor.pas
View File

@ -339,9 +339,9 @@ type
FInitializationLine, FFinalizationLine: Integer; FInitializationLine, FFinalizationLine: Integer;
end; end;
{ TSynHighlighterLazCustumPasAttribute } { TSynHighlighterLazCustomPasAttribute }
TSynHighlighterLazCustumPasAttribute = class(TSynHighlighterAttributesModifier) TSynHighlighterLazCustomPasAttribute = class(TSynHighlighterAttributesModifier)
private private
FCustomWords: TStrings; FCustomWords: TStrings;
FCustomWordTokenKind: TtkTokenKind; FCustomWordTokenKind: TtkTokenKind;
@ -362,7 +362,7 @@ type
TIDESynPasSyn = class(TSynPasSyn) TIDESynPasSyn = class(TSynPasSyn)
private private
FCustomAttribs: array[0..9] of TSynHighlighterLazCustumPasAttribute; FCustomAttribs: array[0..9] of TSynHighlighterLazCustomPasAttribute;
procedure DoBuildCustomPasAttr(Sender: TObject); procedure DoBuildCustomPasAttr(Sender: TObject);
function GetFinalizationLine: Integer; function GetFinalizationLine: Integer;
@ -2009,26 +2009,26 @@ begin
end; end;
{$ENDIF} {$ENDIF}
{ TSynHighlighterLazCustumPasAttribute } { TSynHighlighterLazCustomPasAttribute }
procedure TSynHighlighterLazCustumPasAttribute.SetCustomWordTokenKind(AValue: TtkTokenKind); procedure TSynHighlighterLazCustomPasAttribute.SetCustomWordTokenKind(AValue: TtkTokenKind);
begin begin
if FCustomWordTokenKind = AValue then Exit; if FCustomWordTokenKind = AValue then Exit;
FCustomWordTokenKind := AValue; FCustomWordTokenKind := AValue;
Changed; Changed;
end; end;
procedure TSynHighlighterLazCustumPasAttribute.DoWordsChanged(Sender: TObject); procedure TSynHighlighterLazCustomPasAttribute.DoWordsChanged(Sender: TObject);
begin begin
Changed; Changed;
end; end;
procedure TSynHighlighterLazCustumPasAttribute.AssignFrom(Src: TLazSynCustomTextAttributes); procedure TSynHighlighterLazCustomPasAttribute.AssignFrom(Src: TLazSynCustomTextAttributes);
begin begin
inherited AssignFrom(Src); inherited AssignFrom(Src);
if Src is TSynHighlighterLazCustumPasAttribute then begin if Src is TSynHighlighterLazCustomPasAttribute then begin
FCustomWords.Assign(TSynHighlighterLazCustumPasAttribute(Src).FCustomWords); FCustomWords.Assign(TSynHighlighterLazCustomPasAttribute(Src).FCustomWords);
FCustomWordTokenKind := TSynHighlighterLazCustumPasAttribute(Src).FCustomWordTokenKind; FCustomWordTokenKind := TSynHighlighterLazCustomPasAttribute(Src).FCustomWordTokenKind;
end end
else begin else begin
FCustomWords.Clear; FCustomWords.Clear;
@ -2036,7 +2036,7 @@ begin
end; end;
end; end;
procedure TSynHighlighterLazCustumPasAttribute.DoClear; procedure TSynHighlighterLazCustomPasAttribute.DoClear;
begin begin
inherited DoClear; inherited DoClear;
if FCustomWords <> nil then if FCustomWords <> nil then
@ -2044,7 +2044,7 @@ begin
FCustomWordTokenKind := tkIdentifier; FCustomWordTokenKind := tkIdentifier;
end; end;
procedure TSynHighlighterLazCustumPasAttribute.Init; procedure TSynHighlighterLazCustomPasAttribute.Init;
begin begin
FCustomWords := TStringList.Create; FCustomWords := TStringList.Create;
FCustomWordTokenKind := tkIdentifier; FCustomWordTokenKind := tkIdentifier;
@ -2052,7 +2052,7 @@ begin
inherited Init; inherited Init;
end; end;
destructor TSynHighlighterLazCustumPasAttribute.Destroy; destructor TSynHighlighterLazCustomPasAttribute.Destroy;
begin begin
inherited Destroy; inherited Destroy;
FCustomWords.Destroy; FCustomWords.Destroy;
@ -2141,7 +2141,7 @@ begin
inherited Create(AOwner); inherited Create(AOwner);
for i := 0 to 9 do begin for i := 0 to 9 do begin
FCustomAttribs[i] := TSynHighlighterLazCustumPasAttribute.Create('Custom '+IntToStr(i), 'CustomToken_'+IntToStr(i)); FCustomAttribs[i] := TSynHighlighterLazCustomPasAttribute.Create('Custom '+IntToStr(i), 'CustomToken_'+IntToStr(i));
AddAttribute(FCustomAttribs[i]); AddAttribute(FCustomAttribs[i]);
FCustomAttribs[i].OnChange := @DoBuildCustomPasAttr; FCustomAttribs[i].OnChange := @DoBuildCustomPasAttr;
end; end;