urclever.pas

Pos Componet Some Pos Utility

unit URCLEVER;

interface

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

type
  TFRCLEVER = class(TForm)
    PageControl: TPageControl;
    PAGE_A: TTabSheet;
    ED_PORT: TRadioGroup;
    Label1: TLabel;
    Label3: TLabel;
    ED_CUTTER: TCheckBox;
    Label4: TLabel;
    Label2: TLabel;
    BTNQUT: TBitBtn;
    TabSheet2: TTabSheet;
    P_TEST_TEXT: TBitBtn;
    Label5: TLabel;
    ED_DENSITY: TSpinEdit;
    Label6: TLabel;
    ED_DIR: TRadioGroup;
    Label7: TLabel;
    P_TEXT: TEdit;
    P_BARCODE: TEdit;
    P_TEST_BARCODE: TBitBtn;
    Label10: TLabel;
    ED_DELAY: TSpinEdit;
    ED_CODE: TComboBox;
    Label16: TLabel;
    Memo: TMemo;
    Label17: TLabel;
    ED_LB_W: TFLOATEDIT;
    ED_LB_H: TFLOATEDIT;
    ED_SPEED: TFLOATEDIT;
    ED_GAP1: TFLOATEDIT;
    ED_GAP2: TFLOATEDIT;
    ED_REF1: TFLOATEDIT;
    ED_REF2: TFLOATEDIT;
    ED_UNIT: TRadioGroup;
    Label11: TLabel;
    ED_NARROW: TSpinEdit;
    BTNESC: TBitBtn;
    MainMenu: TMainMenu;
    N5: TMenuItem;
    procedure BTNQUTClick(Sender: TObject);
    procedure P_TEST_TEXTClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure P_TEST_BARCODEClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ED_CUTTERClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BTNESCClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  // ╰参砞﹚
  PROCEDURE CLEVER_CHANGE_VARIABLE;
  PROCEDURE CLEVER_OPEN_PORT;
  PROCEDURE CLEVER_READ_INI;
  PROCEDURE CLEVER_WRITE_INI;

  //