界面库

整理代码

funcext/tvclib/tcontrol.tsf

@@ -438,9 +438,9 @@ type tcontrol = class(tcomponent)
     begin
         FVisible := Value?true:false;
     end
-    procedure DoOnParentHandleDestruction;virtual;
+    //procedure DoOnParentHandleDestruction;virtual;
-    begin
+    //begin
-    end
+    //end
 
 #!end  
     protected

funcext/tvclib/tcustomcontrol.tsf

@@ -3,6 +3,7 @@ type tcustomcontrol=class(TWinControl)
     {**
     @explan(说明) 自绘制窗口控件 %%
     **}
+    //20220908添加splitter功能
     private
     FOnPaint:TNotifyEvent;
     protected
@@ -128,6 +129,7 @@ type tcustomcontrol=class(TWinControl)
     function WMMouseMove(o,e);override; //移动
     begin
         if fhasspliter<1 then return inherited;
+        if csDesigning in ComponentState then return inherited;
         if fsplitterdraging then
         begin
             cimgst();

funcext/tvclib/tgraphiccontrol.tsf

@@ -48,12 +48,12 @@ type tgraphiccontrol = class(TControl)
         //_wapi.DrawEdge(Canvas.handle,const ClientRect,EDGE_ETCHED,BF_RECT);
         //_wapi.DrawFocusRect(Canvas.Handle,const ClientRect);
     end
-    procedure DoOnChangeBounds();override;
+    //procedure DoOnChangeBounds();override;
-    begin
+    //begin
-    end
+    //end
-    procedure DoOnParentHandleDestruction;override;
+    //procedure DoOnParentHandleDestruction;override;
-    begin
+    //begin
-    end
+    //end
     function InvalidateRectForce();
     begin
         if Parent then

funcext/tvclib/tslvcl.tsf

@@ -2510,6 +2510,9 @@ type tcoolbar = class(tcustomcoolbar)
     end 
 end 
 type tsplitter = class(tcustomsplitter)
+    {**
+    @explan(说明) splitter 控件 %%   
+    **}
     function create(AOwner);
     begin
         inherited;