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

Merge branch 'Typos/Misspellings' into 'main'

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

See merge request freepascal.org/lazarus/lazarus!404
This commit is contained in:
Martin 2024-12-14 15:37:37 +00:00
commit 1408958bc6
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 = class(TSynHighlighterLazCustumPasAttribute)
TColorSchemeAttribute = class(TSynHighlighterLazCustomPasAttribute)
private
FFeatures: TColorSchemeAttributeFeatures;
FGroup: TAhaGroupName;
@ -7053,9 +7053,9 @@ begin
TSynHighlighterAttributesModifier(aDest).ForeAlpha := Src.ForeAlpha;
TSynHighlighterAttributesModifier(aDest).BackAlpha := Src.BackAlpha;
TSynHighlighterAttributesModifier(aDest).FrameAlpha := Src.FrameAlpha;
if aDest is TSynHighlighterLazCustumPasAttribute then begin
TSynHighlighterLazCustumPasAttribute(aDest).CustomWords.Assign(CustomWords);
TSynHighlighterLazCustumPasAttribute(aDest).CustomWordTokenKind := CustomWordTokenKind;
if aDest is TSynHighlighterLazCustomPasAttribute then begin
TSynHighlighterLazCustomPasAttribute(aDest).CustomWords.Assign(CustomWords);
TSynHighlighterLazCustomPasAttribute(aDest).CustomWordTokenKind := CustomWordTokenKind;
end;
end;
@ -7098,7 +7098,7 @@ begin
inherited Assign(Src);
FFeatures := [hafBackColor, hafForeColor, hafFrameColor,
hafStyle, hafFrameStyle, hafFrameEdges, hafPrior];
if Src is TSynHighlighterLazCustumPasAttribute then
if Src is TSynHighlighterLazCustomPasAttribute then
FFeatures := FFeatures + [hafCustomWords];
if Src is TSynHighlighterAttributesModifier then
FFeatures := FFeatures + [hafAlpha, hafStyleMask];
@ -7338,7 +7338,7 @@ begin
csa.Assign(hla);
csa.Group := agnLanguage;
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]
else
if hla is TSynHighlighterAttributesModifier then

28
ide/sourcesyneditor.pas
View File

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