编辑器

优化查找输入细节
2023-03-14 10:27:40 +08:00
parent 946df3c42b
commit 73ad8b3530
3 changed files with 11 additions and 5 deletions
@@ -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(); //保存一下数据