Markers prop MicromapOnly

Alexey-T · Oct 28, 2019 · e44e8fd · e44e8fd
1 parent c1001b2
commit e44e8fd
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/atsynedit/atsynedit_hilite.inc b/atsynedit/atsynedit_hilite.inc
@@ -323,6 +323,7 @@ begin
   for i:= nAttrIndex to Attribs.Count-1 do
   begin
     Attr:= Attribs[i];
+    if Attr.MicromapOnly then Continue;
     if Attr.PosY<ALineIndex then Continue;
     if Attr.PosY>ALineIndex then Break;
 

diff --git a/atsynedit/atsynedit_markers.pas b/atsynedit/atsynedit_markers.pas
@@ -32,6 +32,7 @@   TATMarkerItem = record
     Value: Int64;
     Ptr: TObject;
       //used in Attribs object of ATSynedit
+    MicromapOnly: boolean;
     class operator=(const A, B: TATMarkerItem): boolean;
     function Contains(AX, AY: integer): boolean;
     function PosEnd: TPoint;
@@ -67,7 +68,8 @@   TATMarkers = class
       ALenX: integer=0;
       ALenY: integer=0;
       APtr: TObject=nil;
-      AValue: Int64=0);
+      AValue: Int64=0;
+      AMicromapOnly: boolean=False);
     procedure DeleteInRange(AX1, AY1, AX2, AY2: integer);
     procedure DeleteWithTag(const ATag: Int64);
     procedure Find(AX, AY: integer; out AIndex: integer; out AExactMatch: boolean);
@@ -178,7 +180,7 @@ procedure TATMarkers.SetItem(N: integer; const AItem: TATMarkerItem);
 end;
 
 procedure TATMarkers.Add(APosX, APosY: integer; const ATag: Int64; ALenX: integer; ALenY: integer;
-  APtr: TObject; AValue: Int64);
+  APtr: TObject; AValue: Int64; AMicromapOnly: boolean);
 var
   Item: TATMarkerItem;
   NIndex: integer;
@@ -194,6 +196,7 @@ procedure TATMarkers.Add(APosX, APosY: integer; const ATag: Int64; ALenX: intege
   Item.LenY:= ALenY;
   Item.Ptr:= APtr;
   Item.Value:= AValue;
+  Item.MicromapOnly:= AMicromapOnly;
 
   if FSorted then
   begin