界面库

优化代码树快捷键,添加动态库函数句柄获取方法

designer/utslcodeeditor.tsf

@@ -3372,7 +3372,7 @@ type TEditer=class(TCustomcontrol) //
                 begin
                     //InitShowWndPos(FCodeMap,"cm",250,100);
                     //FCodeMap.ShowMap();
-                    if FinCodemap and not(FinCodemap.Visible) then 
+                    if FinCodemap then 
                     begin
                         FinCodemap.doshow(1);
                     end 
@@ -4896,6 +4896,17 @@ type tfincodemap = class(tcustomcontrol)
         FTree := new TTreeView(self);
         FTree.OnSelChanged := thisfunction(SynNodeSelected);
         FTree.Parent := self;
+        FTree.onsyskeydown := function(o,e)begin
+            if e.char="M" then doshow(false);
+        end 
+        ftree.OnKeyDown := function(o,e)begin
+            if e.charcode=13 then 
+            begin
+                et := geteditor();
+                echo ">>>enter\r\n";
+                if et then et.SetFocus();
+            end 
+        end 
     end
     function caretchanged(y);
     begin
@@ -4935,7 +4946,11 @@ type tfincodemap = class(tcustomcontrol)
         if st then 
         begin
             ontimerdo();
-            //FTree.SetFocus();
+            FTree.SetFocus();
+        end else 
+        begin
+            et := geteditor();
+            if et then et.SetFocus();
         end 
     end    
     function SynNodeSelected(o,e);