paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-24 18:38:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: spelling

Browse Source
This commit is contained in:
Martin 2026-01-08 15:26:15 +01:00
parent 6f438f77fb
commit 01602405dc
30 changed files with 72 additions and 72 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/lazedit/lazedithighlighter.pas
View File

@ -180,7 +180,7 @@ type
(* ------------------ *
* Current Line *
* ------------------ *)
procedure InitForScaningLine; virtual;
procedure InitForScanningLine; virtual;
property CurrentLineText: string read FLineText;
property LinePtr: Pchar read FLinePtr;
@ -370,7 +370,7 @@ end;
procedure TLazEditCustomHighlighter.DoStartAtLine;
begin
InitForScaningLine;
InitForScanningLine;
end;
procedure TLazEditCustomHighlighter.DoBeginUpdate;
@ -434,7 +434,7 @@ begin
SendRescanNeededNotification;
end;
procedure TLazEditCustomHighlighter.InitForScaningLine;
procedure TLazEditCustomHighlighter.InitForScanningLine;
begin
//
end;
@ -556,7 +556,7 @@ begin
F_IsInNextToEOL := False;
DoStartAtLine;
InitForScaningLine;
InitForScanningLine;
end;
procedure TLazEditCustomHighlighter.ContinueNextLine;
@ -566,7 +566,7 @@ begin
FLinePtr := PChar(FLineText);
F_IsInNextToEOL := False;
InitForScaningLine;
InitForScanningLine;
end;
procedure TLazEditCustomHighlighter.SetAlternativeLineTextForGetTokens(const AnInjectedText: String;
@ -578,7 +578,7 @@ begin
F_IsInNextToEOL := False;
DoStartAtLine;
InitForScaningLine;
InitForScanningLine;
end;
procedure TLazEditCustomHighlighter.NextToEol;

8
components/synedit/synedithighlighter.pp
View File

@ -193,7 +193,7 @@ type
const aStoredName: String = ''): TLazEditTextAttribute;
procedure Assign(Source: TPersistent); override;
public
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
function GetRange: Pointer; override;
procedure SetRange(Value: Pointer); override; deprecated;
procedure ResetRange; override; deprecated;
@ -216,7 +216,7 @@ type
procedure ScanAllRanges; deprecated 'use MarkUnprepared / to be removed in 5.99';
procedure SetLine(const NewValue: String;
LineNumber:Integer // 0 based
); virtual; deprecated 'Use InitForScaningLine // to be removed in 5.99';
); virtual; deprecated 'Use InitForScanningLine // to be removed in 5.99';
public
function UseUserSettings(settingIndex: integer): boolean; virtual;
procedure EnumUserSettings(Settings: TStrings); virtual;
@ -709,10 +709,10 @@ begin
inherited Assign(Source);
end;
procedure TSynCustomHighlighter.InitForScaningLine;
procedure TSynCustomHighlighter.InitForScanningLine;
begin
SetLine(CurrentLineText, LineIndex);
inherited InitForScaningLine;
inherited InitForScanningLine;
end;
procedure TSynCustomHighlighter.EnumUserSettings(Settings: TStrings);

4
components/synedit/synedithighlighterfoldbase.pas
View File

@ -532,7 +532,7 @@ type
procedure SetRange(Value: Pointer); override;
procedure ResetRange; override;
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
procedure DoCurrentLinesChanged; override;
function DoPrepareLines(AFirstLineIdx: IntIdx; AMinimumRequiredLineIdx: IntIdx = - 1;
AMaxTime: integer = 0): integer; override;
@ -1872,7 +1872,7 @@ begin
FCodeFoldRange.FoldRoot := FRootCodeFoldBlock;
end;
procedure TSynCustomFoldHighlighter.InitForScaningLine;
procedure TSynCustomFoldHighlighter.InitForScanningLine;
begin
inherited;
FCodeFoldRange.MinimumCodeFoldBlockLevel := FCodeFoldRange.FCodeFoldStackSize;

4
components/synedit/synedithighlighterxmlbase.pas
View File

@ -87,7 +87,7 @@ type
procedure EndXmlNodeCodeFoldBlock(ClosePos: Integer = -1; AName: String = '');
function GetBracketKinds(AnIndex: integer; AnOpeningToken: boolean): String; override;
public
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
function BracketKindCount: integer; override;
function GetBracketContextAt(const ALineIdx: TLineIdx; const ALogX: IntPos;
const AByteLen: Integer; const AKind: integer; var AFlags: TLazEditBracketInfoFlags; out
@ -119,7 +119,7 @@ begin
end;
end;
procedure TSynCustomXmlHighlighter.InitForScaningLine;
procedure TSynCustomXmlHighlighter.InitForScanningLine;
begin
inherited;
FXmlRangeInfo := TSynHighlighterXmlRangeList(CurrentRanges).XmlRangeInfo[LineIndex]; // From this line, not from the previous line

4
components/synedit/synhighlighterany.pas
View File

@ -199,7 +199,7 @@ type
procedure Next; override;
procedure ResetRange; override;
procedure SetRange(Value: Pointer); override;
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
function SaveToRegistry(RootKey: HKEY; Key: string): boolean; override;
function LoadFromRegistry(RootKey: HKEY; Key: string): boolean; override;
procedure LoadHighLighter(aFile: string);
@ -441,7 +441,7 @@ begin
inherited Destroy;
end; { Destroy }
procedure TSynAnySyn.InitForScaningLine;
procedure TSynAnySyn.InitForScanningLine;
begin
inherited;
Run := 0;

4
components/synedit/synhighlighterbat.pas
View File

@ -140,7 +140,7 @@ type
override;
function GetEol: Boolean; override;
function GetTokenID: TtkTokenKind;
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
function GetToken: String; override;
procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override;
function GetTokenAttribute: TLazEditTextAttribute; override;
@ -410,7 +410,7 @@ begin
fDefaultFilter := SYNS_FilterBatch;
end;
procedure TSynBatSyn.InitForScaningLine;
procedure TSynBatSyn.InitForScanningLine;
begin
inherited;
Run := 0;

4
components/synedit/synhighlightercpp.pp
View File

@ -247,7 +247,7 @@ type
function GetEol: Boolean; override;
function GetRange: Pointer; override;
function GetTokenID: TtkTokenKind;
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
function GetToken: String; override;
procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override;
function GetTokenAttribute: TLazEditTextAttribute; override;
@ -814,7 +814,7 @@ begin
fDefaultFilter := SYNS_FilterCPP;
end; { Create }
procedure TSynCppSyn.InitForScaningLine;
procedure TSynCppSyn.InitForScanningLine;
begin
inherited;
Run := 0;

4
components/synedit/synhighlightercss.pas
View File

@ -291,7 +291,7 @@ type
function GetEol: Boolean; override;
function GetRange: Pointer; override;
function GetTokenID: TtkTokenKind;
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
function GetToken: string; override;
procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override;
function GetTokenAttribute: TLazEditTextAttribute; override;
@ -1846,7 +1846,7 @@ begin
fRange := [];
end;
procedure TSynCssSyn.InitForScaningLine;
procedure TSynCssSyn.InitForScanningLine;
begin
inherited;
Run := 0;

4
components/synedit/synhighlighterdiff.pas
View File

@ -152,7 +152,7 @@ type
procedure Next; override;
function GetEol: Boolean; override;
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
function GetRange: Pointer; override;
procedure SetRange(Value: Pointer); override;
procedure ResetRange; override;
@ -674,7 +674,7 @@ begin
Result := fTokenId = tkNull;
end;
procedure TSynDiffSyn.InitForScaningLine;
procedure TSynDiffSyn.InitForScanningLine;
begin
inherited;
Run := 0;

4
components/synedit/synhighlighterhtml.pp
View File

@ -439,7 +439,7 @@ type
function GetEol: Boolean; override;
function GetRange: Pointer; override;
function GetTokenID: TtkTokenKind;
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
function GetToken: string; override;
procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override;
function GetTokenAttribute: TLazEditTextAttribute; override;
@ -2300,7 +2300,7 @@ begin
fDefaultFilter := SYNS_FilterHTML;
end;
procedure TSynHTMLSyn.InitForScaningLine;
procedure TSynHTMLSyn.InitForScanningLine;
begin
inherited;
fLineLen := Length(CurrentLineText);

4
components/synedit/synhighlighterini.pas
View File

@ -118,7 +118,7 @@ type
override;
function GetEol: Boolean; override;
function GetTokenID: TtkTokenKind;
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
function GetToken: String; override;
procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override;
function GetTokenAttribute: TLazEditTextAttribute; override;
@ -202,7 +202,7 @@ begin
MakeMethodTables;
end; { Create }
procedure TSynIniSyn.InitForScaningLine;
procedure TSynIniSyn.InitForScanningLine;
begin
inherited;
Run := 0;

4
components/synedit/synhighlighterjava.pas
View File

@ -214,7 +214,7 @@ type
function GetEol: Boolean; override;
function GetRange: Pointer; override;
function GetTokenID: TtkTokenKind;
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
function GetToken: String; override;
procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override;
function GetTokenAttribute: TLazEditTextAttribute; override;
@ -686,7 +686,7 @@ begin
fDefaultFilter := SYNS_FilterJava;
end; { Create }
procedure TSynJavaSyn.InitForScaningLine;
procedure TSynJavaSyn.InitForScanningLine;
begin
inherited;
Run := 0;

4
components/synedit/synhighlighterjscript.pas
View File

@ -297,7 +297,7 @@ type
function GetRange: Pointer; override;
function GetTokenID: TtkTokenKind;
procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override;
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
function GetToken: String; override;
function GetTokenAttribute: TLazEditTextAttribute; override;
function GetTokenKind: integer; override;
@ -1560,7 +1560,7 @@ begin
fRange := rsUnknown;
end;
procedure TSynJScriptSyn.InitForScaningLine;
procedure TSynJScriptSyn.InitForScanningLine;
begin
inherited;
Run := 0;

4
components/synedit/synhighlighterlfm.pas
View File

@ -144,7 +144,7 @@ type
function GetEol: Boolean; override;
function GetRange: Pointer; override;
function GetTokenID: TtkTokenKind;
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
function GetToken: String; override;
procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override;
function GetTokenAttribute: TLazEditTextAttribute; override;
@ -297,7 +297,7 @@ begin
inherited Destroy;
end;
procedure TSynLFMSyn.InitForScaningLine;
procedure TSynLFMSyn.InitForScanningLine;
begin
inherited;
Run := 0;

6
components/synedit/synhighlightermarkdown.pas
View File

@ -107,7 +107,7 @@ type
function GetTokenID: TtkTokenKind;
procedure SetRange(Value: Pointer); override;
procedure ResetRange; override;
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
procedure Next; override;
function GetToken: string; override;
procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override;
@ -241,9 +241,9 @@ begin
CodeFoldRange.RangeType := Pointer(PtrUInt(fRange));
end;
procedure TSynMarkdownSyn.InitForScaningLine;
procedure TSynMarkdownSyn.InitForScanningLine;
begin
inherited InitForScaningLine;
inherited InitForScanningLine;
fLine := PChar(CurrentLineText);
fLineLen := Length(CurrentLineText);
Run := 0;

4
components/synedit/synhighlightermulti.pas
View File

@ -328,7 +328,7 @@ type
function GetTokenAttributeEx: TLazCustomEditTextAttribute; override;
function GetTokenKind: integer; override;
function GetTokenPos: Integer; override; // 0-based
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
function UpdateRangeInfoAtEOL: Boolean; override;
function GetRange: Pointer; override;
procedure SetRange(Value: Pointer); override;
@ -1634,7 +1634,7 @@ begin
Result := TSynHighlighterMultiRangeList(inherited CurrentRanges)
end;
procedure TSynMultiSyn.InitForScaningLine;
procedure TSynMultiSyn.InitForScanningLine;
procedure InitRunSection(ASchemeIdx: Integer);
var
VLines: TSynHLightMultiVirtualLines;

6
components/synedit/synhighlighterpas.pp
View File

@ -1120,7 +1120,7 @@ type
procedure SetIsInNextToEOL; experimental; // scan without extra colors
procedure ResetRange; override;
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
procedure SetRange(Value: Pointer); override;
function GetEndOfLineAttributeEx: TLazCustomEditTextAttribute; override;
@ -4323,7 +4323,7 @@ begin
inherited Destroy;
end;
procedure TSynPasSyn.InitForScaningLine;
procedure TSynPasSyn.InitForScanningLine;
begin
//DebugLn(['TSynPasSyn.SetLine START LineNumber=',LineNumber,' Line="',NewValue,'"']);
if FNeedCustomTokenBuild then
@ -4334,7 +4334,7 @@ begin
Run := 0;
FIsInSlash := False;
FLastTokenTypeDeclExtraAttrib := eaNone;
Inherited InitForScaningLine;
Inherited InitForScanningLine;
PasCodeFoldRange.LastLineCodeFoldLevelFix := 0;
PasCodeFoldRange.PasFoldFixLevel := 0;
FStartCodeFoldBlockLevel := PasCodeFoldRange.MinimumNestFoldBlockLevel;

4
components/synedit/synhighlighterperl.pas
View File

@ -377,7 +377,7 @@ type
override;
function GetEol: Boolean; override;
function GetTokenID: TtkTokenKind;
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
function GetToken: String; override;
procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override;
function GetTokenAttribute: TLazEditTextAttribute; override;
@ -2026,7 +2026,7 @@ begin
fDefaultFilter := SYNS_FilterPerl;
end; { Create }
procedure TSynPerlSyn.InitForScaningLine;
procedure TSynPerlSyn.InitForScanningLine;
begin
inherited;
Run := 0;

4
components/synedit/synhighlighterphp.pas
View File

@ -205,7 +205,7 @@ type
function GetEol: Boolean; override;
function GetRange: Pointer; override;
function GetTokenID: TtkTokenKind;
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
function GetToken: String; override;
procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override;
@ -674,7 +674,7 @@ begin
fRange := rsUnknown;
end;
procedure TSynPHPSyn.InitForScaningLine;
procedure TSynPHPSyn.InitForScanningLine;
begin
inherited;
fLineLen := length(CurrentLineText);

4
components/synedit/synhighlighterpo.pp
View File

@ -98,7 +98,7 @@ type
override;
function GetEol: Boolean; override;
function GetTokenID: TtkTokenKind;
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
function GetToken: String; override;
procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override;
function GetTokenAttribute: TLazEditTextAttribute; override;
@ -188,7 +188,7 @@ begin
MakeMethodTables;
end; { Create }
procedure TSynPoSyn.InitForScaningLine;
procedure TSynPoSyn.InitForScanningLine;
begin
inherited;
Run := 0;

4
components/synedit/synhighlighterposition.pas
View File

@ -88,7 +88,7 @@ type
function GetTokenPos: Integer; override;
procedure Next; override;
procedure ResetRange; override;
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
procedure SetRange(Value: Pointer); override;
function UseUserSettings(settingIndex: integer): boolean; override;
procedure EnumUserSettings(settings: TStrings); override;
@ -259,7 +259,7 @@ begin
//inherited ResetRange;
end;
procedure TSynPositionHighlighter.InitForScaningLine;
procedure TSynPositionHighlighter.InitForScanningLine;
var
p: PPositionTokens;
begin

4
components/synedit/synhighlighterpython.pas
View File

@ -154,7 +154,7 @@ type
function GetEol: Boolean; override;
function GetRange: Pointer; override;
function GetTokenID: TtkTokenKind;
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
function GetKeywordIdentifiers: TStringList; virtual;
function GetToken: string; override;
function GetTokenAttribute: TLazEditTextAttribute; override;
@ -458,7 +458,7 @@ begin
inherited;
end;
procedure TSynPythonSyn.InitForScaningLine;
procedure TSynPythonSyn.InitForScanningLine;
begin
inherited;
Run := 0;

4
components/synedit/synhighlightersql.pas
View File

@ -192,7 +192,7 @@ type
function IsKeyword(const AKeyword: string): boolean; override; // DJLP 2000-08-09
procedure Next; override;
procedure ResetRange; override;
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
procedure SetRange(Value: Pointer); override;
published
property CommentAttri: TSynHighlighterAttributes index attribComment read fCommentAttri write SetAttribute;
@ -1527,7 +1527,7 @@ begin
SQLDialect := TSynSQLSyn(Source).SQLDialect;
end;
procedure TSynSQLSyn.InitForScaningLine;
procedure TSynSQLSyn.InitForScanningLine;
begin
inherited;
Run := 0;

4
components/synedit/synhighlightertex.pas
View File

@ -110,7 +110,7 @@ type
override;
function GetEol: Boolean; override;
function GetTokenID: TtkTokenKind;
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
function GetToken: String; override;
procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override;
@ -184,7 +184,7 @@ begin
MakeMethodTables;
end; { Create }
procedure TSynTeXSyn.InitForScaningLine;
procedure TSynTeXSyn.InitForScanningLine;
begin
inherited;
Run := 0;

4
components/synedit/synhighlighterunixshellscript.pas
View File

@ -144,7 +144,7 @@ type
function GetEol: Boolean; override;
function GetRange: Pointer; override;
function GetTokenID: TtkTokenKind;
procedure InitForScaningLine; override; /////TL: Added 2003-06-11
procedure InitForScanningLine; override; /////TL: Added 2003-06-11
function IsKeyword(const AKeyword: string): boolean; override; //mh 2000-11-08
function IsSecondKeyWord(aToken: string): Boolean;
function GetToken: string; override;
@ -335,7 +335,7 @@ begin
fDefaultFilter := SYNS_FilterUNIXShellScript;
end; { Create }
procedure TSynUNIXShellScriptSyn.InitForScaningLine;
procedure TSynUNIXShellScriptSyn.InitForScanningLine;
begin
inherited;
Run := 0;

4
components/synedit/synhighlightervb.pas
View File

@ -213,7 +213,7 @@ type
override;
function GetEol: Boolean; override;
function GetTokenID: TtkTokenKind;
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
function GetToken: String; override;
procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override;
function GetTokenAttribute: TLazEditTextAttribute; override;
@ -1055,7 +1055,7 @@ begin
fDefaultFilter := fDefaultFilterInitialValue;
end;
procedure TSynVBSyn.InitForScaningLine;
procedure TSynVBSyn.InitForScanningLine;
begin
inherited;
Run := 0;

4
components/synedit/synhighlighterxml.pas
View File

@ -230,7 +230,7 @@ type
function GetEol: Boolean; override;
function GetRange: Pointer; override;
function GetTokenID: TtkTokenKind;
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
function GetToken: string; override;
procedure GetTokenEx(out TokenStart: PChar; out TokenLength: integer); override;
function GetTokenAttribute: TLazEditTextAttribute; override;
@ -408,7 +408,7 @@ begin
end;
end;
procedure TSynXMLSyn.InitForScaningLine;
procedure TSynXMLSyn.InitForScanningLine;
begin
inherited;
fLineLen := Length(CurrentLineText);

8
components/synedit/syntextmatesyn.pas
View File

@ -76,7 +76,7 @@ type
procedure LoadGrammar(AGrammarDef: String);
procedure LoadGrammar(AGrammarFile, AGrammarPath: String);
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
procedure Next; override;
function GetEol: Boolean; override;
function DebugAttrAtXPos(AXPos: Integer): String; // requires StartAtLineIndex before
@ -249,15 +249,15 @@ begin
FTextMateGrammar.LanguageName := AGrammarFile;
end;
procedure TSynTextMateSyn.InitForScaningLine;
procedure TSynTextMateSyn.InitForScanningLine;
var
nd: TSynFoldNodeInfo;
begin
inherited InitForScaningLine;
inherited InitForScanningLine;
if FCurrentRange = -2 then
FCurrentRange := FTextMateGrammar.CurrentPatternIndex;
// TODO InitForScaningLine - keep range?
// TODO InitForScanningLine - keep range?
FTextMateGrammar.SetLine(CurrentLineText, FCurrentRange);
FCurrentRange := -2;

6
ide/editoroptions.pp
View File

@ -511,7 +511,7 @@ type
class function GetLanguageName: string; override;
procedure ResetRange; override;
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
constructor Create(AOwner: TComponent); override;
function GetEol: Boolean; override;
function GetToken: string; override;
@ -8581,9 +8581,9 @@ end;
{ TIDESynTextSyn }
procedure TIDESynTextSyn.InitForScaningLine;
procedure TIDESynTextSyn.InitForScanningLine;
begin
inherited InitForScaningLine;
inherited InitForScanningLine;
FPos := 0;
end;

6
ide/sourcesyneditor.pas
View File

@ -421,7 +421,7 @@ type
//procedure DefHighlightChange(Sender: TObject);
procedure InitForScaningLine; override;
procedure InitForScanningLine; override;
property InterfaceLine: Integer read GetInterfaceLine;
property ImplementationLine: Integer read GetImplementationLine;
property InitializationLine: Integer read GetInitializationLine;
@ -2344,7 +2344,7 @@ begin
NestedBracketAttribs.Add;
end;
procedure TIDESynPasSyn.InitForScaningLine;
procedure TIDESynPasSyn.InitForScanningLine;
begin
if assigned(CurrentRanges) then begin
if TIDESynHighlighterPasRangeList(CurrentRanges).FInterfaceLine = LineIndex + 1 then
@ -2356,7 +2356,7 @@ begin
if TIDESynHighlighterPasRangeList(CurrentRanges).FFinalizationLine = LineIndex + 1 then
TIDESynHighlighterPasRangeList(CurrentRanges).FFinalizationLine := -1;
end;
inherited InitForScaningLine;
inherited InitForScanningLine;
end;
{ TIDESynFreePasSyn }