Procedure

TfrmGraphs.BaseResize

Module

fGraphs

Last Modified

7/15/2014 3:26:36 PM

Visibility

Private

Owner

TfrmGraphs

Declaration

procedure BaseResize(aScrollBox: TScrollBox);

Calls Hierarchy


TfrmGraphs.BaseResize
 └TfrmGraphs.ChartOnZoom
   ├TfrmGraphs.SizeDates
   │ ├TfrmGraphs.GraphFooter
   │ └TfrmGraphs.SeriesForLabels
   └TfrmGraphs.ZoomUpdateInfo
     ├TfrmGraphs.InfoMessage
     └TfrmGraphs.MergedLabsSelected

Called-By Hierarchy


              TfrmGraphs.BaseResize
TfrmGraphs.pnlScrollTopBaseResize┘ 

Calls

Name Declaration Comments
TfrmGraphs.ChartOnZoom procedure ChartOnZoom(Sender: TObject); -

Called-By

Name Declaration Comments
TfrmGraphs.pnlScrollTopBaseResize procedure pnlScrollTopBaseResize(Sender: TObject); -


Source

6178  procedure TfrmGraphs.BaseResize(aScrollBox: TScrollBox);
6179  var
6180    displayheight, displaynum, i: integer;
6181  begin
6182    ChartOnZoom(chartDatelineTop);
6183    with aScrollBox do
6184    begin
6185      if ControlCount < FGraphSetting.MaxGraphs then
6186        displaynum := ControlCount
6187      else
6188        displaynum := FGraphSetting.MaxGraphs;
6189      displayheight := FGraphSetting.MinGraphHeight;
6190      if displaynum > 0 then
6191        if (Height div displaynum) < FGraphSetting.MinGraphHeight then
6192          displayheight := FGraphSetting.MinGraphHeight
6193        else
6194          displayheight := (Height div displaynum);
6195      for i := 0 to aScrollBox.ControlCount - 1 do
6196        Controls[i].height := displayheight;
6197    end;
6198  end;