kake26/bandmon
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

No longer active, Ntfy based approach superceeded this

Browse source
This commit is contained in:
Paul 2023-04-15 13:35:04 -05:00
parent d58d386d18
commit ec412d7ad7
12 changed files with 50 additions and 158 deletions
Download patch file Download diff file Expand all files Collapse all files

125
fpc/backup/bandy2.lps
View file

@ -22,7 +22,7 @@
<UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/>
<TopLine Value="72"/>
<CursorPos X="87" Y="101"/>
<CursorPos X="64" Y="79"/>
<UsageCount Value="36"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
@ -43,128 +43,7 @@
<UsageCount Value="10"/>
</Unit3>
</Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="unit1.pas"/>
<Caret Line="54" Column="13" TopLine="23"/>
</Position1>
<Position2>
<Filename Value="unit1.pas"/>
<Caret Line="55" Column="13" TopLine="24"/>
</Position2>
<Position3>
<Filename Value="unit1.pas"/>
<Caret Line="59" Column="38" TopLine="30"/>
</Position3>
<Position4>
<Filename Value="unit1.pas"/>
<Caret Line="60" Column="38" TopLine="31"/>
</Position4>
<Position5>
<Filename Value="unit1.pas"/>
<Caret Line="62" Column="38" TopLine="34"/>
</Position5>
<Position6>
<Filename Value="unit1.pas"/>
<Caret Line="63" Column="38" TopLine="35"/>
</Position6>
<Position7>
<Filename Value="unit1.pas"/>
<Caret Line="65" Column="38" TopLine="37"/>
</Position7>
<Position8>
<Filename Value="unit1.pas"/>
<Caret Line="80" Column="14" TopLine="44"/>
</Position8>
<Position9>
<Filename Value="unit1.pas"/>
<Caret Line="75" Column="14" TopLine="44"/>
</Position9>
<Position10>
<Filename Value="unit1.pas"/>
<Caret Column="13"/>
</Position10>
<Position11>
<Filename Value="unit1.pas"/>
<Caret Line="88" Column="21" TopLine="52"/>
</Position11>
<Position12>
<Filename Value="unit1.pas"/>
<Caret Line="81" Column="3" TopLine="55"/>
</Position12>
<Position13>
<Filename Value="unit1.pas"/>
<Caret Line="73" Column="21" TopLine="39"/>
</Position13>
<Position14>
<Filename Value="unit1.pas"/>
<Caret Line="77" Column="3" TopLine="48"/>
</Position14>
<Position15>
<Filename Value="unit1.pas"/>
<Caret Line="57" Column="34" TopLine="48"/>
</Position15>
<Position16>
<Filename Value="unit1.pas"/>
<Caret Line="88" Column="24" TopLine="52"/>
</Position16>
<Position17>
<Filename Value="unit1.pas"/>
<Caret Line="72" TopLine="39"/>
</Position17>
<Position18>
<Filename Value="unit1.pas"/>
<Caret Line="79" TopLine="43"/>
</Position18>
<Position19>
<Filename Value="unit1.pas"/>
<Caret Line="61" Column="27" TopLine="46"/>
</Position19>
<Position20>
<Filename Value="unit1.pas"/>
<Caret Line="60" Column="27" TopLine="45"/>
</Position20>
<Position21>
<Filename Value="unit1.pas"/>
<Caret Line="94" Column="74" TopLine="60"/>
</Position21>
<Position22>
<Filename Value="unit1.pas"/>
<Caret Line="93" Column="74" TopLine="59"/>
</Position22>
<Position23>
<Filename Value="unit1.pas"/>
<Caret Line="94" Column="74" TopLine="60"/>
</Position23>
<Position24>
<Filename Value="unit1.pas"/>
<Caret Line="101" Column="74" TopLine="67"/>
</Position24>
<Position25>
<Filename Value="unit1.pas"/>
<Caret Line="81" Column="94" TopLine="65"/>
</Position25>
<Position26>
<Filename Value="unit1.pas"/>
<Caret Line="83" Column="31" TopLine="66"/>
</Position26>
<Position27>
<Filename Value="unit1.pas"/>
<Caret Line="76" Column="8" TopLine="66"/>
</Position27>
<Position28>
<Filename Value="unit1.pas"/>
<Caret Line="79" Column="28" TopLine="66"/>
</Position28>
<Position29>
<Filename Value="unit1.pas"/>
<Caret Line="76" Column="8" TopLine="61"/>
</Position29>
<Position30>
<Filename Value="unit1.pas"/>
<Caret Line="79" Column="38" TopLine="64"/>
</Position30>
</JumpHistory>
<JumpHistory HistoryIndex="-1"/>
<RunParams>
<FormatVersion Value="2"/>
<Modes ActiveMode=""/>

10
fpc/backup/unit1.lfm
View file

@ -1,11 +1,11 @@
object Form1: TForm1
Left = 474
Left = 811
Height = 139
Top = 463
Width = 299
Top = 397
Width = 315
Caption = 'Internet Traffic Monitor'
ClientHeight = 139
ClientWidth = 299
ClientWidth = 315
OnCreate = FormCreate
LCLVersion = '2.2.5.0'
object Label1: TLabel
@ -54,7 +54,7 @@ object Form1: TForm1
ParentColor = False
end
object Button1: TButton
Left = 208
Left = 224
Height = 25
Top = 104
Width = 75

4
fpc/backup/unit1.pas
View file

@ -77,8 +77,8 @@ begin
vnstats.dom := parse[4];
vnstats.cm := concat(parse[6],' GiB');
vnstats.vnhourly := concat(parse[8],parse[9]);
vnstats.vnmonthly := concat(parse[11],parse[12]);
vnstats.vnhourly := concat(parse[8],' ',parse[9]);
vnstats.vnmonthly := concat(parse[11],' ', parse[12]);
Label2.Caption := vnstats.vnhourly;
Label6.Caption := vnstats.vnmonthly;
Label4.Caption := vnstats.cm;