unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,ComObj, OleCtnrs, ExtCtrls, Spin, ActnList, Buttons;

type
  TForm1 = class(TForm)
    btOff: TButton;
    eResult: TEdit;
    Label3: TLabel;
    Panel3: TPanel;
    Panel4: TPanel;
    Label6: TLabel;
    Label9: TLabel;
    cbSM_Speed: TComboBox;
    Panel5: TPanel;
    bbBegStrCursor: TButton;
    bbEndStrCursor: TButton;
    bbEndScreenCursor: TButton;
    Label10: TLabel;
    cbSetCursor: TCheckBox;
    seCursorPos: TSpinEdit;
    Label11: TLabel;
    btCheck: TButton;
    btShowProp: TButton;
    bbGoCursor: TBitBtn;
    bbLeftCursor: TBitBtn;
    bbRightCursor: TBitBtn;
    bbChangeCursor: TBitBtn;
    bbUpCursor: TBitBtn;
    bbDownCursor: TBitBtn;
    btSM_SetBaudRate: TButton;
    cbSM_Protocol: TComboBox;
    btSM_SetProtocol: TButton;
    Label1: TLabel;
    cbSM_CodePage: TComboBox;
    Label7: TLabel;
    btSM_SetCodeSymbols: TButton;
    btSM_Set20: TButton;
    btSM_Set22: TButton;
    Label8: TLabel;
    Panel6: TPanel;
    Label16: TLabel;
    btInitDispl: TButton;
    btClear: TButton;
    btClearCursorLine: TButton;
    btSelfTest: TButton;
    btSelfRunStr: TButton;
    btPrintStr: TButton;
    Label4: TLabel;
    sePosStr: TSpinEdit;
    Label2: TLabel;
    edString: TEdit;
    Panel7: TPanel;
    Label14: TLabel;
    Label15: TLabel;
    seLabPos: TSpinEdit;
    bbLabOff: TBitBtn;
    bbLabOn: TBitBtn;
    bbLabOffAll: TBitBtn;
    rgBrightness: TRadioGroup;
    Label5: TLabel;
    seBlinkInterval: TSpinEdit;
    btSetBlincInterval: TButton;
    seRunStrPos: TSpinEdit;
    Label12: TLabel;
    Label17: TLabel;
    seRunStrCicleCount: TSpinEdit;
    Label31: TLabel;
    Label32: TLabel;
    seRunStrRefreshDelay: TSpinEdit;
    Label33: TLabel;
    seRunStrPlayDelay: TSpinEdit;
    Label34: TLabel;
    seRunStrSpacesCount: TSpinEdit;
    btRunStrStart: TButton;
    btRunStrStop: TButton;
    btClose: TButton;
    btOn: TButton;
    Label35: TLabel;
    seStopSymsTime: TSpinEdit;
    bbStartScreenCursor: TButton;
    procedure btOffClick(Sender: TObject);
    procedure btClearClick(Sender: TObject);
    procedure btSetBlincIntervalClick(Sender: TObject);
    procedure btPrintStrClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cbSetCursorClick(Sender: TObject);
    procedure bbLeftCursorClick(Sender: TObject);
    procedure bbChangeCursorClick(Sender: TObject);
    procedure bbRightCursorClick(Sender: TObject);
    procedure bbBegStrCursorClick(Sender: TObject);
    procedure bbEndStrCursorClick(Sender: TObject);
    procedure bbEndScreenCursorClick(Sender: TObject);
    procedure btInitDisplClick(Sender: TObject);
    procedure bbLabOffAllClick(Sender: TObject);
    procedure bbLabOffClick(Sender: TObject);
    procedure bbLabOnClick(Sender: TObject);
    procedure bbGoCursorClick(Sender: TObject);
    procedure rgBrightnessClick(Sender: TObject);
    procedure btSelfTestClick(Sender: TObject);
    procedure btCheckClick(Sender: TObject);
    procedure btSelfRunStrClick(Sender: TObject);
    procedure btShowPropClick(Sender: TObject);
    procedure btClearCursorLineClick(Sender: TObject);
    procedure bbUpCursorClick(Sender: TObject);
    procedure bbDownCursorClick(Sender: TObject);
    procedure btOnClick(Sender: TObject);
    procedure btRunStrStartClick(Sender: TObject);
    procedure btRunStrStopClick(Sender: TObject);
    procedure btCloseClick(Sender: TObject);
    procedure bbStartScreenCursorClick(Sender: TObject);
    procedure btSM_SetBaudRateClick(Sender: TObject);
    procedure btSM_SetProtocolClick(Sender: TObject);
    procedure btSM_SetCodeSymbolsClick(Sender: TObject);
    procedure btSM_Set20Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Displ : OleVariant;
implementation

{$R *.DFM}

procedure TForm1.btOffClick(Sender: TObject);
begin
Displ.Enable:=0;
btOff.Enabled:=false;
btOn.Enabled:=true;
end;

procedure TForm1.btClearClick(Sender: TObject);
begin
Displ.ClearDispl;
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.btSetBlincIntervalClick(Sender: TObject);
begin
Displ.BlincInterval:=seBlinkInterval.Value ;
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.btPrintStrClick(Sender: TObject);
begin
Displ.EnterStr(sePosStr.Value, edString.Text);
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 try
 Displ:=CreateOleObject('DrvDspl.v1_2');
 except
 ShowMessage('Ошибка при обращении к объекту DrvDspl.v1_2.');
 Exit;
 end;
btOn.Enabled:=  not (Displ.Enable=1);
btOff.Enabled:= not (btOn.Enabled);
cbSM_Speed.ItemIndex :=0;
cbSM_Protocol.ItemIndex:=0;
cbSM_CodePage.ItemIndex:=0;
end;

procedure TForm1.cbSetCursorClick(Sender: TObject);
begin
 if cbSetCursor.Checked then Displ.Cursor:=1 else Displ.Cursor:=0;
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.bbLeftCursorClick(Sender: TObject);
begin
Displ.CursorLeft;
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.bbChangeCursorClick(Sender: TObject);
begin
Displ.CursorDownUp;
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.bbRightCursorClick(Sender: TObject);
begin
Displ.CursorRight;
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.bbBegStrCursorClick(Sender: TObject);
begin
Displ.CursorInBeg;
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.bbEndStrCursorClick(Sender: TObject);
begin
Displ.CursorInEndStr ;
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.bbEndScreenCursorClick(Sender: TObject);
begin
Displ.CursorInEndText;
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.btInitDisplClick(Sender: TObject);
begin
Displ.InitialDispl;
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.bbLabOffAllClick(Sender: TObject);
begin
Displ.ClearAllAnnun;
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.bbLabOffClick(Sender: TObject);
begin
Displ.SetGetAnnun(0,seLabPos.Value);
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.bbLabOnClick(Sender: TObject);
begin
Displ.SetGetAnnun(1,seLabPos.Value);
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.bbGoCursorClick(Sender: TObject);
begin
Displ.CursorGoTo(seCursorPos.Value);
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.rgBrightnessClick(Sender: TObject);
begin
Displ.Brightness:=rgBrightness.ItemIndex+1;
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.btSelfTestClick(Sender: TObject);
begin
Displ.SelfTest;
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.btCheckClick(Sender: TObject);
begin
Displ.Test;
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.btSelfRunStrClick(Sender: TObject);
begin
Displ.VFDRunStr(edString.Text);
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.btShowPropClick(Sender: TObject);
begin
Displ.ShowVisual;
btOn.Enabled:=  not (Displ.Enable=1);
btOff.Enabled:= not (btOn.Enabled);
end;

procedure TForm1.btClearCursorLineClick(Sender: TObject);
begin
Displ.ClearCursorLine;
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.bbUpCursorClick(Sender: TObject);
begin
Displ.CursorUp;
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.bbDownCursorClick(Sender: TObject);
begin
Displ.CursorDown;
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.btOnClick(Sender: TObject);
begin
Displ.Enable:=1;
eResult.Text:=Displ.ResultCodeDescriptor;
btOn.Enabled:=  not (Displ.Enable=1);
btOff.Enabled:= not (btOn.Enabled);
end;

procedure TForm1.btRunStrStartClick(Sender: TObject);
begin
Displ.StopSmb:=seStopSymsTime.Value;
 if Displ.ResultCode=0 then Displ.FRunStr(edString.Text, seRunStrPos.Value ,
  seRunStrRefreshDelay.Value, seRunStrCicleCount.Value, seRunStrPlayDelay.Value,seRunStrSpacesCount.Value);
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.btRunStrStopClick(Sender: TObject);
begin
Displ.FStopStr(seRunStrPos.Value);
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.btCloseClick(Sender: TObject);
begin
Close;
end;

procedure TForm1.bbStartScreenCursorClick(Sender: TObject);
begin
Displ.CursorInStartText;
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.btSM_SetBaudRateClick(Sender: TObject);
begin
 if cbSM_Speed.ItemIndex>0 then
 begin
 Displ.SMSetBaudRate(cbSM_Speed.ItemIndex)  ;
 eResult.Text:=Displ.ResultCodeDescriptor;
 end else ShowMessage('Не указано значение');
end;

procedure TForm1.btSM_SetProtocolClick(Sender: TObject);
begin
Displ.SMChangeProtocol(cbSM_Protocol.ItemIndex);
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.btSM_SetCodeSymbolsClick(Sender: TObject);
begin
Displ.SMSetCodeSymbolInDispl(cbSM_CodePage.ItemIndex);
eResult.Text:=Displ.ResultCodeDescriptor;
end;

procedure TForm1.btSM_Set20Click(Sender: TObject);
begin
 if Sender=btSM_Set22 then Displ.SMSetScreenSizeMode(1) else Displ.SMSetScreenSizeMode(0);
eResult.Text:=Displ.ResultCodeDescriptor;
end;

end.