编辑器

优化查找输入细节

designer/utslcodeeditor.tsf

@@ -5191,15 +5191,17 @@ type TFindWnd=class(TPage)
             begin
                 s := s1;
             end else
-            s := it.CaretWords();
-            if s then SetFindText(s);
+                s := it.CaretWords();
+            SetFindText(s);
             FEdit_target.Editer.SetFocus();
         end
         inherited;
     end
     Function SetFindText(s); //设置查找的字符串
     begin
-        FEdit_target.Editer.Text := s;
+        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,8 +4617,11 @@ type tenterouterlist = class
     begin
         FIndex := -1;
         FList := array();  
-        FTimer.stop();
-        FTimer := nil;  
+        if FTimer then 
+        begin 
+            FTimer.stop();
+            FTimer := nil;  
+        end 
     end 
     Mousemovecall;
     Mousehittest;
@@ -4628,6 +4631,7 @@ type tenterouterlist = class
     FLock;
     FIndex ;
     FList;
+    FTimer; //20230314 ÐÞÕý´Ë´¦ÎÊÌâ
 end 
 type tgtk_ctl_object = class(_gtkeventtype) 
     private