From 11c84635ee2a23f09c28f5d199da9c3a2fb75ac8 Mon Sep 17 00:00:00 2001 From: JianjunLiu Date: Mon, 5 Sep 2022 09:05:01 +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 细节优化 --- designer/tslvcldesigner.tsf | 8 ++++---- funcext/tvclib/tcomponent.tsf | 3 ++- funcext/tvclib/utslvclauxiliary.tsf | 3 +-- 3 files changed, 7 insertions(+), 7 deletions(-) diff --git a/designer/tslvcldesigner.tsf b/designer/tslvcldesigner.tsf index e504ccd..9083496 100644 --- a/designer/tslvcldesigner.tsf +++ b/designer/tslvcldesigner.tsf @@ -1623,8 +1623,8 @@ type TVclDesigner = class(tvcform) wnd.OnDesignClick := thisfunction(ClickComponent); wnd.OnDesigndblClick := thisfunction(DBLClickComponent); wnd.OnDesignrClick := thisfunction(RClickComponent); - //wnd.onmove := thisfunction(ComponentMove); - //wnd.onsize := thisfunction(ComponentSize); + wnd.onmove := thisfunction(ComponentMove); + wnd.onsize := thisfunction(ComponentSize); //wnd.Onclose := thisfunction(CompClose); //Ö»ÊǺöÂÔ wnd.Onclose := function(o,e)begin e.skip := true; @@ -7033,10 +7033,10 @@ type TPropGrid = class(TTSLDataGrid) end end } end - function Notification(o,op);override; + function Notification_rename(o,op);override; begin inherited; - if HandleAllocated() and ifarray(op) and (op["type"]="possize") and (FComponent is class(TDComponent)) and (FComponent.Cwnd = o) then + if {HandleAllocated() and} ifarray(op) and (op["type"]="possize") and (FComponent is class(TDComponent)) and (FComponent.Cwnd = o) then begin dt := TSLData; diff --git a/funcext/tvclib/tcomponent.tsf b/funcext/tvclib/tcomponent.tsf index 904e99c..74dca7f 100644 --- a/funcext/tvclib/tcomponent.tsf +++ b/funcext/tvclib/tcomponent.tsf @@ -150,8 +150,9 @@ uses utslvclauxiliary,UVCPropertyTypesPersistence,utslvclbase; end; procedure RemoveNotification(AComponent:TComponent); begin - FFreeNotifies.Remove(AComponent); + r := FFreeNotifies.Remove(AComponent); if FFreeNotifies.count()<1 then includestate(FComponentState,csFreeNotification); + return r; end #!end protected diff --git a/funcext/tvclib/utslvclauxiliary.tsf b/funcext/tvclib/utslvclauxiliary.tsf index a0b1e76..05611b6 100644 --- a/funcext/tvclib/utslvclauxiliary.tsf +++ b/funcext/tvclib/utslvclauxiliary.tsf @@ -376,8 +376,7 @@ type tarray1dlk=class // @explan(˵Ã÷) ɾ³ý %% @param(i)(integer) id %% **} - //len := length(_data)-1; - if i<0 or i >= _len then return-1; + if i<0 or i >= _len then return 0; _len -= 1; r := deleteindex(_data,i,1); dochanged("del");