📄 unposakey.pas
字号:
unit UNPOSAKEY;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Menus, ExtCtrls;
type
TFMPOSAKEY = class(TForm)
BTNQUT: TBitBtn;
BTNCAL: TBitBtn;
MainMenu1: TMainMenu;
ESC: TMenuItem;
F_ESC: TPanel;
CTRL_I: TPanel;
CTRL_Q: TPanel;
CTRL_P: TPanel;
CTRL_A: TPanel;
F_F1: TPanel;
F_F2: TPanel;
F_F3: TPanel;
F_F4: TPanel;
F_F5: TPanel;
F_F6: TPanel;
F_F7: TPanel;
F_F8: TPanel;
F_F9: TPanel;
F_F10: TPanel;
F_F11: TPanel;
F_F12: TPanel;
CTRL_B: TPanel;
CTRL_N: TPanel;
CTRL_M: TPanel;
CTRL_V: TPanel;
CTRL_Z: TPanel;
CTRL_C: TPanel;
CTRL_X: TPanel;
CTRL_S: TPanel;
CTRL_F5: TPanel;
CTRL_F6: TPanel;
CTRL_F7: TPanel;
CTRL_F8: TPanel;
CTRL_F9: TPanel;
CTRL_10: TPanel;
CTRL_11: TPanel;
CTRL_12: TPanel;
Label26: TPANEL;
CTRL_L: TPanel;
Label27: TPANEL;
Panel1: TPanel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure BTNQUTClick(Sender: TObject);
procedure BTNCALClick(Sender: TObject);
procedure BTNQUTKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FMPOSAKEY: TFMPOSAKEY;
implementation
USES UN_UTL, SYSINI;
{$R *.DFM}
procedure TFMPOSAKEY.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FMPOSAKEY.Release;
end;
procedure TFMPOSAKEY.FormCreate(Sender: TObject);
begin
{
ED_CTRLI .Items.Text := ED_ESC.Items.Text;
ED_CTRLQ .Items.Text := ED_ESC.Items.Text;
ED_CTRLP .Items.Text := ED_ESC.Items.Text;
ED_CTRLD .Items.Text := ED_ESC.Items.Text;
ED_CTRLA .Items.Text := ED_ESC.Items.Text;
ED_CTRLB .Items.Text := ED_ESC.Items.Text;
ED_CTRLN .Items.Text := ED_ESC.Items.Text;
ED_CTRLM .Items.Text := ED_ESC.Items.Text;
ED_CTRLV .Items.Text := ED_ESC.Items.Text;
ED_CTRLG .Items.Text := ED_ESC.Items.Text;
ED_CTRLZ .Items.Text := ED_ESC.Items.Text;
ED_CTRLC .Items.Text := ED_ESC.Items.Text;
ED_CTRLX .Items.Text := ED_ESC.Items.Text;
ED_CTRLS .Items.Text := ED_ESC.Items.Text;
ED_CTRLF .Items.Text := ED_ESC.Items.Text;
ED_CTRLF5 .Items.Text := ED_ESC.Items.Text;
ED_CTRLF6 .Items.Text := ED_ESC.Items.Text;
ED_CTRLF7 .Items.Text := ED_ESC.Items.Text;
ED_CTRLF8 .Items.Text := ED_ESC.Items.Text;
ED_CTRLF9 .Items.Text := ED_ESC.Items.Text;
ED_CTRLF10.Items.Text := ED_ESC.Items.Text;
ED_CTRLF11.Items.Text := ED_ESC.Items.Text;
ED_CTRLF12.Items.Text := ED_ESC.Items.Text;
ED_F1 .Items.Text := ED_ESC.Items.Text;
ED_F2 .Items.Text := ED_ESC.Items.Text;
ED_F3 .Items.Text := ED_ESC.Items.Text;
ED_F4 .Items.Text := ED_ESC.Items.Text;
ED_F5 .Items.Text := ED_ESC.Items.Text;
ED_F6 .Items.Text := ED_ESC.Items.Text;
ED_F7 .Items.Text := ED_ESC.Items.Text;
ED_F8 .Items.Text := ED_ESC.Items.Text;
ED_F9 .Items.Text := ED_ESC.Items.Text;
ED_F10 .Items.Text := ED_ESC.Items.Text;
ED_F11 .Items.Text := ED_ESC.Items.Text;
ED_F12 .Items.Text := ED_ESC.Items.Text;
ED_F1 .ItemIndex := 1;
ED_F2 .ItemIndex := 2;
ED_F3 .ItemIndex := 3;
ED_F4 .ItemIndex := 4;
ED_F5 .ItemIndex := 5;
ED_F6 .ItemIndex := 6;
ED_F7 .ItemIndex := 7;
ED_F8 .ItemIndex := 8;
ED_F9 .ItemIndex := 9;
ED_F10 .ItemIndex := 10;
ED_F11 .ItemIndex := 11;
ED_F12 .ItemIndex := 12;
ED_ESC .ItemIndex := 0;
ED_CTRLI.ItemIndex := 21;
ED_CTRLQ.ItemIndex := 29;
ED_CTRLP.ItemIndex := 28;
ED_CTRLD.ItemIndex := 16;
ED_CTRLA.ItemIndex := 13;
ED_CTRLB.ItemIndex := 14;
ED_CTRLV.ItemIndex := 34;
ED_CTRLN.ItemIndex := 26;
ED_CTRLM.ItemIndex := 25;
ED_CTRLG.ItemIndex := 19;
ED_CTRLZ.ItemIndex := 38;
ED_CTRLC.ItemIndex := 15;
ED_CTRLX.ItemIndex := 36;
ED_CTRLS.ItemIndex := 31;
ED_CTRLF.ItemIndex := 18;
ED_CTRLF5 .ItemIndex := 43;
ED_CTRLF6 .ItemIndex := 44;
ED_CTRLF7 .ItemIndex := 45;
ED_CTRLF8 .ItemIndex := 46;
ED_CTRLF9 .ItemIndex := 47;
ED_CTRLF10.ItemIndex := 48;
ED_CTRLF11.ItemIndex := 49;
ED_CTRLF12.ItemIndex := 50;
ED_F1 .ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_F1' ,ED_F1 .ItemIndex);
ED_F2 .ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_F2' ,ED_F2 .ItemIndex);
ED_F3 .ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_F3' ,ED_F3 .ItemIndex);
ED_F4 .ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_F4' ,ED_F4 .ItemIndex);
ED_F5 .ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_F5' ,ED_F5 .ItemIndex);
ED_F6 .ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_F6' ,ED_F6 .ItemIndex);
ED_F7 .ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_F7' ,ED_F7 .ItemIndex);
ED_F8 .ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_F8' ,ED_F8 .ItemIndex);
ED_F9 .ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_F9' ,ED_F9 .ItemIndex);
ED_F10 .ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_F10' ,ED_F10 .ItemIndex);
ED_F11 .ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_F11' ,ED_F11 .ItemIndex);
ED_F12 .ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_F12' ,ED_F12 .ItemIndex);
ED_ESC .ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_ESC' ,ED_ESC .ItemIndex);
ED_CTRLI.ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLI' ,ED_CTRLI.ItemIndex);
ED_CTRLQ.ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLQ' ,ED_CTRLQ.ItemIndex);
ED_CTRLP.ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLP' ,ED_CTRLP.ItemIndex);
ED_CTRLD.ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLD' ,ED_CTRLD.ItemIndex);
ED_CTRLA.ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLA' ,ED_CTRLA.ItemIndex);
ED_CTRLB.ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLB' ,ED_CTRLB.ItemIndex);
ED_CTRLV.ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLV' ,ED_CTRLV.ItemIndex);
ED_CTRLN.ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLN' ,ED_CTRLN.ItemIndex);
ED_CTRLM.ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLM' ,ED_CTRLM.ItemIndex);
ED_CTRLG.ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLG' ,ED_CTRLG.ItemIndex);
ED_CTRLV.ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLV' ,ED_CTRLV.ItemIndex);
ED_CTRLZ.ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLZ' ,ED_CTRLZ.ItemIndex);
ED_CTRLC.ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLC' ,ED_CTRLC.ItemIndex);
ED_CTRLX.ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLX' ,ED_CTRLX.ItemIndex);
ED_CTRLS.ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLS' ,ED_CTRLS.ItemIndex);
ED_CTRLF.ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLF' ,ED_CTRLF.ItemIndex);
ED_CTRLF5 .ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLF5' ,ED_CTRLF5 .ItemIndex);
ED_CTRLF6 .ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLF6' ,ED_CTRLF6 .ItemIndex);
ED_CTRLF7 .ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLF7' ,ED_CTRLF7 .ItemIndex);
ED_CTRLF8 .ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLF8' ,ED_CTRLF8 .ItemIndex);
ED_CTRLF9 .ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLF9' ,ED_CTRLF9 .ItemIndex);
ED_CTRLF10.ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLF10' ,ED_CTRLF10.ItemIndex);
ED_CTRLF11.ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLF11' ,ED_CTRLF11.ItemIndex);
ED_CTRLF12.ItemIndex := INI_LOAD_INT(FILEPATH_POSAKEY,'ED_CTRLF12' ,ED_CTRLF12.ItemIndex);
}
end;
procedure TFMPOSAKEY.BTNQUTClick(Sender: TObject);
begin
{
//INI_SAVE_INT(SETFILENAME, 'ED_2' ,ED_2.ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_F1' ,ED_F1 .ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_F2' ,ED_F2 .ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_F3' ,ED_F3 .ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_F4' ,ED_F4 .ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_F5' ,ED_F5 .ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_F6' ,ED_F6 .ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_F7' ,ED_F7 .ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_F8' ,ED_F8 .ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_F9' ,ED_F9 .ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_F10' ,ED_F10 .ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_F11' ,ED_F11 .ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_F12' ,ED_F12 .ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_ESC' ,ED_ESC .ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_CTRLI' ,ED_CTRLI.ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_CTRLQ' ,ED_CTRLQ.ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_CTRLP' ,ED_CTRLP.ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_CTRLD' ,ED_CTRLD.ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_CTRLA' ,ED_CTRLA.ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_CTRLB' ,ED_CTRLB.ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_CTRLV' ,ED_CTRLV.ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_CTRLN' ,ED_CTRLN.ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_CTRLM' ,ED_CTRLM.ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_CTRLG' ,ED_CTRLG.ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_CTRLZ' ,ED_CTRLZ.ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_CTRLC' ,ED_CTRLC.ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_CTRLX' ,ED_CTRLX.ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_CTRLS' ,ED_CTRLS.ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_CTRLF' ,ED_CTRLF.ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_CTRLF5' ,ED_CTRLF5 .ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_CTRLF6' ,ED_CTRLF6 .ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_CTRLF7' ,ED_CTRLF7 .ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_CTRLF8' ,ED_CTRLF8 .ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_CTRLF9' ,ED_CTRLF9 .ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_CTRLF10',ED_CTRLF10.ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_CTRLF11',ED_CTRLF11.ItemIndex);
INI_SAVE_INT(FILEPATH_POSAKEY,'ED_CTRLF12',ED_CTRLF12.ItemIndex);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_F1' ,ED_F1 .TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_F2' ,ED_F2 .TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_F3' ,ED_F3 .TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_F4' ,ED_F4 .TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_F5' ,ED_F5 .TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_F6' ,ED_F6 .TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_F7' ,ED_F7 .TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_F8' ,ED_F8 .TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_F9' ,ED_F9 .TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_F10' ,ED_F10 .TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_F11' ,ED_F11 .TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_F12' ,ED_F12 .TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_ESC' ,ED_ESC .TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_CTRLI' ,ED_CTRLI.TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_CTRLQ' ,ED_CTRLQ.TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_CTRLP' ,ED_CTRLP.TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_CTRLD' ,ED_CTRLD.TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_CTRLA' ,ED_CTRLA.TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_CTRLB' ,ED_CTRLB.TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_CTRLV' ,ED_CTRLV.TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_CTRLN' ,ED_CTRLN.TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_CTRLM' ,ED_CTRLM.TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_CTRLG' ,ED_CTRLG.TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_CTRLZ' ,ED_CTRLZ.TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_CTRLC' ,ED_CTRLC.TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_CTRLX' ,ED_CTRLX.TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_CTRLS' ,ED_CTRLS.TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_CTRLF' ,ED_CTRLF.TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_CTRLF5' ,ED_CTRLF5 .TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_CTRLF6' ,ED_CTRLF6 .TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_CTRLF7' ,ED_CTRLF7 .TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_CTRLF8' ,ED_CTRLF8 .TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_CTRLF9' ,ED_CTRLF9 .TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_CTRLF10',ED_CTRLF10.TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_CTRLF11',ED_CTRLF11.TEXT);
INI_SAVE_STR(FILEPATH_POSAKEY,'SED_CTRLF12',ED_CTRLF12.TEXT);
}
CLOSE;
end;
procedure TFMPOSAKEY.BTNCALClick(Sender: TObject);
begin
CLOSE;
end;
procedure TFMPOSAKEY.BTNQUTKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
IF KEY=27 THEN CLOSE;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -