From ee713839739af4fa9b0850111ef2a19494b70ab4 Mon Sep 17 00:00:00 2001
From: Artem3213212 <cx-1212@yandex.ru>
Date: Fri, 1 Jun 2018 21:27:43 +0300
Subject: [PATCH] TabChange added

---
 AG.Logs.pas | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/AG.Logs.pas b/AG.Logs.pas
index 6e9b584..ce53223 100644
--- a/AG.Logs.pas
+++ b/AG.Logs.pas
@@ -18,7 +18,7 @@ uses
 type
   TAGLog=class abstract
     strict protected
-      OneTabStr:string;
+      FTabText:string;
       tabs:cardinal;
       tabstr:string;
       constructor Create();
@@ -33,7 +33,7 @@ type
       procedure UnTab();virtual;
       procedure Write(const Text:string;o:TObject=nil);overload;virtual;abstract;
       destructor Destroy();override;
-      property TabText:string read OneTabStr write SetTabText;
+      property TabText:string read FTabText write SetTabText;
   end;
 
   TAGRamLog=class(TAGLog)
@@ -124,7 +124,7 @@ constructor TAGLog.Create();
 begin
 Self.Write(CBaseTab+'Logging init-'+CBaseTab);
 TabRegen;
-OneTabStr:=DefOneTabStr;
+FTabText:=DefOneTabStr;
 end;
 
 class function TAGLog.SizeableWordtoStr(i:word;size:int8):string;
@@ -179,12 +179,12 @@ var
 begin
 tabstr:='';
 for i:=1 to tabs do
-  tabstr:=tabstr+OneTabStr;
+  tabstr:=tabstr+FTabText;
 end;
 
 procedure TAGLog.SetTabText(const s:string);
 begin
-OneTabStr:=s;
+FTabText:=s;
 TabRegen;
 end;