* [Input Helper] Do NOT Popup when Code Template List is Visible.

Bin/PSDeclEx/CnWizIdeUtils.pas

@@ -188,6 +188,18 @@ function GetCurrentEditControl: TControl;
 function GetStatusBarFromEditor(EditControl: TControl): TStatusBar;
 {* 从编辑器控件获得其所属的编辑器窗口的状态栏}
 
+function GetCurrentSyncButton: TControl;
+{* 获取当前最前端编辑器的语法编辑按钮，注意语法编辑按钮存在不等于可见}
+
+function GetCurrentSyncButtonVisible: Boolean;
+{* 获取当前最前端编辑器的语法编辑按钮是否可见，无按钮或不可见均返回 False}
+
+function GetCodeTemplateListBox: TControl;
+{* 返回编辑器中的代码模板自动输入框}
+
+function GetCodeTemplateListBoxVisible: Boolean;
+{* 返回编辑器中的代码模板自动输入框是否可见，无或不可见均返回 False}
+
 //==============================================================================
 // 组件面板封装类
 //==============================================================================
@@ -471,6 +483,22 @@ function GetStatusBarFromEditor(EditControl: TControl): TStatusBar;
 begin
 end;
 
+function GetCurrentSyncButton: TControl;
+begin
+end;
+
+function GetCurrentSyncButtonVisible: Boolean;
+begin
+end;
+
+function GetCodeTemplateListBox: TControl;
+begin
+end;
+
+function GetCodeTemplateListBoxVisible: Boolean;
+begin
+end;
+
 { TCnPaletteWrapper }
 
 procedure TCnPaletteWrapper.BeginUpdate;

Source/IdeEnhancements/CnInputHelper.pas

@@ -1268,11 +1268,12 @@ function TCnInputHelper.AcceptDisplay: Boolean;
     Result := CurrentIsSource;
     {$ENDIF}
   end;
+
 begin
   Result := Active and IsEditControl(Screen.ActiveControl) and
     (not CheckImmRun or not IMMIsActive) and CanPopupInCurrentSourceType and
     not IsAutoCompleteActive and not IsReadOnly and not CnOtaIsDebugging and
-    not IsInIncreSearch and not IsInMacroOp;
+    not IsInIncreSearch and not IsInMacroOp and not GetCodeTemplateListBoxVisible;
 end;
 
 procedure TCnInputHelper.ApplicationMessage(var Msg: TMsg;

Source/ScriptWizard/CnScript_CnWizIdeUtils.pas

@@ -154,6 +154,8 @@ procedure SIRegister_CnWizIdeUtils(CL: TPSPascalCompiler);
   CL.AddDelphiFunction('Function GetStatusBarFromEditor(EditControl: TControl) : TStatusBar');
   CL.AddDelphiFunction('Function GetCurrentSyncButton : TControl');
   CL.AddDelphiFunction('Function GetCurrentSyncButtonVisible : Boolean');
+  CL.AddDelphiFunction('Function GetCodeTemplateListBox : TControl');
+  CL.AddDelphiFunction('Function GetCodeTemplateListBoxVisible : Boolean');
   CL.AddDelphiFunction('Function ConvertIDETreeNodeToTreeNode(Node: TObject) : TTreeNode');
   CL.AddDelphiFunction('Function ConvertIDETreeNodesToTreeNodes(Nodes: TObject) : TTreeNodes');
   SIRegister_TCnPaletteWrapper(CL);
@@ -400,6 +402,8 @@ procedure RIRegister_CnWizIdeUtils_Routines(S: TPSExec);
   S.RegisterDelphiFunction(@GetStatusBarFromEditor, 'GetStatusBarFromEditor', cdRegister);
   S.RegisterDelphiFunction(@GetCurrentSyncButton, 'GetCurrentSyncButton', cdRegister);
   S.RegisterDelphiFunction(@GetCurrentSyncButtonVisible, 'GetCurrentSyncButtonVisible', cdRegister);
+  S.RegisterDelphiFunction(@GetCodeTemplateListBox, 'GetCodeTemplateListBox', cdRegister);
+  S.RegisterDelphiFunction(@GetCodeTemplateListBoxVisible, 'GetCodeTemplateListBoxVisible', cdRegister);
   S.RegisterDelphiFunction(@ConvertIDETreeNodeToTreeNode, 'ConvertIDETreeNodeToTreeNode', cdRegister);
   S.RegisterDelphiFunction(@ConvertIDETreeNodesToTreeNodes, 'ConvertIDETreeNodesToTreeNodes', cdRegister);
   S.RegisterDelphiFunction(@CnPaletteWrapper, 'CnPaletteWrapper', cdRegister);

Source/Utils/CnWizIdeUtils.pas

@@ -377,6 +377,12 @@ function GetCurrentSyncButton: TControl;
 function GetCurrentSyncButtonVisible: Boolean;
 {* 获取当前最前端编辑器的语法编辑按钮是否可见，无按钮或不可见均返回 False}
 
+function GetCodeTemplateListBox: TControl;
+{* 返回编辑器中的代码模板自动输入框}
+
+function GetCodeTemplateListBoxVisible: Boolean;
+{* 返回编辑器中的代码模板自动输入框是否可见，无或不可见均返回 False}
+
 type
   TCnSrcEditorPage = (epCode, epDesign, epCPU, epWelcome, epOthers);
 
@@ -565,6 +571,7 @@ implementation
 
 const
   SSyncButtonName = 'SyncButton';
+  SCodeTemplateListBoxName = 'CodeTemplateListBox';
 
 {$IFDEF BDS4_UP}
 const
@@ -1953,6 +1960,23 @@ function GetCurrentSyncButtonVisible: Boolean;
     Result := Button.Visible;
 end;
 
+// 返回编辑器中的代码模板自动输入框
+function GetCodeTemplateListBox: TControl;
+begin
+  Result := TControl(Application.FindComponent(SCodeTemplateListBoxName));
+end;
+
+// 返回编辑器中的代码模板自动输入框是否可见，无或不可见均返回 False
+function GetCodeTemplateListBoxVisible: Boolean;
+var
+  Control: TControl;
+begin
+  Result := False;
+  Control := GetCodeTemplateListBox;
+  if Control <> nil then
+    Result := Control.Visible;
+end;
+
 // 取当前编辑窗口顶层页面类型，传入编辑器父控件
 function GetCurrentTopEditorPage(AControl: TWinControl): TCnSrcEditorPage;
 var