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

SynEdit: dbgs added

Browse Source 
git-svn-id: trunk@52186 -
This commit is contained in:
martin 2016-04-13 13:56:30 +00:00
parent 6b88bdaf8e
commit 04d9e7d2ec
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/synedit/synedithighlighterfoldbase.pas
View File

@ -444,6 +444,8 @@ function AllocateHighlighterRanges(
function dbgs(AFoldActions: TSynFoldActions): String; overload;
function dbgs(ANode: TSynFoldNodeInfo):string; overload;
function dbgs(AMode: TSynCustomFoldConfigMode): String; overload;
function dbgs(AModes: TSynCustomFoldConfigModes): String; overload;
implementation
@ -526,6 +528,25 @@ begin
dbgs(FoldAction)]);
end;
function dbgs(AMode: TSynCustomFoldConfigMode): String;
begin
WriteStr(Result{%H-}, AMode);
end;
function dbgs(AModes: TSynCustomFoldConfigModes): String;
var
i: TSynCustomFoldConfigMode;
s: string;
begin
Result:='';
for i := low(TSynCustomFoldConfigMode) to high(TSynCustomFoldConfigMode) do
if i in AModes then begin
WriteStr(s{%H-}, i);
Result := Result + s + ',';
end;
if Result <> '' then Result := '[' + copy(Result, 1, Length(Result)-1) + ']';
end;
{ TLazSynFoldNodeInfoList }
function TLazSynFoldNodeInfoList.GetItem(Index: Integer): TSynFoldNodeInfo;