testver.pas

合成实验的上位机程序

unit TestVer;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg, Buttons, XPMenu, StdCtrls,
  dxCore, dxButton, ComCtrls, Grids;

type
  TTestVerFrm = class(TForm)
    Panel1: TPanel;
    dxButton1: TdxButton;
    Panel2: TPanel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    FrameImg: TImage;
    Label1: TLabel;
    Label10: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    dxButton2: TdxButton;
    Label11: TLabel;
    ComboBox1: TComboBox;
    Label12: TLabel;
    dxButton3: TdxButton;
    dxButton4: TdxButton;
    Panel3: TPanel;
    Image1: TImage;
    StringGrid1: TStringGrid;
    Panel4: TPanel;
    Panel5: TPanel;
    Image2: TImage;
    Label13: TLabel;
    Label14: TLabel;
    Image3: TImage;
    Panel6: TPanel;
    Image4: TImage;
    Label15: TLabel;
    Panel7: TPanel;
    Image5: TImage;
    Label16: TLabel;
    dxButton5: TdxButton;
    dxButton6: TdxButton;
    dxButton7: TdxButton;
    procedure FormCreate(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure Label7Click(Sender: TObject);
    procedure Label8Click(Sender: TObject);
    procedure Label10Click(Sender: TObject);
    procedure dxButton1Click(Sender: TObject);
    procedure dxButton2Click(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure dxButton7Click(Sender: TObject);
  private
    { Private declarations }
  public

  end;

var
  TestVerFrm: TTestVerFrm;

implementation

uses Main;

{$R *.dfm}

procedure TTestVerFrm.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  //窗体初始化位置及大小
  TestVerFrm.Left:=14;
  TestVerFrm.Top:=126;
  TestVerFrm.Height:=568;
  TestVerFrm.Width:=226;
  dxButton1.Left:=1;
  dxButton1.Top:=2;
  dxButton1.Height:=25;
  dxButton1.Width:=188;
  dxButton2.Left:=1;
  dxButton2.Top:=543;
  dxButton2.Height:=25;
  dxButton2.Width:=223;
  dxButton7.Left:=190;
  dxButton7.Top:=2;
  dxButton7.Height:=25;
  dxButton7.Width:=34;
  Panel2.Left:=0;
  Panel2.Top:=27;
  Panel2.Height:=517;
  Panel2.Width:=225;
  Panel2.Visible:=True;
  Panel3.Visible:=False;
  Panel3.Left:=0;
  Panel3.Top:=568;
  Panel3.Height:=517;
  Panel3.Width:=225;
  StringGrid1.ColWidths[0]:=36;
  StringGrid1.ColWidths[1]:=36;
  StringGrid1.ColWidths[2]:=61;
  StringGrid1.ColWidths[3]:=61;
  for I:=1 to 32 do
    StringGrid1.Cells[0,I]:=IntToStr(I);
end;

procedure TTestVerFrm.Label2Click(Sender: TObject);
begin
  //是否自检
  if CheckBox1.Checked=False then
    CheckBox1.Checked:=True
  else
    CheckBox1.Checked:=False;
end;

procedure TTestVerFrm.Label3Click(Sender: TObject);
begin
  //是否自检
  if CheckBox2.Checked=False then
    CheckBox2.Checked:=True
  else
    CheckBox2.Checked:=False;
end;

procedure TTestVerFrm.Label4Click(Sender: TObject);
begin
  //是否自检
  if CheckBox3.Checked=False then
    CheckBox3.Checked:=True
  else
    CheckBox3.Checked:=False;
end;

procedure TTestVerFrm.Label5Click(Sender: TObject);
begin
  //是否自检
  if CheckBox4.Checked=False then
    CheckBox4.Checked:=True
  else
    CheckBox4.Checked:=False;
end;

procedure TTestVerFrm.Label7Click(Sender: TObject);
begin
  //是否自检
  if CheckBox5.Checked=False then
    CheckBox5.Checked:=True
  else
    CheckBox5.Checked:=False;
end;

procedure TTestVerFrm.Label8Click(Sender: TObject);
begin
  //是否自检
  if CheckBox6.Checked=False then
    CheckBox6.Checked:=True
  else
    CheckBox6.Checked:=False;
end;

procedure TTestVerFrm.Label10Click(Sender: TObject);
begin
  //是否自检
  if CheckBox7.Checked=False then
    CheckBox7.Checked:=True
  else
    CheckBox7.Checked:=False;
end;

procedure TTestVerFrm.dxButton1Click(Sender: TObject);
begin
  //切换到自检面板
  dxButton1.Left:=1;
  dxButton1.Top:=2;
  dxButton1.Height:=25;
  dxButton1.Width:=188;
  dxButton2.Left:=1;
  dxButton2.Top:=543;
  dxButton2.Height:=25;
  dxButton2.Width:=223;
  Panel2.Left:=0;
  Panel2.Top:=27;
  Panel2.Height:=517;
  Panel2.Width:=225;
  Panel2.Visible:=True;
  Panel3.Visible:=False;
  Panel3.Left:=0;
  Panel3.Top:=568;
  Panel3.Height:=517;
  Panel3.Width:=225;
end;

procedure TTestVerFrm.dxButton2Click(Sender: TObject);
begin
  //切换到校验面板
  dxButton1.Left:=1;
  dxButton1.Top:=2;
  dxButton1.Height:=25;
  dxButton1.Width:=188;
  dxButton2.Left:=1;
  dxButton2.Top:=27;
  dxButton2.Height:=25;
  dxButton2.Width:=223;
  Panel2.Left:=0;
  Panel2.Top:=27;
  Panel2.Height:=517;
  Panel2.Width:=225;
  Panel2.Visible:=False;
  Panel3.Visible:=True;
  Panel3.Left:=0;
  Panel3.Top:=52;
  Panel3.Height:=517;
  Panel3.Width:=225;
  StringGrid1.Left:=2;
  StringGrid1.Top:=2;
end;

procedure TTestVerFrm.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
 s:string;
 r:TRect;
begin
  with StringGrid1 do
  begin
    Canvas.FillRect(Rect);
    r:=Rect;
    s:=Cells[ACol,ARow];
    if (ACol=0) or (ACol=1) then
      DrawText(Canvas.Handle,PChar(s),Length(s),r,DT_CENTER or DT_SINGLELINE or DT_VCENTER)
    else
      DrawText(Canvas.Handle,PChar(s),Length(s),r,DT_RIGHT or DT_SINGLELINE or DT_VCENTER);
  end;
end;

procedure TTestVerFrm.dxButton7Click(Sender: TObject);
begin
  //关闭窗体
  TestVerFrm.Close;
end;

end.