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.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;

3
funcext/tvclib/tcomponent.tsf
View File

@ -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

3
funcext/tvclib/utslvclauxiliary.tsf
View File

@ -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");