gainlist.pas

16 relay output channels and 16 isolated digital input channels LED indicators to show activated

unit GainList;

interface

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

type
  TfrmGainList = class(TForm)
    grpChl0: TGroupBox;
    cmbGain0: TComboBox;
    grpChl1: TGroupBox;
    cmbGain1: TComboBox;
    grpChl2: TGroupBox;
    cmbGain2: TComboBox;
    grpChl3: TGroupBox;
    cmbGain3: TComboBox;
    grpChl4: TGroupBox;
    cmbGain4: TComboBox;
    grpChl5: TGroupBox;
    cmbGain5: TComboBox;
    grpChl6: TGroupBox;
    cmbGain6: TComboBox;
    grpChl7: TGroupBox;
    cmbGain7: TComboBox;
    grpChl8: TGroupBox;
    cmbGain8: TComboBox;
    grpChl9: TGroupBox;
    cmbGain9: TComboBox;
    grpChl10: TGroupBox;
    cmbGain10: TComboBox;
    grpChl11: TGroupBox;
    cmbGain11: TComboBox;
    grpChl12: TGroupBox;
    cmbGain12: TComboBox;
    grpChl13: TGroupBox;
    cmbGain13: TComboBox;
    grpChl14: TGroupBox;
    cmbGain14: TComboBox;
    grpChl15: TGroupBox;
    cmbGain15: TComboBox;
    butCancel: TButton;
    butOk: TButton;
    procedure butCancelClick(Sender: TObject);
    procedure butOkClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    cmbGain    : array [0..15] of ^TComboBox;
  end;

var
  frmGainList: TfrmGainList;

implementation

uses Init;

{$R *.DFM}

procedure TfrmGainList.butCancelClick(Sender: TObject);
begin
    close;
end;

procedure TfrmGainList.butOkClick(Sender: TObject);
var
    i : Smallint;
begin
    for i:= 0 to 15 do
        frmInit.iGainIndex[i] := cmbGain[i]^.itemIndex;

    close;
end;

procedure TfrmGainList.FormCreate(Sender: TObject);
begin
    {Setting the Gain control list}
    cmbGain[0]  := @cmbGain0;
    cmbGain[1]  := @cmbGain1;
    cmbGain[2]  := @cmbGain2;
    cmbGain[3]  := @cmbGain3;
    cmbGain[4]  := @cmbGain4;
    cmbGain[5]  := @cmbGain5;
    cmbGain[6]  := @cmbGain6;
    cmbGain[7]  := @cmbGain7;
    cmbGain[8]  := @cmbGain8;
    cmbGain[9]  := @cmbGain9;
    cmbGain[10] := @cmbGain10;
    cmbGain[11] := @cmbGain11;
    cmbGain[12] := @cmbGain12;
    cmbGain[13] := @cmbGain13;
    cmbGain[14] := @cmbGain14;
    cmbGain[15] := @cmbGain15;
end;

end.