界面库

优化编辑器
2023-02-06 17:21:34 +08:00
parent c7fd3cf136
commit fc0eb3e1cd
3 changed files with 64 additions and 12 deletions
@@ -421,14 +421,22 @@ type TTslDebuga=class(TCustomControl)
                if FCmdHistoryid <= 0 then return o.text := "";
                FCmdHistoryid--;
                txt := FCmdHistory[FCmdHistoryid];
-                if ifstring(txt)and txt then o.text := txt;
+                if ifstring(txt)and txt then 
+                begin
+                    o.text := txt;
+                    o.SetSel(length(txt),length(txt));
+                end 
            end
            VK_DOWN:
            begin
                if FCmdHistoryid >= Length(FCmdHistory)then return o.text := "";
                FCmdHistoryid++;
                txt := FCmdHistory[FCmdHistoryid];
-                if ifstring(txt)and txt then o.text := txt;
+                if ifstring(txt)and txt then
+                begin
+                    o.text := txt;
+                    o.SetSel(length(txt),length(txt));
+                end 
            end
            13:
            begin