formfilt.pas

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

unit FormFilt;

interface

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

type
  TfrmFilter = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label8: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    chkBitEnable0: TCheckBox;
    chkBitEnable1: TCheckBox;
    chkBitEnable2: TCheckBox;
    chkBitEnable3: TCheckBox;
    chkBitEnable4: TCheckBox;
    chkBitEnable5: TCheckBox;
    chkBitEnable6: TCheckBox;
    chkBitEnable7: TCheckBox;
    txtHiValue7: TEdit;
    txtHiValue6: TEdit;
    txtHiValue5: TEdit;
    txtHiValue4: TEdit;
    txtHiValue3: TEdit;
    txtHiValue2: TEdit;
    txtHiValue1: TEdit;
    txtHiValue0: TEdit;
    txtLoValue7: TEdit;
    txtLoValue6: TEdit;
    txtLoValue5: TEdit;
    txtLoValue4: TEdit;
    txtLoValue3: TEdit;
    txtLoValue2: TEdit;
    txtLoValue1: TEdit;
    txtLoValue0: TEdit;
    btnOK: TBitBtn;
    btnCancel: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure chkBitEnable7Click(Sender: TObject);
    procedure chkBitEnable6Click(Sender: TObject);
    procedure chkBitEnable5Click(Sender: TObject);
    procedure chkBitEnable4Click(Sender: TObject);
    procedure chkBitEnable3Click(Sender: TObject);
    procedure chkBitEnable2Click(Sender: TObject);
    procedure chkBitEnable1Click(Sender: TObject);
    procedure chkBitEnable0Click(Sender: TObject);
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure txtHiValue7Change(Sender: TObject);
    procedure txtHiValue6Change(Sender: TObject);
    procedure txtHiValue5Change(Sender: TObject);
    procedure txtHiValue4Change(Sender: TObject);
    procedure txtHiValue3Change(Sender: TObject);
    procedure txtHiValue2Change(Sender: TObject);
    procedure txtHiValue1Change(Sender: TObject);
    procedure txtHiValue0Change(Sender: TObject);
    procedure txtLoValue7Change(Sender: TObject);
    procedure txtLoValue6Change(Sender: TObject);
    procedure txtLoValue5Change(Sender: TObject);
    procedure txtLoValue4Change(Sender: TObject);
    procedure txtLoValue3Change(Sender: TObject);
    procedure txtLoValue2Change(Sender: TObject);
    procedure txtLoValue1Change(Sender: TObject);
    procedure txtLoValue0Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    HiValue: array[0..7] of Smallint;
    LoValue: array[0..7] of Smallint;
    EnableMask: Integer;
    bCancel: boolean;
  end;

var
  frmFilter: TfrmFilter;

implementation

{$R *.DFM}


procedure TfrmFilter.FormCreate(Sender: TObject);
begin
	bCancel := false;
end;

procedure TfrmFilter.chkBitEnable7Click(Sender: TObject);
begin
	If (chkBitEnable7.Checked = true) then
	  Begin
   	EnableMask := EnableMask or $80;
   	txtHiValue7.Enabled := true;
   	txtLoValue7.Enabled := true;
     End
   Else
	  Begin
   	EnableMask := EnableMask and $7F;
   	txtHiValue7.Enabled := false;
   	txtLoValue7.Enabled := false;
	  End
end;

procedure TfrmFilter.chkBitEnable6Click(Sender: TObject);
begin
	If (chkBitEnable6.Checked = true) then
	  Begin
   	EnableMask := EnableMask or $40;
   	txtHiValue6.Enabled := true;
   	txtLoValue6.Enabled := true;
	  End
   Else
	  Begin
   	EnableMask := EnableMask and $BF;
   	txtHiValue6.Enabled := false;
   	txtLoValue6.Enabled := false;
	  End
end;

procedure TfrmFilter.chkBitEnable5Click(Sender: TObject);
begin
	If (chkBitEnable5.Checked = true) then
	  Begin
   	EnableMask := EnableMask or $20;
   	txtHiValue5.Enabled := true;
   	txtLoValue5.Enabled := true;
	  End
   Else
	  Begin
   	EnableMask := EnableMask and $DF;
   	txtHiValue5.Enabled := false;
   	txtLoValue5.Enabled := false;
	  End
end;

procedure TfrmFilter.chkBitEnable4Click(Sender: TObject);
begin
	If (chkBitEnable4.Checked = true) then
	  Begin
   	EnableMask := EnableMask or $10;
   	txtHiValue4.Enabled := true;
   	txtLoValue4.Enabled := true;
	  End
   Else
	  Begin
   	EnableMask := EnableMask and $EF;
   	txtHiValue4.Enabled := false;
   	txtLoValue4.Enabled := false;
	  End
end;

procedure TfrmFilter.chkBitEnable3Click(Sender: TObject);
begin
	If (chkBitEnable3.Checked = true) then
	  Begin
   	EnableMask := EnableMask or $08;
   	txtHiValue3.Enabled := true;
   	txtLoValue3.Enabled := true;
	  End
   Else
	  Begin
   	EnableMask := EnableMask and $F7;
   	txtHiValue3.Enabled := false;
   	txtLoValue3.Enabled := false;
	  End
end;

procedure TfrmFilter.chkBitEnable2Click(Sender: TObject);
begin
	If (chkBitEnable2.Checked = true) then
	  Begin
   	EnableMask := EnableMask or $04;
   	txtHiValue2.Enabled := true;
   	txtLoValue2.Enabled := true;
	  End
   Else
	  Begin
   	EnableMask := EnableMask and $FB;
   	txtHiValue2.Enabled := false;
   	txtLoValue2.Enabled := false;
	  End
end;

procedure TfrmFilter.chkBitEnable1Click(Sender: TObject);
begin
	If (chkBitEnable1.Checked = true) then
	  Begin
   	EnableMask := EnableMask or $02;
   	txtHiValue1.Enabled := true;
   	txtLoValue1.Enabled := true;
	  End
   Else
	  Begin
   	EnableMask := EnableMask and $FD;
   	txtHiValue1.Enabled := false;
   	txtLoValue1.Enabled := false;
	  End
end;

procedure TfrmFilter.chkBitEnable0Click(Sender: TObject);
begin
	If (chkBitEnable0.Checked = true) then
	  Begin
   	EnableMask := EnableMask or $01;
   	txtHiValue0.Enabled := true;
   	txtLoValue0.Enabled := true;
	  End
   Else
	  Begin
   	EnableMask := EnableMask and $FE;
   	txtHiValue0.Enabled := false;
   	txtLoValue0.Enabled := false;
	  End
end;

procedure TfrmFilter.btnOKClick(Sender: TObject);
begin
	bCancel := false;
   Hide;
end;

procedure TfrmFilter.btnCancelClick(Sender: TObject);
begin
	bCancel := true;
   Hide;
end;

procedure TfrmFilter.txtHiValue7Change(Sender: TObject);
begin
	HiValue[7] := StrToInt(txtHiValue7.Text);
end;

procedure TfrmFilter.txtHiValue6Change(Sender: TObject);
begin
	HiValue[6] := StrToInt(txtHiValue6.Text);
end;

procedure TfrmFilter.txtHiValue5Change(Sender: TObject);
begin
	HiValue[5] := StrToInt(txtHiValue5.Text);
end;

procedure TfrmFilter.txtHiValue4Change(Sender: TObject);
begin
	HiValue[4] := StrToInt(txtHiValue4.Text);
end;

procedure TfrmFilter.txtHiValue3Change(Sender: TObject);
begin
	HiValue[3] := StrToInt(txtHiValue3.Text);
end;

procedure TfrmFilter.txtHiValue2Change(Sender: TObject);
begin
	HiValue[2] := StrToInt(txtHiValue2.Text);
end;

procedure TfrmFilter.txtHiValue1Change(Sender: TObject);
begin
	HiValue[1] := StrToInt(txtHiValue1.Text);
end;

procedure TfrmFilter.txtHiValue0Change(Sender: TObject);
begin
	HiValue[0] := StrToInt(txtHiValue0.Text);
end;

procedure TfrmFilter.txtLoValue7Change(Sender: TObject);
begin
	LoValue[7] := StrToInt(txtLoValue7.Text);
end;

procedure TfrmFilter.txtLoValue6Change(Sender: TObject);
begin
	LoValue[6] := StrToInt(txtLoValue6.Text);
end;

procedure TfrmFilter.txtLoValue5Change(Sender: TObject);
begin
	LoValue[5] := StrToInt(txtLoValue5.Text);
end;

procedure TfrmFilter.txtLoValue4Change(Sender: TObject);
begin
	LoValue[4] := StrToInt(txtLoValue4.Text);
end;

procedure TfrmFilter.txtLoValue3Change(Sender: TObject);
begin
	LoValue[3] := StrToInt(txtLoValue3.Text);
end;

procedure TfrmFilter.txtLoValue2Change(Sender: TObject);
begin
	LoValue[2] := StrToInt(txtLoValue2.Text);
end;

procedure TfrmFilter.txtLoValue1Change(Sender: TObject);
begin
	LoValue[1] := StrToInt(txtLoValue1.Text);
end;

procedure TfrmFilter.txtLoValue0Change(Sender: TObject);
begin
	LoValue[0] := StrToInt(txtLoValue0.Text);
end;

end.