编辑器

优化编辑器 1.调试 2.右键打开 3.标签切换
2023-04-21 10:42:35 +08:00
parent 73bd2e82d3
commit 683605bcda
4 changed files with 49 additions and 56 deletions
@@ -3541,7 +3541,8 @@ type TcustomListBox=class(TCustomListBoxbase)
        SelRange(false);
        FSelBegin := FSelEnd := n;
        SelRange(true);
-        SetYpos(n);
+        //SetYpos(n);
+        InsureIdxInClient(n);
        calllistselchengd();
    end
    function getItemSelectedState(n);