界面库

修正问题
2023-06-30 10:36:22 +08:00
parent 85d2f31e8d
commit b64606ef50
4 changed files with 59 additions and 55 deletions
@@ -1394,7 +1394,9 @@ type TImageListWindow = class(TDVirutalWindow)
    function Create(AOwner);override;
    begin
        inherited;
-        WindowFileds := array("left","top","height","width"); 
+        width := 30;
+        height := 30;
+        WindowFileds := array("left","top"); 
        BindComp := new TControlImageList(self);;
    end 
    function bitmapinfo();override;