tsheyongcong/tslediter
0
0
Fork 0
forked from liujianjun/tslediter
Code Issues Pull Requests Projects Releases Wiki Activity

界面库

Browse Source 
细节优化
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
Download Patch File Download Diff File Expand all files Collapse all files
designer/tslvcldesigner.tsf
+4 -4
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;