trxinfo panel

Noso-Project · Jul 24, 2022 · c9e24d8 · c9e24d8
1 parent 32a5621
commit c9e24d8
Show file tree

Hide file tree

Showing 8 changed files with 23 additions and 15 deletions.
diff --git a/languages/nosolite.es.po b/languages/nosolite.es.po
@@ -358,7 +358,7 @@ msgid "Send coins"
 msgstr "Enviar fondos"
 
 #: tform1.lsctop1.caption
-msgid "Directory"
+msgid "Trx Info"
 msgstr ""
 
 #: tform1.menuitem1.caption

diff --git a/languages/nosolite.po b/languages/nosolite.po
@@ -336,7 +336,7 @@ msgid "Send coins"
 msgstr ""
 
 #: tform1.lsctop1.caption
-msgid "Directory"
+msgid "Trx Info"
 msgstr ""
 
 #: tform1.menuitem1.caption

diff --git a/languages/nosolite.pt.po b/languages/nosolite.pt.po
@@ -376,7 +376,9 @@ msgid "Send coins"
 msgstr "Enviar moedas"
 
 #: tform1.lsctop1.caption
-msgid "Directory"
+#, fuzzy
+#| msgid "Directory"
+msgid "Trx Info"
 msgstr "Diretoria"
 
 #: tform1.menuitem1.caption

diff --git a/nl_cripto.pas b/nl_cripto.pas
@@ -40,7 +40,7 @@ function BMDecToHex(numero:string):string;
 implementation
 
 Uses
-  nl_functions, dialogs;
+  nl_functions, dialogs, nl_mainform;
 
 // Creates a new address
 Function CreateNewAddress(keysData:string = ''):WalletData;
@@ -206,7 +206,9 @@ function SendTo(Destination:String;Ammount:int64;Reference:String):string;
 Remaining := Ammount+fee;
 if WO_Multisend then CoinsAvailable := Int_WalletBalance
 else CoinsAvailable := GetAddressBalanceFromSumary(ARRAY_Addresses[0].Hash);
-Destination := ARRAY_Sumary[AddressSumaryIndex(Destination)].Hash;
+if not IsValidAddressHash(Destination) then
+   Destination := ARRAY_Sumary[AddressSumaryIndex(Destination)].Hash;
+
 if Remaining > CoinsAvailable then
       begin
       ToLog(rsError0012);

diff --git a/nl_data.pas b/nl_data.pas
@@ -192,7 +192,7 @@ TUpdateThread = class(TThread)
   WO_LastSumary   : string = '';
   WO_Refreshrate  : integer = 15;
   WO_Multisend    : boolean = false;
-  WO_UseSeedNodes : Boolean = false;
+  WO_UseSeedNodes : Boolean = true;
 
   // Global variables
   SAVE_Wallet    : Boolean = false;

diff --git a/nl_mainform.lfm b/nl_mainform.lfm
@@ -565,25 +565,27 @@ object Form1: TForm1
             Text = '0.00000000'
           end
         end
-        object PanelDirectory: TPanel
+        object PanelTrxInfo: TPanel
           Left = 390
           Height = 127
           Top = 0
           Width = 238
-          Align = alClient
-          BevelOuter = bvNone
+          Align = alLeft
           ClientHeight = 127
           ClientWidth = 238
+          Color = clInactiveCaption
+          ParentColor = False
           TabOrder = 1
+          Visible = False
           object LSCTop1: TLabel
-            Left = 5
+            Left = 6
             Height = 19
-            Top = 0
-            Width = 228
+            Top = 1
+            Width = 226
             Align = alTop
             BorderSpacing.Left = 5
             BorderSpacing.Right = 5
-            Caption = 'Directory'
+            Caption = 'Trx Info'
             Color = clBlack
             Font.CharSet = ANSI_CHARSET
             Font.Color = clWhite

diff --git a/nl_mainform.lrj b/nl_mainform.lrj
@@ -14,7 +14,7 @@
 {"hash":174379213,"name":"tform1.scbitconf.caption","sourcebytes":[67,111,110,102,105,114,109],"value":"Confirm"},
 {"hash":40340035,"name":"tform1.cbmultisend.hint","sourcebytes":[67,104,101,99,107,32,116,111,32,117,115,101,32,97,108,108,32,97,100,100,114,101,115,115,101,115],"value":"Check to use all addresses"},
 {"hash":53477888,"name":"tform1.editscmont.text","sourcebytes":[48,46,48,48,48,48,48,48,48,48],"value":"0.00000000"},
-{"hash":146472345,"name":"tform1.lsctop1.caption","sourcebytes":[68,105,114,101,99,116,111,114,121],"value":"Directory"},
+{"hash":161808767,"name":"tform1.lsctop1.caption","sourcebytes":[84,114,120,32,73,110,102,111],"value":"Trx Info"},
 {"hash":314291,"name":"tform1.tabgvts.caption","sourcebytes":[71,86,84,115],"value":"GVTs"},
 {"hash":314291,"name":"tform1.tabgvtsgvts.caption","sourcebytes":[71,86,84,115],"value":"GVTs"},
 {"hash":142973298,"name":"tform1.label14.caption","sourcebytes":[84,114,97,110,115,102,101,114],"value":"Transfer"},

diff --git a/nl_mainform.pas b/nl_mainform.pas
@@ -72,7 +72,7 @@   TForm1 = class(TForm)
     PC_GVTs: TPageControl;
     Panel1: TPanel;
     PanelSupply: TPanel;
-    PanelDirectory: TPanel;
+    PanelTrxInfo: TPanel;
     PanelDown: TPanel;
     PanelBlockInfo: TPanel;
     PanelBalance: TPanel;
@@ -935,6 +935,8 @@ procedure TForm1.EditSCMontChange(Sender: TObject);
   end
 else Form1.ImageList.GetBitmap(1,ImgSCMont.Picture.Bitmap);
 if EditSCMont.Text = '0.00000000' then ImgSCMont.Picture.Clear;
+if EditSCMont.Text = '0.00000000' then PanelTrxInfo.Visible:=false
+else PanelTrxInfo.Visible:=true;
 End;
 
 // Ammount edit on key pressed