浏览代码

Do not allow resize Ascii Table window.

Margers 1 月之前
父节点
当前提交
0099cab2de
共有 1 个文件被更改,包括 9 次插入0 次删除
  1. 9 0
      packages/fv/src/asciitab.pas

+ 9 - 0
packages/fv/src/asciitab.pas

@@ -94,6 +94,7 @@ type
     constructor Load(var S: TStream);
     procedure   Store(var S: TStream);
     procedure HandleEvent(var Event:TEvent); virtual;
+    procedure SizeLimits (Var Min, Max: TPoint); Virtual;
   end;
 
 {---------------------------------------------------------------------------}
@@ -321,6 +322,14 @@ begin
     end
   else inherited HandleEvent(Event);
 end;
+
+procedure TASCIIChart.SizeLimits (Var Min, Max: TPoint);
+begin
+  Min.X:=34;
+  Min.Y:=12;
+  Max:=Min;  { make sure no resize can take place }
+end;
+
 {---------------------------------------------------------------------------}
 { Registration procedure                                                    }
 {---------------------------------------------------------------------------}