界面库

优化gtk滚动条优化gtk滚动条

designer/tslvcldesigner.tsf

@@ -14,6 +14,7 @@ type TVclDesigner = class(tvcform)
     @explan(说明) 控件设计器 对象 %%
 **}
     private
+    Foh ;
     fcwindowinfo;  //当前窗口文件对象
     fwindowinfos; //窗口文件节点存储对象
     fcutcopyinfo;//复制的信息 
@@ -384,9 +385,52 @@ type TVclDesigner = class(tvcform)
             FProjectsManager.CreateTpjFomFile(f);
         end 
     end 
+    
+    function WMSYSCOMMAND(o,e);override;
+    begin        
+        case e.wparam of 
+            SC_MAXIMIZE:
+            begin
+                Foh := o.height;
+                _send_(WM_USER,123,123,1);
+                return ;
+            end
+            SC_MINIMIZE:
+            begin
+                e.skip := true;
+                return ;
+            end 
+            SC_DEFAULT:
+            begin
+            end 
+            SC_ZOOM:
+            begin
+            end 
+            SC_MOUSEMENU:
+            begin
+            end 
+            SC_RESTORE:
+            begin
+            end 
+        end;
+        
+        return ;
+        return inherited;
+    end 
     function db(o,e): WM_NCLBUTTONDBLCLK;virtual;//最大化处理
     begin
-        e.skip := true;
+        //e.skip := true;
+        Foh := o.height;
+        _send_(WM_USER,123,123,1);
+    end 
+    function WMUSER(o,e):WM_USER;override;
+    begin
+        if e.wparam = 123 and e.lparam=123 then 
+        begin
+            if o.height>Foh then 
+                o.height := Foh;
+            
+        end 
     end 
     function openclassfile(); //打开编辑器
     begin

designer/udesignerproject.tsf

@@ -1714,6 +1714,38 @@ BD141CA912494F502D48D224F45050274A21E03806FF2C7CA7516022D7D000000
         end  
         _send_(WM_SETICON,1,FIco.handle,1);   
     end 
+    {Foh ;
+    function WMSYSCOMMAND(o,e);override;
+    begin        
+        if e.wparam=SC_MAXIMIZE then 
+        begin
+            Foh := o.height;
+            _send_(WM_USER,123,123,1);
+            return ;
+        end else
+        if e.wparam=SC_RESTORE then 
+        begin
+        end 
+        return inherited;
+    end 
+    function db(o,e): WM_NCLBUTTONDBLCLK;virtual;//最大化处理
+    begin
+        Foh := o.height;
+        _send_(WM_USER,123,123,1);
+    end 
+    function WMUSER(o,e):WM_USER;override;
+    begin
+        if e.wparam = 123 and e.lparam=123 then 
+        begin
+            if o.height>foh then 
+            begin
+                h := o.height;
+                w := o.width;
+                l :=left;
+                o.SetBoundsRect(array(l,140,w+l,h));
+            end 
+        end 
+    end }
     function Create(AOwner);override;
     begin
         inherited;