update 0.2

and movin' files around.
dawallet · Jan 28, 2016 · 769d8fe · 769d8fe
1 parent 4c658bf
commit 769d8fe
Show file tree

Hide file tree

Showing 10 changed files with 151 additions and 35 deletions.
diff --git a/Source/BurstWallet2.dfm b/Source/BurstWallet2.dfm
@@ -1,8 +1,8 @@
 object Form1: TForm1
   Left = 0
   Top = 0
-  Caption = 'Burst Windows Client v0.1.9.5'
-  ClientHeight = 559
+  Caption = 'Burst Windows Client v0.2'
+  ClientHeight = 558
   ClientWidth = 996
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -21,22 +21,22 @@ object Form1: TForm1
     Left = 0
     Top = 0
     Width = 996
-    Height = 540
+    Height = 539
     Align = alClient
     TabOrder = 0
     ExplicitTop = -6
     ExplicitWidth = 1126
     ExplicitHeight = 542
     ControlData = {
-      4C000000F1660000D03700000000000000000000000000000000000000000000
+      4C000000F1660000B53700000000000000000000000000000000000000000000
       000000004C000000000000000000000001000000E0D057007335CF11AE690800
       2B2E126208000000000000004C0000000114020000000000C000000000000046
       8000000000000000000000000000000000000000000000000000000000000000
       00000000000000000100000000000000000000000000000000000000}
   end
   object ToolBar1: TToolBar
     Left = 0
-    Top = 540
+    Top = 539
     Width = 996
     Height = 19
     Align = alBottom
@@ -65,13 +65,15 @@ object Form1: TForm1
       AutoSize = True
       Caption = 'Price:'
       ImageIndex = 0
+      Visible = False
     end
     object ToolButton2: TToolButton
       Left = 34
       Top = 0
       AutoSize = True
       Caption = '-'
       ImageIndex = 1
+      Visible = False
     end
     object ToolButton7: TToolButton
       Left = 48
@@ -80,20 +82,23 @@ object Form1: TForm1
       Caption = 'ToolButton7'
       ImageIndex = 6
       Style = tbsSeparator
+      Visible = False
     end
     object ToolButton3: TToolButton
       Left = 56
       Top = 0
       AutoSize = True
       Caption = '1000 Burst ='
       ImageIndex = 2
+      Visible = False
     end
     object ToolButton4: TToolButton
       Left = 121
       Top = 0
       AutoSize = True
       Caption = '-'
       ImageIndex = 3
+      Visible = False
     end
     object ToolButton8: TToolButton
       Left = 135
@@ -102,20 +107,23 @@ object Form1: TForm1
       Caption = 'ToolButton8'
       ImageIndex = 6
       Style = tbsSeparator
+      Visible = False
     end
     object ToolButton5: TToolButton
       Left = 143
       Top = 0
       AutoSize = True
       Caption = 'Market Cap:'
       ImageIndex = 4
+      Visible = False
     end
     object ToolButton6: TToolButton
       Left = 206
       Top = 0
       AutoSize = True
       Caption = '-'
       ImageIndex = 5
+      Visible = False
     end
     object ToolButton13: TToolButton
       Left = 220
@@ -124,20 +132,23 @@ object Form1: TForm1
       Caption = 'ToolButton13 '
       ImageIndex = 7
       Style = tbsSeparator
+      Visible = False
     end
     object ToolButton14: TToolButton
       Left = 228
       Top = 0
       AutoSize = True
       Caption = 'Mining Wallet:'
       ImageIndex = 7
+      Visible = False
     end
     object ToolButton15: TToolButton
       Left = 297
       Top = 0
       AutoSize = True
       Caption = '-'
       ImageIndex = 7
+      Visible = False
     end
     object ToolButton12: TToolButton
       Left = 311
@@ -223,6 +234,10 @@ object Form1: TForm1
         Caption = 'f.burstcoin.info'
         OnClick = httpfburstcoininfo1Click
       end
+      object httpburstcoinbizfaucet1: TMenuItem
+        Caption = 'burstcoin.biz/faucet'
+        OnClick = httpburstcoinbizfaucet1Click
+      end
     end
     object About1: TMenuItem
       Caption = 'About'

diff --git a/Source/BurstWallet2.pas b/Source/BurstWallet2.pas
@@ -50,6 +50,7 @@   TForm1 = class(TForm)
     ToolButton13: TToolButton;
     ToolButton14: TToolButton;
     ToolButton15: TToolButton;
+    httpburstcoinbizfaucet1: TMenuItem;
     procedure FormCreate(Sender: TObject);
     procedure About1Click(Sender: TObject);
     procedure AddWallet1Click(Sender: TObject);
@@ -81,6 +82,7 @@   TForm1 = class(TForm)
     procedure httpfburstcoininfo1Click(Sender: TObject);
     procedure burstcoinbizfaucet1Click(Sender: TObject);
     procedure Market1Click(Sender: TObject);
+    procedure httpburstcoinbizfaucet1Click(Sender: TObject);
 
 
 
@@ -234,7 +236,7 @@ procedure TForm1.FormCreate(Sender: TObject);
 //CreateProcess(nil, 'java -jar "c:\program files\my java app\test.jar"', nil, nil, False, 0, nil, nil, StartupInfo,
 //ProcessInfo);
 
-
+ {
    IdHTTP := TIdHTTP.Create;
 try
   try
@@ -259,7 +261,7 @@ procedure TForm1.FormCreate(Sender: TObject);
   end;
 finally
   IdHTTP.Free;
-end;
+end;  }
 end;
 
 procedure TForm1.FormHide(Sender: TObject);
@@ -276,6 +278,11 @@ procedure TForm1.HeaderControl1MouseActivate(Sender: TObject;
 end;
 
 
+procedure TForm1.httpburstcoinbizfaucet1Click(Sender: TObject);
+begin
+   ShellExecute(0, 'open', 'http://burstcoin.biz/faucet', nil, nil, SW_SHOWNORMAL);
+end;
+
 procedure TForm1.httpfburstcoininfo1Click(Sender: TObject);
 begin
 ShellExecute(0, 'open', 'http://f.burstcoin.info', nil, nil, SW_SHOWNORMAL);
@@ -350,7 +357,7 @@ procedure TForm1.Timer1Timer(Sender: TObject);
   amount: Single;
   result: Single;
 begin
-
+{
    IdHTTP := TIdHTTP.Create;
 try
   try
@@ -375,7 +382,7 @@ procedure TForm1.Timer1Timer(Sender: TObject);
 finally
   IdHTTP.Free;
 end;
-
+     }
 end;
 
 

diff --git a/Source/Unit10.dfm b/Source/Unit10.dfm
@@ -3390,11 +3390,11 @@ object Form10: TForm10
   object Label2: TLabel
     Left = 17
     Top = 196
-    Width = 347
+    Width = 337
     Height = 13
     Caption = 
-      'Burst Windows Client version 0.1.9 (for Burst Wallet 1.2.3) by d' +
-      'aWallet.'
+      'Burst Windows Client version 0.2 (for Burst Wallet 1.2.3) by daW' +
+      'allet.'
   end
   object Button1: TButton
     Left = 304

diff --git a/Source/Unit3.pas b/Source/Unit3.pas
@@ -133,7 +133,7 @@ procedure TForm3.Button2Click(Sender: TObject);
 IdHTTP := TIdHTTP.Create;
   try
    begin
-      addressstring:= (idHTTP.Get('https://localhost:8125/burst?requestType=rsConvert&account='+Textfield.Text));
+      addressstring:= (idHTTP.Get('http://localhost:8125/burst?requestType=rsConvert&account='+Textfield.Text));
 
     Delete(addressstring, 1, 79);
     addressstring:= StringReplace((addressstring),'"}','',[rfReplaceAll]);
@@ -210,18 +210,18 @@ procedure TForm3.FormActivate(Sender: TObject);
 var
 address: String;
 
-begin
+  begin
 
-Label1.Caption:= 'You have ' + IntToStr(Form2.FreeD) + ' GB free on the chosen Drive. You want to fill 1GB with Plots?';
-Label2.Caption:= IntToStr(Form2.FreeD-1) + ' GB';
-TrackBar1.Max:= Form2.FreeD-1;
-TrackBar2.Position:= System.CPUCount;
+  Label1.Caption:= 'You have ' + IntToStr(Form2.FreeD) + ' GB free on the chosen Drive. You want to fill 1GB with Plots?';
+  Label2.Caption:= IntToStr(Form2.FreeD-1) + ' GB';
+  TrackBar1.Max:= Form2.FreeD-1;
+  TrackBar2.Position:= System.CPUCount;
 
-    address:=TFile.ReadAllText('plotter/miningaddress.txt');
-    address:= StringReplace(address, #13#10, '', [rfReplaceAll, rfIgnoreCase]);
-    Textfield.Text:=(address);
+  address:=TFile.ReadAllText('plotter/miningaddress.txt');
+  address:= StringReplace(address, #13#10, '', [rfReplaceAll, rfIgnoreCase]);
+  Textfield.Text:=(address);
 
-end;
+  end;
 
 procedure TForm3.FormCreate(Sender: TObject);
 var

diff --git a/Source/Unit4.dfm b/Source/Unit4.dfm
@@ -4,8 +4,8 @@ object Form4: TForm4
   BorderIcons = [biSystemMenu]
   BorderStyle = bsToolWindow
   Caption = 'Miner '
-  ClientHeight = 264
-  ClientWidth = 492
+  ClientHeight = 266
+  ClientWidth = 491
   Color = clBtnFace
   DefaultMonitor = dmMainForm
   Font.Charset = DEFAULT_CHARSET
@@ -43,7 +43,7 @@ object Form4: TForm4
   end
   object Label4: TLabel
     Left = 19
-    Top = 134
+    Top = 138
     Width = 152
     Height = 13
     Caption = '2. Change Reward Assignment:'
@@ -71,23 +71,32 @@ object Form4: TForm4
   end
   object Label5: TLabel
     Left = 365
-    Top = 201
+    Top = 162
     Width = 27
     Height = 13
     Caption = 'Pool: '
   end
   object Label6: TLabel
     Left = 395
-    Top = 201
+    Top = 162
     Width = 72
     Height = 13
     Caption = 'none - choose!'
   end
+  object Label12: TLabel
+    Left = 345
+    Top = 243
+    Width = 124
+    Height = 13
+    Alignment = taCenter
+    Caption = 'beta: GPU assisted mining'
+  end
   object Button1: TButton
     Left = 365
-    Top = 220
+    Top = 181
     Width = 102
     Height = 25
+    Hint = 'CPU assisted mining. Works always.'
     Caption = 'Start Mining'
     TabOrder = 0
     OnClick = Button1Click
@@ -96,7 +105,7 @@ object Form4: TForm4
     Left = 365
     Top = 35
     Width = 102
-    Height = 164
+    Height = 126
     ItemHeight = 13
     TabOrder = 1
   end
@@ -115,7 +124,7 @@ object Form4: TForm4
   end
   object Button2: TButton
     Left = 26
-    Top = 153
+    Top = 157
     Width = 132
     Height = 25
     Caption = 'Change'
@@ -159,7 +168,7 @@ object Form4: TForm4
     Left = 334
     Top = 8
     Width = 5
-    Height = 248
+    Height = 251
     Default = True
     TabOrder = 5
   end
@@ -172,4 +181,15 @@ object Form4: TForm4
     TabOrder = 6
     OnClick = Button4Click
   end
+  object Button5: TButton
+    Left = 365
+    Top = 212
+    Width = 102
+    Height = 25
+    Hint = 'GPU assisted mining with OpenCL'
+    Caption = 'Start Mining (beta)'
+    CommandLinkHint = 'GPU assisted mining with OpenCL'
+    TabOrder = 7
+    OnClick = Button5Click
+  end
 end