Class Topm_Form_ConfigMod

Unit

configmod

Declaration

type Topm_Form_ConfigMod = class(TForm)

Description

Hierarchy

• TForm
• Topm_Form_ConfigMod

Overview

Fields

	opm_BitBtn_ConfigModOk: TBitBtn;
	opm_BitBtn_ConfigModCancel: TBitBtn;
	opm_Label_ConfigModName: TLabel;
	opm_Edit_ConfigModName: TEdit;
	opm_Label_ConfigModFile: TLabel;
	opm_Edit_ConfigModCmd: TEdit;
	opm_BitBtn_ConfigModFile: TBitBtn;
	opm_Label_ConfigModPara: TLabel;
	opm_Edit_ConfigModPara: TEdit;
	opm_Label_ConfigModPort: TLabel;
	opm_SpinEdit_ConfigModPort: TSpinEdit;
	opm_CheckBox_ConfigModJustRun: TCheckBox;
	opm_CheckBox_ConfigModOnSelection: TCheckBox;
	opm_CheckBox_ConfigModRemote: TCheckBox;
	opm_Label_ConfigModIndex: TLabel;
	opm_ComboBox_ConfigModIndex: TComboBox;
	opm_Label_ConfigModResult: TLabel;
	opm_ComboBox_ConfigModResult: TComboBox;
	opm_OpenDialog_ConfigMod: TOpenDialog;
	MC_Name : STRING;
	MC_AddEdit : BOOLEAN;

Methods

	procedure opm_BitBtn_ConfigModFileClick(Sender: TObject);
	procedure opm_BitBtn_ConfigModOkClick(Sender: TObject);
	procedure FormCreate(Sender: TObject);
	procedure FormShow(Sender: TObject);

Description

Fields

opm_BitBtn_ConfigModOk: TBitBtn;

opm_BitBtn_ConfigModCancel: TBitBtn;

opm_Label_ConfigModName: TLabel;

opm_Edit_ConfigModName: TEdit;

opm_Label_ConfigModFile: TLabel;

opm_Edit_ConfigModCmd: TEdit;

opm_BitBtn_ConfigModFile: TBitBtn;

opm_Label_ConfigModPara: TLabel;

opm_Edit_ConfigModPara: TEdit;

opm_Label_ConfigModPort: TLabel;

opm_SpinEdit_ConfigModPort: TSpinEdit;

opm_CheckBox_ConfigModJustRun: TCheckBox;

opm_CheckBox_ConfigModOnSelection: TCheckBox;

opm_CheckBox_ConfigModRemote: TCheckBox;

opm_Label_ConfigModIndex: TLabel;

opm_ComboBox_ConfigModIndex: TComboBox;

opm_Label_ConfigModResult: TLabel;

opm_ComboBox_ConfigModResult: TComboBox;

opm_OpenDialog_ConfigMod: TOpenDialog;

MC_Name : STRING;

MC_AddEdit : BOOLEAN;

Methods

procedure opm_BitBtn_ConfigModFileClick(Sender: TObject);

procedure opm_BitBtn_ConfigModOkClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure FormShow(Sender: TObject);