Browse Source

BUG: pre-sort when fetching user accounts

Herman Schoenfeld 7 years ago
parent
commit
7eebee3d1f
2 changed files with 2 additions and 2 deletions
  1. 1 0
      src/core.utils/UCoreUtils.pas
  2. 1 2
      src/gui/UCTRLWallet.pas

+ 1 - 0
src/core.utils/UCoreUtils.pas

@@ -291,6 +291,7 @@ begin
     end;
     end;
   end;
   end;
   Result := LAccs.ToArray;
   Result := LAccs.ToArray;
+  TArrayHelper<TAccount>.Sort(Result, TAccountComparer.Create);
 end;
 end;
 
 
 class function TCoreTool.GetUserAccountNumbers: TArray<cardinal>;
 class function TCoreTool.GetUserAccountNumbers: TArray<cardinal>;

+ 1 - 2
src/gui/UCTRLWallet.pas

@@ -132,7 +132,7 @@ begin
 
 
   // grids
   // grids
   FAccountsGrid := TVisualGrid.Create(Self);
   FAccountsGrid := TVisualGrid.Create(Self);
-  FAccountsGrid.SortMode := smMultiColumn;
+  FAccountsGrid.SortMode := smSingleColumn;
   FAccountsGrid.FetchDataInThread := false;
   FAccountsGrid.FetchDataInThread := false;
   FAccountsGrid.AutoPageSize := True;
   FAccountsGrid.AutoPageSize := True;
   FAccountsGrid.DeselectionType := dtDefault;
   FAccountsGrid.DeselectionType := dtDefault;
@@ -143,7 +143,6 @@ begin
     Binding := 'AccountNumber';
     Binding := 'AccountNumber';
     SortBinding := 'AccountNumber';
     SortBinding := 'AccountNumber';
     DisplayBinding := 'Account';
     DisplayBinding := 'Account';
-    SortDirection:= sdAscending;
     Width := 100;
     Width := 100;
     HeaderFontStyles := [fsBold];
     HeaderFontStyles := [fsBold];
     DataFontStyles := [fsBold];
     DataFontStyles := [fsBold];