liujianjun
/
tslediter
3
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

界面库 

细节优化
This commit is contained in:
JianjunLiu 2022-09-05 09:05:01 +08:00
parent 9509c2b1a6
commit 11c84635ee
3 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
designer/tslvcldesigner.tsf
View File

@ -1623,8 +1623,8 @@ type TVclDesigner = class(tvcform)
wnd.OnDesignClick := thisfunction(ClickComponent); wnd.OnDesignClick := thisfunction(ClickComponent);
wnd.OnDesigndblClick := thisfunction(DBLClickComponent); wnd.OnDesigndblClick := thisfunction(DBLClickComponent);
wnd.OnDesignrClick := thisfunction(RClickComponent); wnd.OnDesignrClick := thisfunction(RClickComponent);
//wnd.onmove := thisfunction(ComponentMove); wnd.onmove := thisfunction(ComponentMove);
//wnd.onsize := thisfunction(ComponentSize); wnd.onsize := thisfunction(ComponentSize);
//wnd.Onclose := thisfunction(CompClose); //Ö»ÊǺöÂÔ //wnd.Onclose := thisfunction(CompClose); //Ö»ÊǺöÂÔ
wnd.Onclose := function(o,e)begin wnd.Onclose := function(o,e)begin
e.skip := true; e.skip := true;
@ -7033,10 +7033,10 @@ type TPropGrid = class(TTSLDataGrid)
end end
end } end }
end end
function Notification(o,op);override; function Notification_rename(o,op);override;
begin begin
inherited; 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 begin
dt := TSLData; dt := TSLData;

3
funcext/tvclib/tcomponent.tsf
View File

@ -150,8 +150,9 @@ uses utslvclauxiliary,UVCPropertyTypesPersistence,utslvclbase;
end; end;
procedure RemoveNotification(AComponent:TComponent); procedure RemoveNotification(AComponent:TComponent);
begin begin
FFreeNotifies.Remove(AComponent); r := FFreeNotifies.Remove(AComponent);
if FFreeNotifies.count()<1 then includestate(FComponentState,csFreeNotification); if FFreeNotifies.count()<1 then includestate(FComponentState,csFreeNotification);
return r;
end end
#!end #!end
protected protected

3
funcext/tvclib/utslvclauxiliary.tsf
View File

@ -376,8 +376,7 @@ type tarray1dlk=class //
@explan(˵Ã÷) ɾ³ý %% @explan(˵Ã÷) ɾ³ý %%
@param(i)(integer) id %% @param(i)(integer) id %%
**} **}
//len := length(_data)-1; if i<0 or i >= _len then return 0;
if i<0 or i >= _len then return-1;
_len -= 1; _len -= 1;
r := deleteindex(_data,i,1); r := deleteindex(_data,i,1);
dochanged("del"); dochanged("del");