From bffdec23d930bb6cc47109b0980ef50abc7c0493 Mon Sep 17 00:00:00 2001
From: JianjunLiu <cqljj123@126.com>
Date: Mon, 8 May 2023 10:02:04 +0800
Subject: [PATCH] =?UTF-8?q?=E7=BC=96=E8=BE=91=E5=99=A8?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

浼樺寲
---
 designer/utslcodeeditor.tsf        | 36 +++++++++++++++---------------
 funcext/tvclib/tgraphiccontrol.tsf |  2 +-
 2 files changed, 19 insertions(+), 19 deletions(-)

diff --git a/designer/utslcodeeditor.tsf b/designer/utslcodeeditor.tsf
index 130aabd..9ac9e54 100644
--- a/designer/utslcodeeditor.tsf
+++ b/designer/utslcodeeditor.tsf
@@ -5624,23 +5624,23 @@ type TListPages=class(TListBox)
         Visible := false;
         WsPopUp := true;
     end
-    function PaintIdx(idx,rc_,cvs);override;
-    begin
-        {**
-        @explan(说明)绘制项 %%
-        @param(item)(TCustomListItem) 项 %%
-        @param(rc)(array) 绘制区域%%
-        @param(cvs)(tcanvas) 画布 %%
-        **}
-        inherited;
-        if idx=getCurrentSelection()then
-        begin
-            rc := rc_;
-            rc[2:3]-= 1;
-            cvs.pen.Color := rgb(30,144,255);
-            cvs.draw("Polyline",array(rc[0:1],(rc[2],rc[1]),(rc[2],rc[3]),(rc[0],rc[3]),rc[0:1]));
-        end
-    end
+//    function PaintIdx(idx,rc_,cvs);override;
+//    begin
+//        {**
+//        @explan(说明)绘制项 %%
+//        @param(item)(TCustomListItem) 项 %%
+//        @param(rc)(array) 绘制区域%%
+//        @param(cvs)(tcanvas) 画布 %%
+//        **}
+//        inherited;
+//        if idx=getCurrentSelection()then
+//        begin
+//            rc := rc_;
+//            rc[2:3]-= 1;
+//            cvs.pen.Color := rgb(30,144,255);
+//            cvs.draw("Polyline",array(rc[0:1],(rc[2],rc[1]),(rc[2],rc[3]),(rc[0],rc[3]),rc[0:1]));
+//        end
+//    end
     function MouseUp(o,e);override;
     begin
         inherited;
@@ -5676,7 +5676,7 @@ type TListPages=class(TListBox)
     function GetSelFileName();
     begin
         r := GetItem(getCurrentSelection());
-        if pos("*",r)then
+        if r and pos("*",r)then
         begin
             return r[2:];
         end
diff --git a/funcext/tvclib/tgraphiccontrol.tsf b/funcext/tvclib/tgraphiccontrol.tsf
index 502d6b0..dcaadc6 100644
--- a/funcext/tvclib/tgraphiccontrol.tsf
+++ b/funcext/tvclib/tgraphiccontrol.tsf
@@ -146,7 +146,7 @@ type tgraphiccontrol = class(TControl)
             return 1;
         end
     end
-    function CMCursorChanged(var Message:TLMessage):CM_CURSORCHANGED;override;
+    function CMCursorChanged(o:tgraphiccontrol;var Message:TLMessage):CM_CURSORCHANGED;override;
     begin
         inherited;
     end