Unit6.pas

unit Unit6;

interface

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

type
  TForm6 = class(TForm)
    Button3: TButton;
    Button4: TButton;
    CheckBox1: TCheckBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    procedure CheckBox1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure onShow(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure onKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure onKeyPress(Sender: TObject; var Key: Char);
    procedure EditChange(Sender: TObject);
    procedure toggleMode;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;
  DisUpd: boolean;

implementation

{$R *.dfm}

procedure TForm6.toggleMode;
begin
    if (Form6.CheckBox1.Checked) then
        begin
            Form6.Label1.Font.Color := clInactiveCaption;
            Form6.Edit1.Color := clInactiveBorder;
            Form6.Edit1.Enabled := false;
            Form6.Edit2.Color := clInactiveBorder;
            Form6.Edit2.Enabled := false;
        end
    else
        begin
            Form6.Label1.Font.Color := clWindowText;
            Form6.Edit1.Color := clWindow;
            Form6.Edit1.Enabled := true;
            Form6.Edit2.Color := clWindow;
            Form6.Edit2.Enabled := true;
        end;
end;

procedure TForm6.CheckBox1Click(Sender: TObject);
begin
    toggleMode;
end;

procedure TForm6.Button3Click(Sender: TObject);
var i: integer;
    nums: string;
    emrk: BArr;
begin
    if (not CheckBox1.Checked) and ((Length(Edit1.Text) < 5) or (Length(Edit2.Text) < 5)) then
        begin
            MessageDlg('Enter 10 digits of markant!', mtError, [mbOK], 0);
            ModalResult := mrNone;
            exit;
        end;
     randmrk := CheckBox1.Checked;

     if (not randmrk) then
        begin
            SetLength(mrk, 5);
            nums := Edit1.Text + Edit2.Text;
            //writeln(nums);
            for i:=0 to 4 do mrk[i] := ((ord(nums[i*2+1])-48)*10) + (ord(nums[i*2+2])-48);

            SetLength(emrk, 5);
            for i := 0 to 5 do emrk[i] := mrk[i] xor ord(DKL[i*4]);

            reg.WriteBinaryData('MRK', emrk[0], 5);
        end
     else if reg.ValueExists('MRK') then reg.DeleteValue('MRK');
end;

procedure TForm6.onShow(Sender: TObject);
var mrkt: string;
    i: integer;
begin
    DisUpd := true;
    toggleMode;
    if CheckBox1.Checked then begin Edit1.Text := ''; Edit2.Text := ''; end
    else
        begin
           for i:= 0 to 4 do mrkt := mrkt + Format('%.2d', [mrk[i]]);
        end;

    Edit1.Text := Copy(mrkt, 1, 5);
    Edit2.Text := Copy(mrkt, 6, 5);
    DisUpd := false;
end;

procedure TForm6.Button4Click(Sender: TObject);
begin
    CheckBox1.Checked := randmrk;
end;

procedure TForm6.onKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var Sndr: TEdit;
begin
  //DisUpd := true;
  //writeln('derived - ', ord(Key));
  Sndr := Sender as TEdit;
  if (Key = VK_DELETE) and (Sndr.Name = 'Edit1') and (Sndr.SelStart = 5) then
      Edit2.Text := Copy(Edit2.Text, 2, 5)
  else if ((Key = VK_RIGHT) or (Key = VK_DOWN)) and (Sndr.Name = 'Edit1') and (Sndr.SelStart = 5) then
      begin
          Edit2.SetFocus;
          Edit2.SelStart := 0;
      end
  else if ((Key = VK_LEFT) or (Key = VK_UP)) and (Sndr.Name = 'Edit2') and (Sndr.SelStart = 0) then
      begin
          Edit1.SetFocus;
          Edit1.SelStart := 5;
      end;
  //DisUpd := false;
end;

procedure TForm6.onKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = ^A then
  begin
    (Sender as TEdit).SelectAll;
    Key := #0;
  end
end;

procedure TForm6.EditChange(Sender: TObject);
var Ttext: string;
    i, Curs: integer;
    Cured: TEdit;
    Code: byte;
begin
    if not DisUpd then
        begin
            DisUpd := true;
            Cured := Sender as TEdit;
            Ttext := Edit1.Text+Edit2.Text;
            //writeln(ttext);

            if (Cured.Name = 'Edit1') then Curs := Edit1.SelStart else Curs := Edit2.SelStart+5;
            //writeln(curs);

            i:=1;
            while I <= Length(Ttext) do
                begin
                    Code := Ord(Ttext[i]);
                    if not (((Code >= 48) and (Code <= 57))) then
                        begin
                            Ttext := StringReplace(Ttext, Ttext[i], '', []);
                            Curs := Curs - 1;
                            I := I - 1;
                        end;
                    I := I + 1;
                end;

            if Curs > Length(Ttext) then Curs := Length(Ttext);

            Edit1.Text := Copy(Ttext, 1, 5);
            //writeln(Copy(Ttext, 1, 5));
            Edit2.Text := Copy(Ttext, 6, 5);
            //writeln(Copy(Ttext, 6, 5));
            //writeln('end');
            if (Curs < 6) then begin Edit1.SetFocus; Edit1.SelStart := Curs; end
            else if (Curs = 10) then Button3.SetFocus
            else begin Edit2.SetFocus; Edit2.SelStart := Curs-5; end;
            DisUpd := false;
        end;
end;

end.