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

SynEdit: Pascal Highlighter - only store property TypeHelpers if user changed, issue #0036969 . / fix incorrectly overwriting NestedComments when Loading.

Browse Source 
git-svn-id: trunk@63122 -
This commit is contained in:
martin 2020-05-05 18:16:58 +00:00
parent 2c7d4c9e91
commit 8f790c9d9e
1 changed files with 26 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
components/synedit/synhighlighterpas.pp
View File

@ -492,6 +492,7 @@ type
procedure SpaceProc;
procedure StringProc;
procedure SymbolProc;
function TypeHelpersIsStored: Boolean;
procedure UnknownProc;
procedure SetD4syntax(const Value: boolean);
// Divider
@ -558,6 +559,8 @@ type
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Loaded; override;
procedure Loading; override;
function GetDefaultAttribute(Index: integer): TSynHighlighterAttributes;
override;
function GetEol: Boolean; override;
@ -620,7 +623,7 @@ type
write fDirectiveAttri;
property CompilerMode: TPascalCompilerMode read FCompilerMode write SetCompilerMode;
property NestedComments: boolean read FNestedComments write SetNestedComments;
property TypeHelpers: boolean read FTypeHelpers write FTypeHelpers;
property TypeHelpers: boolean read FTypeHelpers write FTypeHelpers stored TypeHelpersIsStored;
property D4syntax: boolean read FD4syntax write SetD4syntax default true;
property ExtendedKeywordsMode: Boolean
read FExtendedKeywordsMode write SetExtendedKeywordsMode default False;
@ -901,8 +904,10 @@ end;
procedure TSynPasSyn.SetCompilerMode(const AValue: TPascalCompilerMode);
begin
NestedComments:=AValue in [pcmFPC,pcmObjFPC]; // NestedComments has to be reset even if CompilerMode doesn't change
TypeHelpers := AValue in [pcmDelphi];
if not(csLoading in ComponentState) then begin
NestedComments:=AValue in [pcmFPC,pcmObjFPC]; // NestedComments has to be reset even if CompilerMode doesn't change
TypeHelpers := AValue in [pcmDelphi]; // keep in sync with TypeHelpersIsStored / Loaded
end;
if FCompilerMode=AValue then exit;
FCompilerMode:=AValue;
PasCodeFoldRange.Mode:=FCompilerMode;
@ -2485,6 +2490,19 @@ begin
inherited Destroy;
end;
procedure TSynPasSyn.Loaded;
begin
if Byte(FTypeHelpers) = 99 then
FTypeHelpers := FCompilerMode in [pcmDelphi];
inherited Loaded;
end;
procedure TSynPasSyn.Loading;
begin
Byte(FTypeHelpers) := 99; // Help detecting, if changed while loading.
inherited Loading;
end;
procedure TSynPasSyn.SetLine(const NewValue: string; LineNumber:Integer);
begin
//DebugLn(['TSynPasSyn.SetLine START LineNumber=',LineNumber,' Line="',NewValue,'"']);
@ -3175,6 +3193,11 @@ begin
fTokenID := tkSymbol;
end;
function TSynPasSyn.TypeHelpersIsStored: Boolean;
begin
Result := FTypeHelpers = (FCompilerMode in [pcmDelphi]);
end;
procedure TSynPasSyn.UnknownProc;
begin
inc(Run);