GapItem.Tag is Int64

Alexey-T · Jan 5, 2017 · 52773cc · 52773cc
1 parent f7fa907
commit 52773cc
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/atsynedit/atsynedit_gaps.pas b/atsynedit/atsynedit_gaps.pas
@@ -28,7 +28,7 @@   TATSynGapItem = class
     LineIndex: integer;
     Size: integer;
     Bitmap: TBitmap;
-    Tag: integer;
+    Tag: Int64;
     constructor Create; virtual;
     destructor Destroy; override;
   end;
@@ -48,8 +48,8 @@   TATSynGaps = class
     function IsIndexValid(N: integer): boolean; inline;
     property Items[N: integer]: TATSynGapItem read GetItem; default;
     procedure Delete(N: integer);
-    function Add(ALineIndex, ASize: integer; ABitmap: TBitmap; ATag: integer): boolean;
-    function Find(ALineIndex: integer; ATag: integer=-1): TATSynGapItem;
+    function Add(ALineIndex, ASize: integer; ABitmap: TBitmap; ATag: Int64): boolean;
+    function Find(ALineIndex: integer; ATag: Int64=-1): TATSynGapItem;
     function DeleteForLineRange(ALineFrom, ALineTo: integer): boolean;
     function SizeForLineRange(ALineFrom, ALineTo: integer): integer;
     procedure Update(ALine: integer; AChange: TATLineChangeKind);
@@ -147,7 +147,7 @@ function TATSynGaps.DeleteForLineRange(ALineFrom, ALineTo: integer): boolean;
 end;
 
 function TATSynGaps.Add(ALineIndex, ASize: integer; ABitmap: TBitmap;
-  ATag: integer): boolean;
+  ATag: Int64): boolean;
 var
   Item: TATSynGapItem;
 begin
@@ -166,7 +166,7 @@ function TATSynGaps.Add(ALineIndex, ASize: integer; ABitmap: TBitmap;
   Result:= true;
 end;
 
-function TATSynGaps.Find(ALineIndex: integer; ATag: integer=-1): TATSynGapItem;
+function TATSynGaps.Find(ALineIndex: integer; ATag: Int64=-1): TATSynGapItem;
 var
   Item: TATSynGapItem;
   i: integer;