From 2265e8fe3d94e8d3d391871b4fc4e6c920e06c74 Mon Sep 17 00:00:00 2001 From: JianjunLiu Date: Fri, 9 Sep 2022 16:02:34 +0800 Subject: [PATCH] =?UTF-8?q?=E7=95=8C=E9=9D=A2=E5=BA=93?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 整理代码 --- funcext/tvclib/tcontrol.tsf | 6 +++--- funcext/tvclib/tcustomcontrol.tsf | 2 ++ funcext/tvclib/tgraphiccontrol.tsf | 12 ++++++------ funcext/tvclib/tslvcl.tsf | 3 +++ 4 files changed, 14 insertions(+), 9 deletions(-) diff --git a/funcext/tvclib/tcontrol.tsf b/funcext/tvclib/tcontrol.tsf index f3e4929..743af3f 100644 --- a/funcext/tvclib/tcontrol.tsf +++ b/funcext/tvclib/tcontrol.tsf @@ -438,9 +438,9 @@ type tcontrol = class(tcomponent) begin FVisible := Value?true:false; end - procedure DoOnParentHandleDestruction;virtual; - begin - end + //procedure DoOnParentHandleDestruction;virtual; + //begin + //end #!end protected diff --git a/funcext/tvclib/tcustomcontrol.tsf b/funcext/tvclib/tcustomcontrol.tsf index e068267..ca605a2 100644 --- a/funcext/tvclib/tcustomcontrol.tsf +++ b/funcext/tvclib/tcustomcontrol.tsf @@ -3,6 +3,7 @@ type tcustomcontrol=class(TWinControl) {** @explan(˵) Իƴڿؼ %% **} + //20220908splitter 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(); diff --git a/funcext/tvclib/tgraphiccontrol.tsf b/funcext/tvclib/tgraphiccontrol.tsf index e3d7793..59ad0be 100644 --- a/funcext/tvclib/tgraphiccontrol.tsf +++ b/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; - begin - end - procedure DoOnParentHandleDestruction;override; - begin - end + //procedure DoOnChangeBounds();override; + //begin + //end + //procedure DoOnParentHandleDestruction;override; + //begin + //end function InvalidateRectForce(); begin if Parent then diff --git a/funcext/tvclib/tslvcl.tsf b/funcext/tvclib/tslvcl.tsf index 524318f..19e075e 100644 --- a/funcext/tvclib/tslvcl.tsf +++ b/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;