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

synedit: less hints

Browse Source 
git-svn-id: trunk@52762 -
This commit is contained in:
mattias 2016-08-01 07:40:24 +00:00
parent 6b321fe144
commit b1067f3140
3 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/synedithighlighterfoldbase.pas
View File

@ -1522,8 +1522,6 @@ begin
end;
function TLazSynEditNestedFoldsList.Count: Integer;
var
hl: TSynCustomFoldHighlighter;
begin
if (FCount < 0) then begin
InitCount;
@ -1536,8 +1534,6 @@ begin
end;
function TLazSynEditNestedFoldsList.OpeningOnLineCount: Integer;
var
hl: TSynCustomFoldHighlighter;
begin
if (not FIncludeOpeningOnLine) or (FLine < 0) then
exit(0);
@ -2022,7 +2018,7 @@ begin
act := act - [sfaFoldFold, sfaFoldHide]; // it is closing tag
end;
DoInitNode(nd, FinishingABlock, ABlockType, act, LevelChanged);
DoInitNode(nd{%H-}, FinishingABlock, ABlockType, act, LevelChanged);
FCollectingNodeInfoList.Add(nd);
end;

1
components/synedit/syneditmarkupfoldcoloring.pas
View File

@ -258,7 +258,6 @@ var
i,lvl,z : integer; //iterate parents fold
procedure AddVerticalLine( ANode: TSynFoldNodeInfo );
var x,j : integer;
begin
z := Length(FHighlights);
SetLength(FHighlights, z+1);

10
components/synedit/synhighlighterpas.pp
View File

@ -3652,7 +3652,7 @@ begin
Node.LineIndex := LineIndex;
Node.LogXStart := Run;
Node.LogXEnd := Run + fStringLen;
Node.FoldType := Pointer(PtrInt(ABlockType)); //Pointer(PtrUInt(PasBlockType));
Node.FoldType := Pointer({%H-}PtrInt(ABlockType)); //Pointer(PtrUInt(PasBlockType));
Node.FoldTypeCompatible := Pointer(PtrUInt(PascalFoldTypeCompatibility[PasBlockType]));
Node.FoldAction := aActions;
case PasBlockType of
@ -3714,7 +3714,7 @@ begin
act := act + FFoldConfig[ord(ABlockType)].FoldActions;
if not FAtLineStart then
act := act - [sfaFoldHide];
DoInitNode(nd, False, Pointer(PtrUInt(ABlockType)), act, FoldBlock);
DoInitNode(nd{%H-}, False, Pointer(PtrUInt(ABlockType)), act, FoldBlock);
CollectingNodeInfoList.Add(nd);
end;
//if not FoldBlock then
@ -3742,7 +3742,7 @@ begin
act := act + FFoldConfig[PtrUInt(ABlockType)].FoldActions;
if not FoldBlock then
act := act - [sfaFold, sfaFoldFold, sfaFoldHide];
DoInitNode(nd, True, Pointer(PtrUInt(ABlockType)), act, FoldBlock); // + FFoldConfig[ord(ABlockType)].FoldActions);
DoInitNode(nd{%H-}, True, Pointer(PtrUInt(ABlockType)), act, FoldBlock); // + FFoldConfig[ord(ABlockType)].FoldActions);
CollectingNodeInfoList.Add(nd);
end;
//if not FoldBlock then
@ -3834,7 +3834,7 @@ begin
act := act + FFoldConfig[ord(ABlockType)].FoldActions;
if not FAtLineStart then
act := act - [sfaFoldHide];
DoInitNode(nd, False, Pointer(PtrUInt(ABlockType)), act, FoldBlock);
DoInitNode(nd{%H-}, False, Pointer(PtrUInt(ABlockType)), act, FoldBlock);
CollectingNodeInfoList.Add(nd);
end;
if not FoldBlock then
@ -3864,7 +3864,7 @@ begin
act := act - [sfaFold, sfaFoldFold, sfaFoldHide];
if NoMarkup then
exclude(act, sfaMarkup);
DoInitNode(nd, True, Pointer(PtrUInt(BlockType)), act, DecreaseLevel);
DoInitNode(nd{%H-}, True, Pointer(PtrUInt(BlockType)), act, DecreaseLevel);
CollectingNodeInfoList.Add(nd);
end;
EndCodeFoldBlock(DecreaseLevel);