浏览代码

minor modifications to operation explorer

Ugochukwu Mmaduekwe 7 年之前
父节点
当前提交
3ac6e6ebdc
共有 2 个文件被更改,包括 3 次插入1 次删除
  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