artem3213212/AGLogs
1
0
Fork 0
Code Issues 1 Releases Activity

TabChange added

Browse Source
This commit is contained in:
Artem3213212
2018-06-01 21:27:43 +03:00
parent dd82a79ed3
commit ee71383973
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
AG.Logs.pas
View File

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