变更令界面，强制控制部位及原因、说明的只读，导致变更清单无法刷新，暂屏蔽

Frames/BGLFme.dfm

@@ -127,7 +127,6 @@ object BGLFrame: TBGLFrame
         Selection.TransparentColor = False
         FrozenCol = 0
         FrozenRow = 0
-        OnCurrentChanged = zgBGLCurrentChanged
         OnCellTextChanged = zgBGLCellTextChanged
         OnCopy = zgBGLCopy
         OnPaste = zgBGLPaste

Frames/BGLFme.pas

@@ -103,7 +103,7 @@ begin
   begin
     zaBGL.Options := [aoAllowEdit, aoAllowDelete, aoAllowUpMove, aoAllowDownMove];
     zaBGL.ExtendRowCount := 0;
-    zgBGL.OnCurrentChanged := zgBGLCurrentChanged;
+    //zgBGL.OnCurrentChanged := zgBGLCurrentChanged;
   end
   else
     zaBGL.Options := [aoAllowInsert, aoAllowEdit, aoAllowDelete, aoAutoInsert, aoAllowUpMove, aoAllowDownMove];