Browse Source

Merge branch 'master' of https://github.com/Sphere10/PascalCoin

Herman Schoenfeld 7 years ago
parent
commit
e3e2822f61
2 changed files with 17 additions and 6 deletions
  1. 1 1
      src/gui/wizards/UWIZSendPASC_Start.lfm
  2. 16 5
      src/gui/wizards/UWIZSendPASC_Start.pas

+ 1 - 1
src/gui/wizards/UWIZSendPASC_Start.lfm

@@ -6,7 +6,7 @@ object WIZSendPASC_Start: TWIZSendPASC_Start
   Caption = 'WIZSendPASC_Start'
   Caption = 'WIZSendPASC_Start'
   ClientHeight = 261
   ClientHeight = 261
   ClientWidth = 429
   ClientWidth = 429
-  LCLVersion = '1.8.2.0'
+  LCLVersion = '1.8.1.0'
   Visible = False
   Visible = False
   object gpSender: TGroupBox
   object gpSender: TGroupBox
     Left = 4
     Left = 4

+ 16 - 5
src/gui/wizards/UWIZSendPASC_Start.pas

@@ -16,7 +16,7 @@ interface
 
 
 uses
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ExtCtrls, UVisualGrid, UCommon.Data,
+  ExtCtrls, UVisualGrid, UCommon.Data, UCellRenderers,
   UWizard, UWIZSendPASC, UWIZSendPASC_Transaction, UWIZSendPASC_Confirmation;
   UWizard, UWIZSendPASC, UWIZSendPASC_Transaction, UWIZSendPASC_Confirmation;
 
 
 type
 type
@@ -68,12 +68,23 @@ begin
   FSendersGrid.Options := [vgoColAutoFill, vgoColSizing, vgoSortDirectionAllowNone, vgoAutoHidePaging];
   FSendersGrid.Options := [vgoColAutoFill, vgoColSizing, vgoSortDirectionAllowNone, vgoAutoHidePaging];
   with FSendersGrid.AddColumn('Account') do begin
   with FSendersGrid.AddColumn('Account') do begin
     StretchedToFill := true;
     StretchedToFill := true;
-    Filters := SORTABLE_NUMERIC_FILTER;
+    Binding := 'AccountNumber';
+    SortBinding := 'AccountNumber';
+    DisplayBinding := 'Account';
+    Width := 100;
+    HeaderFontStyles := [fsBold];
+    DataFontStyles := [fsBold];
+    Filters:=SORTABLE_NUMERIC_FILTER;
   end;
   end;
-  with FSendersGrid.AddColumn('Amount') do begin
-    Binding := 'Balance';
+  with FSendersGrid.AddColumn('Balance') do begin
+    Binding := 'BalanceDecimal';
+    SortBinding := 'Balance';
+    DisplayBinding := 'Balance';
     Width := 100;
     Width := 100;
-    Filters := SORTABLE_NUMERIC_FILTER;
+    HeaderAlignment:=taRightJustify;
+    DataAlignment:=taRightJustify;
+    Renderer := TCellRenderers.PASC;
+    Filters:=SORTABLE_NUMERIC_FILTER;
   end;
   end;
   data := TAccountSenderDataSource.Create(FSendersGrid);
   data := TAccountSenderDataSource.Create(FSendersGrid);
   data.Model := Model;
   data.Model := Model;