界面库

popupmenu 以及coolbar
2022-08-30 01:34:14 +08:00
parent fad69fa5e4
commit 8f64b3363f
7 changed files with 63 additions and 29 deletions
@@ -1685,11 +1685,12 @@ type TVclDesigner = class(tvcform)
                    v[0].SetComponentProperties(v[1],va.GetTrueComponent());
                end 
            end 
+            
        except 
        end ;
        FTree.Loading := nil;
    end 
-    function loadtfmtotree(p,d,node,owner,prs,obarray);
+    function loadtfmtotree(p,d,node,wr,prs,obarray);
    begin
    {**
        @explan(说明) 导入tfm文件 %%
@@ -1712,7 +1713,7 @@ type TVclDesigner = class(tvcform)
            it.Imgs := FImageList.GetImageId("tdcreateform");
            FLoadInheritedName := array();
        end 
-        comp := it.ComponentCreater(node,owner);
+        comp := it.ComponentCreater(node,wr);
        comp.name := d["name"];
        obarray[d["name"]] := comp;
        FVariableSelecter.additem(comp);