urdsp.pas

来自「Pos Componet Some Pos Utility」· PAS 代码 · 共 54 行

unit URDSP;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, ExtCtrls, Buttons, Spin, SPComm, Mask;

type
  TFRDSP = class(TForm)
    PageControl: TPageControl;
    PAGE_A: TTabSheet;
    ED_PORT: TRadioGroup;
    TabSheet2: TTabSheet;
    P_TEST_TEXT: TBitBtn;
    P_TEXT1: TEdit;
    Label8: TLabel;
    Label10: TLabel;
    ED_DELAY: TSpinEdit;
    Memo: TMemo;
    Label17: TLabel;
    Label1: TLabel;
    P_TEXT2: TEdit;
    P_TEST_CTRL: TBitBtn;
    BTN_CLR: TButton;
    ED_DSP: TRadioGroup;
    ED_MODE1: TRadioGroup;
    ED_MODE2: TRadioGroup;
    ED_MODE3: TRadioGroup;
    BTNQUT: TBitBtn;
    BTNESC: TBitBtn;
    Button1: TButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure P_TEST_TEXTClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure P_TEST_CTRLClick(Sender: TObject);
    procedure BTN_CLRClick(Sender: TObject);
    procedure BTNQUTClick(Sender: TObject);
    procedure BTNESCClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

   //╰参砞﹚
   PROCEDURE DSP_CHANGE_VARIABLE;           // 讽ㄏノ