编辑器

优化查找输入细节

designer/utslcodeeditor.tsf

@@ -5192,14 +5192,16 @@ type TFindWnd=class(TPage)
                 s := s1;
             end else
                 s := it.CaretWords();
-            if s then SetFindText(s);
+            SetFindText(s);
             FEdit_target.Editer.SetFocus();
         end
         inherited;
     end
     Function SetFindText(s); //设置查找的字符串
     begin
+        if s then 
             FEdit_target.Editer.Text := s;
+        else s := FEdit_target.Editer.Text;
         FEdit_target.Editer.SetSel(0,length(s));
     end
     function SaveCurrentEditer(); //保存一下数据

funcext/tvclib/ugtkinterface.tsf

@@ -4617,9 +4617,12 @@ type tenterouterlist = class
     begin
         FIndex := -1;
         FList := array();  
+        if FTimer then 
+        begin 
             FTimer.stop();
             FTimer := nil;  
         end 
+    end 
     Mousemovecall;
     Mousehittest;
     _wapi;
@@ -4628,6 +4631,7 @@ type tenterouterlist = class
     FLock;
     FIndex ;
     FList;
+    FTimer; //20230314 ÐÞÕý´Ë´¦ÎÊÌâ
 end 
 type tgtk_ctl_object = class(_gtkeventtype) 
     private