界面库

设计器

designer/tslvcldesigner.tsf

@@ -1627,8 +1627,8 @@ type TVclDesigner = class(tvcform)
             wnd.OnDesignClick := thisfunction(ClickComponent);
             wnd.OnDesigndblClick := thisfunction(DBLClickComponent);
             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 := function(o,e)begin
                     e.skip := true;
@@ -7037,6 +7037,39 @@ type TPropGrid = class(TTSLDataGrid)
             end 
         end }
     end 
+    function Notification(o,op);override;
+    begin
+        inherited;
+        if HandleAllocated() and ifarray(op) and (op["type"]="possize") and (FComponent is class(TDComponent)) and  (FComponent.Cwnd = o) then 
+        begin            
+            dt := TSLData;
+        
+            flg := op["flag"];
+            if ifarray(dt) then 
+            begin
+                for i,v in mrows(dt,1) do 
+                begin
+                    if (flg .& 1) and v="left" then 
+                    begin
+                        CellChanged(i,1,"value",op["data"][0]);
+                    end 
+                    if (flg .& 2) and v="top" then 
+                    begin
+                        CellChanged(i,1,"value",op["data"][1]);
+                    end 
+                    if (flg .& 4) and v="width" then 
+                    begin
+                        CellChanged(i,1,"value",op["data"][2]);
+                    end 
+                    if (flg .& 8) and v="height" then 
+                    begin
+                        CellChanged(i,1,"value",op["data"][3]);
+                    end 
+                end 
+                return 1;
+            end 
+        end 
+    end 
     function SetGridValue(index,d,o);
     begin
         if (FComponent is class(TDComponent)) and  FComponent.Cwnd = o then 

funcext/tvclib/tcontrol.tsf

@@ -1395,7 +1395,7 @@ type tcontrol = class(tcomponent)
                     obj := class(tUIglobalData).uigetdata("tuiapplication");
                     if obj then 
                     begin
-                        obj.Notification(self(true),array("type":"possize","flag",rchange,"data":array(fleft,ftop,FWidth,FHeight)));
+                        obj.Notification(self(true),array("type":"possize","flag":rchange,"data":array(fleft,ftop,FWidth,FHeight)));
                     end
                     //echo "\r\n note change mtoc:",caption,"===",mtoc; 
                 end