编辑器

优化

designer/utslcodeeditor.tsf

@@ -5624,23 +5624,23 @@ type TListPages=class(TListBox)
         Visible := false;
         WsPopUp := true;
     end
-    function PaintIdx(idx,rc_,cvs);override;
+//    function PaintIdx(idx,rc_,cvs);override;
-    begin
+//    begin
-        {**
+//        {**
-        @explan(说明)绘制项 %%
+//        @explan(说明)绘制项 %%
-        @param(item)(TCustomListItem) 项 %%
+//        @param(item)(TCustomListItem) 项 %%
-        @param(rc)(array) 绘制区域%%
+//        @param(rc)(array) 绘制区域%%
-        @param(cvs)(tcanvas) 画布 %%
+//        @param(cvs)(tcanvas) 画布 %%
-        **}
+//        **}
-        inherited;
+//        inherited;
-        if idx=getCurrentSelection()then
+//        if idx=getCurrentSelection()then
-        begin
+//        begin
-            rc := rc_;
+//            rc := rc_;
-            rc[2:3]-= 1;
+//            rc[2:3]-= 1;
-            cvs.pen.Color := rgb(30,144,255);
+//            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]));
+//            cvs.draw("Polyline",array(rc[0:1],(rc[2],rc[1]),(rc[2],rc[3]),(rc[0],rc[3]),rc[0:1]));
-        end
+//        end
-    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

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