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

SynEdit: Added hcCodeFolding to highlighter capabilities

Browse Source 
git-svn-id: trunk@40529 -
This commit is contained in:
martin 2013-03-10 21:07:08 +00:00
parent fe7799e167
commit 805036a7ba
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/synedit/synedithighlighter.pp
View File

@ -189,7 +189,8 @@ type
TSynHighlighterCapability = (
hcUserSettings, // supports Enum/UseUserSettings
hcRegistry // supports LoadFrom/SaveToRegistry
hcRegistry, // supports LoadFrom/SaveToRegistry
hcCodeFolding
);
TSynHighlighterCapabilities = set of TSynHighlighterCapability;

8
components/synedit/synedithighlighterfoldbase.pas
View File

@ -325,6 +325,7 @@ type
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
class function GetCapabilities: TSynHighlighterCapabilities; override;
function GetRange: Pointer; override;
// Info about Folds
@ -757,7 +758,12 @@ begin
FFoldConfig := nil;
end;
function TSynCustomFoldHighlighter.GetRange: pointer;
class function TSynCustomFoldHighlighter.GetCapabilities: TSynHighlighterCapabilities;
begin
Result := inherited GetCapabilities + [hcCodeFolding];
end;
function TSynCustomFoldHighlighter.GetRange: Pointer;
begin
// FCodeFoldRange is the working range and changed steadily
// => return a fixed copy of the current CodeFoldRange instance,