{---------------------------------------------------------------------------
The control program for mass-spectrometer MI1201-AGM
(c) Copyright	 Aleksandrov O.E., 2001

   Molecular Physics department, USTU, Ekaterinsburg, K-2, 620002, RUSSIA
   phone 75-47-15
   E-mail: aleks@dpt.ustu.ru

Программа управления масс-спектрометром МИ1201-АГМ
(c) Собственность     Александрова О.Е., 2001

   620002, Екатеринбург, К-2, УГТУ, Кафедра молекулярной физики
   тел. 75-47-15
   E-mail: aleks@dpt.ustu.ru
----------------------------------------------------------------------------}
unit MCAD_MI1201_StatisticInfo;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TFormStatisticInfo = class(TForm)
    LabelPointsNumberTitle: TLabel;
    LabelPointsNumber: TLabel;
    GroupBoxPoint: TGroupBox;
    LabelMin: TLabel;
    LabelMax: TLabel;
    LabelAverage: TLabel;
    LabelMinT: TLabel;
    LabelAverageT: TLabel;
    LabelMaxT: TLabel;
    CheckBoxOnTop: TCheckBox;
    LabelMeasure: TLabel;
    LabelN: TLabel;
    GroupBoxCicle: TGroupBox;
    LabelCMin: TLabel;
    LabelCMax: TLabel;
    LabelCAverage: TLabel;
    LabelCMinT: TLabel;
    LabelCAverageT: TLabel;
    LabelCMaxT: TLabel;
    LabelC: TLabel;
    LabelCN: TLabel;
    LabelCLast: TLabel;
    LabelCLastT: TLabel;
    LabelLast: TLabel;
    LabelLastT: TLabel;
    GroupBoxIdle: TGroupBox;
    LabelIMin: TLabel;
    LabelIMax: TLabel;
    LabelIAverage: TLabel;
    LabelIMinT: TLabel;
    LabelIAverageT: TLabel;
    LabelIMaxT: TLabel;
    LabelII: TLabel;
    LabelIN: TLabel;
    LabelILast: TLabel;
    LabelILastT: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CheckBoxOnTopClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormStatisticInfo: TFormStatisticInfo;

implementation

{$R *.DFM}

procedure TFormStatisticInfo.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caHide;
end;

procedure TFormStatisticInfo.CheckBoxOnTopClick(Sender: TObject);
begin
  if CheckBoxOnTop.Checked then
    FormStyle:=fsStayOnTop
  else
    FormStyle:=fsNormal;
end;

procedure TFormStatisticInfo.FormDestroy(Sender: TObject);
begin
  if Self=FormStatisticInfo then FormStatisticInfo:=NIL;
end;

end.