Browse Source

Delphi gui-classic wallet and payload decoder addaptation to Lazarus

PascalCoin 6 years ago
parent
commit
1fb002d3b3
2 changed files with 11 additions and 35 deletions
  1. 9 17
      src/gui-classic/UFRMPayloadDecoder.dfm
  2. 2 18
      src/gui-classic/UFRMWallet.dfm

+ 9 - 17
src/gui-classic/UFRMPayloadDecoder.dfm

@@ -6,7 +6,7 @@ object FRMPayloadDecoder: TFRMPayloadDecoder
   BorderStyle = bsSingle
   Caption = 'Operation Information/Decoder'
   ClientHeight = 406
-  ClientWidth = 674
+  ClientWidth = 691
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -183,13 +183,14 @@ object FRMPayloadDecoder: TFRMPayloadDecoder
   object PageControl: TPageControl
     Left = 20
     Top = 140
-    Width = 631
+    Width = 653
     Height = 206
     ActivePage = tsDecoded
     TabOrder = 2
     OnChanging = PageControlChanging
     object tsDecoded: TTabSheet
       Caption = 'Payload'
+      ExplicitWidth = 623
       object Label7: TLabel
         Left = 15
         Top = 94
@@ -221,7 +222,7 @@ object FRMPayloadDecoder: TFRMPayloadDecoder
       object memoDecoded: TMemo
         Left = 15
         Top = 111
-        Width = 591
+        Width = 618
         Height = 55
         TabStop = False
         Font.Charset = DEFAULT_CHARSET
@@ -239,7 +240,7 @@ object FRMPayloadDecoder: TFRMPayloadDecoder
       object memoOriginalPayloadInHexa: TMemo
         Left = 15
         Top = 28
-        Width = 591
+        Width = 618
         Height = 55
         TabStop = False
         Color = clBtnFace
@@ -268,10 +269,7 @@ object FRMPayloadDecoder: TFRMPayloadDecoder
     object tsDecodeMethods: TTabSheet
       Caption = 'Decode methods'
       ImageIndex = 1
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
+      ExplicitWidth = 623
       object lblPasswordsInfo: TLabel
         Left = 235
         Top = 162
@@ -309,7 +307,7 @@ object FRMPayloadDecoder: TFRMPayloadDecoder
       object memoPasswords: TMemo
         Left = 235
         Top = 10
-        Width = 371
+        Width = 390
         Height = 146
         ScrollBars = ssBoth
         TabOrder = 3
@@ -321,7 +319,6 @@ object FRMPayloadDecoder: TFRMPayloadDecoder
         Width = 75
         Height = 25
         Caption = 'Save'
-        DoubleBuffered = True
         Glyph.Data = {
           DE010000424DDE01000000000000760000002800000024000000120000000100
           0400000000006801000000000000000000001000000000000000000000000000
@@ -340,7 +337,6 @@ object FRMPayloadDecoder: TFRMPayloadDecoder
           333A333333333333333338330000333333333333333333333333333333333333
           0000}
         NumGlyphs = 2
-        ParentDoubleBuffered = False
         TabOrder = 4
         OnClick = bbSaveMethodsClick
       end
@@ -349,11 +345,10 @@ object FRMPayloadDecoder: TFRMPayloadDecoder
   object bbClose: TBitBtn
     Left = 572
     Top = 362
-    Width = 79
+    Width = 97
     Height = 25
     Cancel = True
     Caption = 'Close'
-    DoubleBuffered = True
     Glyph.Data = {
       76010000424D7601000000000000760000002800000020000000100000000100
       04000000000000010000120B0000120B00001000000000000000000000000000
@@ -369,16 +364,14 @@ object FRMPayloadDecoder: TFRMPayloadDecoder
       5990555555555555577755555555555555555555555555555555}
     ModalResult = 2
     NumGlyphs = 2
-    ParentDoubleBuffered = False
     TabOrder = 3
   end
   object bbFind: TBitBtn
     Left = 599
     Top = 19
-    Width = 52
+    Width = 74
     Height = 25
     Caption = '&Find'
-    DoubleBuffered = True
     Glyph.Data = {
       36030000424D3603000000000000360000002800000010000000100000000100
       18000000000000030000120B0000120B00000000000000000000FF00FF4A667C
@@ -406,7 +399,6 @@ object FRMPayloadDecoder: TFRMPayloadDecoder
       FF00FFFF00FFFF00FFFF00FFFF00FFAD827FC9AA9EEFE0B7EFDFB2E7CEACB890
       86B89086FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
       00FFFF00FFBA968ABB988CB79188FF00FFFF00FFFF00FFFF00FF}
-    ParentDoubleBuffered = False
     TabOrder = 1
     TabStop = False
     OnClick = bbFindClick

+ 2 - 18
src/gui-classic/UFRMWallet.dfm

@@ -657,7 +657,7 @@ object FRMWallet: TFRMWallet
         Align = alClient
         TabOrder = 2
         object tsAccountOperations: TTabSheet
-          Caption = 'Operations of selected Account'
+          Caption = 'Account Operations'
           object dgAccountOperations: TDrawGrid
             Left = 0
             Top = 0
@@ -669,12 +669,8 @@ object FRMWallet: TFRMWallet
           end
         end
         object tsMultiSelectAccounts: TTabSheet
-          Caption = 'Selected accounts for massive operations'
+          Caption = 'Selected Accounts For Batch Operation'
           ImageIndex = 1
-          ExplicitLeft = 0
-          ExplicitTop = 0
-          ExplicitWidth = 0
-          ExplicitHeight = 0
           object dgSelectedAccounts: TDrawGrid
             Left = 41
             Top = 31
@@ -866,10 +862,6 @@ object FRMWallet: TFRMWallet
     object tsPendingOperations: TTabSheet
       Caption = 'Pending Operations'
       ImageIndex = 5
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
       object dgPendingOperations: TDrawGrid
         Left = 0
         Top = 86
@@ -1008,10 +1000,6 @@ object FRMWallet: TFRMWallet
     object tsOperations: TTabSheet
       Caption = 'Operations Explorer'
       ImageIndex = 1
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
       object Panel1: TPanel
         Left = 0
         Top = 0
@@ -1060,10 +1048,6 @@ object FRMWallet: TFRMWallet
     object tsLogs: TTabSheet
       Caption = 'Logs'
       ImageIndex = 2
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
       object pnlTopLogs: TPanel
         Left = 0
         Top = 0