Browse Source

minor modifications to operation explorer

Ugochukwu Mmaduekwe 7 years ago
parent
commit
3ac6e6ebdc
2 changed files with 3 additions and 1 deletions
  1. 2 0
      src/gui/UFRMOperationExplorer.lfm
  2. 1 1
      src/gui/UFRMOperationExplorer.pas

+ 2 - 0
src/gui/UFRMOperationExplorer.lfm

@@ -9,6 +9,8 @@ object FRMOperationExplorer: TFRMOperationExplorer
   ClientWidth = 864
   ClientWidth = 864
   Menu = OperationsExplorerMenu
   Menu = OperationsExplorerMenu
   OnCreate = FormCreate
   OnCreate = FormCreate
+  Position = poMainFormCenter
+  LCLVersion = '1.8.2.0'
   Visible = False
   Visible = False
   object Panel1: TPanel
   object Panel1: TPanel
     Left = 0
     Left = 0

+ 1 - 1
src/gui/UFRMOperationExplorer.pas

@@ -126,7 +126,7 @@ var
   LNode: TNode;
   LNode: TNode;
   LStart, LEnd: int64;
   LStart, LEnd: int64;
 begin
 begin
-  LNode := TUserInterface.Node;
+  LNode := FNodeNotifyEvents.Node;
   if FBlockEnd < 0 then
   if FBlockEnd < 0 then
   begin
   begin
     if LNode.Bank.BlocksCount > 0 then
     if LNode.Bank.BlocksCount > 0 then