|
@@ -94,6 +94,7 @@ type
|
|
constructor Load(var S: TStream);
|
|
constructor Load(var S: TStream);
|
|
procedure Store(var S: TStream);
|
|
procedure Store(var S: TStream);
|
|
procedure HandleEvent(var Event:TEvent); virtual;
|
|
procedure HandleEvent(var Event:TEvent); virtual;
|
|
|
|
+ procedure SizeLimits (Var Min, Max: TPoint); Virtual;
|
|
end;
|
|
end;
|
|
|
|
|
|
{---------------------------------------------------------------------------}
|
|
{---------------------------------------------------------------------------}
|
|
@@ -321,6 +322,14 @@ begin
|
|
end
|
|
end
|
|
else inherited HandleEvent(Event);
|
|
else inherited HandleEvent(Event);
|
|
end;
|
|
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 }
|
|
{ Registration procedure }
|
|
{---------------------------------------------------------------------------}
|
|
{---------------------------------------------------------------------------}
|