📄 ikeyboard.pas
字号:
CreateButton(iVK_F10, Row, 2, False);
CreateButton(iVK_F11, Row, 2, False);
CreateButton(iVK_F12, Row, 2, False);
CreateSpacer( Row, 1);
CreateButton(iVK_SNAPSHOT, Row, 2, False);
CreateButton(iVK_SCROLL, Row, 2, False);
CreateButton(iVK_PAUSE, Row, 2, False);
Row := 1;
CreateButton(iVK_OEM_3, Row, 2, False);
CreateButton(iVK_1, Row, 2, False);
CreateButton(iVK_2, Row, 2, False);
CreateButton(iVK_3, Row, 2, False);
CreateButton(iVK_4, Row, 2, False);
CreateButton(iVK_5, Row, 2, False);
CreateButton(iVK_6, Row, 2, False);
CreateButton(iVK_7, Row, 2, False);
CreateButton(iVK_8, Row, 2, False);
CreateButton(iVK_9, Row, 2, False);
CreateButton(iVK_0, Row, 2, False);
CreateButton(iVK_OEM_MINUS, Row, 2, False);
CreateButton(iVK_OEM_PLUS, Row, 2, False);
CreateButton(iVK_BACK, Row, 4, False);
CreateSpacer( Row, 1);
CreateButton(iVK_INSERT, Row, 2, False);
CreateButton(iVK_HOME, Row, 2, False);
CreateButton(iVK_PRIOR, Row, 2, False);
CreateSpacer( Row, 1);
CreateButton(iVK_NUMLOCK, Row, 2, False);
CreateButton(iVK_DIVIDE, Row, 2, False);
CreateButton(iVK_MULTIPLY, Row, 2, False);
CreateButton(iVK_SUBTRACT, Row, 2, False);
Row := 2;
CreateButton(iVK_TAB, Row, 3, False);
CreateButton(iVK_Q, Row, 2, False);
CreateButton(iVK_W, Row, 2, False);
CreateButton(iVK_E, Row, 2, False);
CreateButton(iVK_R, Row, 2, False);
CreateButton(iVK_T, Row, 2, False);
CreateButton(iVK_Y, Row, 2, False);
CreateButton(iVK_U, Row, 2, False);
CreateButton(iVK_I, Row, 2, False);
CreateButton(iVK_O, Row, 2, False);
CreateButton(iVK_P, Row, 2, False);
CreateButton(iVK_OEM_4, Row, 2, False); // [ and {
CreateButton(iVK_OEM_6, Row, 2, False); // ] and }
CreateButton(iVK_OEM_5, Row, 3, False); // \ and |
CreateSpacer( Row, 1);
CreateButton(iVK_DELETE, Row, 2, False);
CreateButton(iVK_END, Row, 2, False);
CreateButton(iVK_NEXT, Row, 2, False);
CreateSpacer( Row, 1);
CreateButton(iVK_NUMPAD7, Row, 2, False);
CreateButton(iVK_NUMPAD8, Row, 2, False);
CreateButton(iVK_NUMPAD9, Row, 2, False);
CreateButton(iVK_ADD, Row, 2, True);
Row := 3;
CreateButton(iVK_CAPITAL, Row, 4, False);
CreateButton(iVK_A, Row, 2, False);
CreateButton(iVK_S, Row, 2, False);
CreateButton(iVK_D, Row, 2, False);
CreateButton(iVK_F, Row, 2, False);
CreateButton(iVK_G, Row, 2, False);
CreateButton(iVK_H, Row, 2, False);
CreateButton(iVK_J, Row, 2, False);
CreateButton(iVK_K, Row, 2, False);
CreateButton(iVK_L, Row, 2, False);
CreateButton(iVK_OEM_1, Row, 2, False); // ; and :
CreateButton(iVK_OEM_7, Row, 2, False); // ' and "
CreateButton(iVK_RETURN, Row, 4, False);
CreateSpacer( Row, 8);
CreateButton(iVK_NUMPAD4, Row, 2, False);
CreateButton(iVK_NUMPAD5, Row, 2, False);
CreateButton(iVK_NUMPAD6, Row, 2, False);
Row := 4;
CreateButton(iVK_SHIFT, Row, 5, False);
CreateButton(iVK_Z, Row, 2, False);
CreateButton(iVK_X, Row, 2, False);
CreateButton(iVK_C, Row, 2, False);
CreateButton(iVK_V, Row, 2, False);
CreateButton(iVK_B, Row, 2, False);
CreateButton(iVK_N, Row, 2, False);
CreateButton(iVK_M, Row, 2, False);
CreateButton(iVK_OEM_COMMA, Row, 2, False);
CreateButton(iVK_OEM_PERIOD, Row, 2, False);
CreateButton(iVK_OEM_2, Row, 2, False); // / and ?
CreateButton(iVK_SHIFT, Row, 5, False);
CreateSpacer( Row, 3);
CreateButton(iVK_UP, Row, 2, False);
CreateSpacer( Row, 3);
CreateButton(iVK_NUMPAD1, Row, 2, False);
CreateButton(iVK_NUMPAD2, Row, 2, False);
CreateButton(iVK_NUMPAD3, Row, 2, False);
CreateButton(iVK_RETURN, Row, 2, True);
Row := 5;
CreateButton(iVK_CONTROL, Row, 3, False);
CreateButton(iVK_LWIN, Row, 2, False);
CreateButton(iVK_MENU, Row, 3, False);
CreateButton(iVK_SPACE, Row, 12, False);
CreateButton(iVK_MENU, Row, 3, False);
CreateButton(iVK_RWIN, Row, 2, False);
CreateButton(iVK_APPS, Row, 2, False);
CreateButton(iVK_CONTROL, Row, 3, False);
CreateSpacer( Row, 1);
CreateButton(iVK_LEFT, Row, 2, False);
CreateButton(iVK_DOWN, Row, 2, False);
CreateButton(iVK_RIGHT, Row, 2, False);
CreateSpacer( Row, 1);
CreateButton(iVK_NUMPAD0, Row, 4, False);
CreateButton(iVK_DECIMAL, Row, 2, False);
end;
//*************************************************************************************************************************************
procedure TiKeyBoard.Setup087;
var
Row : Integer;
begin
RemoveAllButtons;
Row := 0;
CreateButton(iVK_ESCAPE, Row, 2, False);
CreateSpacer( Row, 2);
CreateButton(iVK_F1, Row, 2, False);
CreateButton(iVK_F2, Row, 2, False);
CreateButton(iVK_F3, Row, 2, False);
CreateButton(iVK_F4, Row, 2, False);
CreateSpacer( Row, 1);
CreateButton(iVK_F5, Row, 2, False);
CreateButton(iVK_F6, Row, 2, False);
CreateButton(iVK_F7, Row, 2, False);
CreateButton(iVK_F8, Row, 2, False);
CreateSpacer( Row, 1);
CreateButton(iVK_F9, Row, 2, False);
CreateButton(iVK_F10, Row, 2, False);
CreateButton(iVK_F11, Row, 2, False);
CreateButton(iVK_F12, Row, 2, False);
CreateSpacer( Row, 1);
CreateButton(iVK_SNAPSHOT, Row, 2, False);
CreateButton(iVK_SCROLL, Row, 2, False);
CreateButton(iVK_PAUSE, Row, 2, False);
Row := 1;
CreateButton(iVK_OEM_3, Row, 2, False);
CreateButton(iVK_1, Row, 2, False);
CreateButton(iVK_2, Row, 2, False);
CreateButton(iVK_3, Row, 2, False);
CreateButton(iVK_4, Row, 2, False);
CreateButton(iVK_5, Row, 2, False);
CreateButton(iVK_6, Row, 2, False);
CreateButton(iVK_7, Row, 2, False);
CreateButton(iVK_8, Row, 2, False);
CreateButton(iVK_9, Row, 2, False);
CreateButton(iVK_0, Row, 2, False);
CreateButton(iVK_OEM_MINUS, Row, 2, False);
CreateButton(iVK_OEM_PLUS, Row, 2, False);
CreateButton(iVK_BACK, Row, 4, False);
CreateSpacer( Row, 1);
CreateButton(iVK_INSERT, Row, 2, False);
CreateButton(iVK_HOME, Row, 2, False);
CreateButton(iVK_PRIOR, Row, 2, False);
Row := 2;
CreateButton(iVK_TAB, Row, 3, False);
CreateButton(iVK_Q, Row, 2, False);
CreateButton(iVK_W, Row, 2, False);
CreateButton(iVK_E, Row, 2, False);
CreateButton(iVK_R, Row, 2, False);
CreateButton(iVK_T, Row, 2, False);
CreateButton(iVK_Y, Row, 2, False);
CreateButton(iVK_U, Row, 2, False);
CreateButton(iVK_I, Row, 2, False);
CreateButton(iVK_O, Row, 2, False);
CreateButton(iVK_P, Row, 2, False);
CreateButton(iVK_OEM_4, Row, 2, False); // [ and {
CreateButton(iVK_OEM_6, Row, 2, False); // ] and }
CreateButton(iVK_OEM_5, Row, 3, False); // \ and |
CreateSpacer( Row, 1);
CreateButton(iVK_DELETE, Row, 2, False);
CreateButton(iVK_END, Row, 2, False);
CreateButton(iVK_NEXT, Row, 2, False);
Row := 3;
CreateButton(iVK_CAPITAL, Row, 4, False);
CreateButton(iVK_A, Row, 2, False);
CreateButton(iVK_S, Row, 2, False);
CreateButton(iVK_D, Row, 2, False);
CreateButton(iVK_F, Row, 2, False);
CreateButton(iVK_G, Row, 2, False);
CreateButton(iVK_H, Row, 2, False);
CreateButton(iVK_J, Row, 2, False);
CreateButton(iVK_K, Row, 2, False);
CreateButton(iVK_L, Row, 2, False);
CreateButton(iVK_OEM_1, Row, 2, False); // ; and :
CreateButton(iVK_OEM_7, Row, 2, False); // ' and "
CreateButton(iVK_RETURN, Row, 4, False);
Row := 4;
CreateButton(iVK_SHIFT, Row, 5, False);
CreateButton(iVK_Z, Row, 2, False);
CreateButton(iVK_X, Row, 2, False);
CreateButton(iVK_C, Row, 2, False);
CreateButton(iVK_V, Row, 2, False);
CreateButton(iVK_B, Row, 2, False);
CreateButton(iVK_N, Row, 2, False);
CreateButton(iVK_M, Row, 2, False);
CreateButton(iVK_OEM_COMMA, Row, 2, False);
CreateButton(iVK_OEM_PERIOD, Row, 2, False);
CreateButton(iVK_OEM_2, Row, 2, False); // / and ?
CreateButton(iVK_SHIFT, Row, 5, False);
CreateSpacer( Row, 3);
CreateButton(iVK_UP, Row, 2, False);
Row := 5;
CreateButton(iVK_CONTROL, Row, 3, False);
CreateButton(iVK_LWIN, Row, 2, False);
CreateButton(iVK_MENU, Row, 3, False);
CreateButton(iVK_SPACE, Row, 12, False);
CreateButton(iVK_MENU, Row, 3, False);
CreateButton(iVK_RWIN, Row, 2, False);
CreateButton(iVK_APPS, Row, 2, False);
CreateButton(iVK_CONTROL, Row, 3, False);
CreateSpacer(Row, 1);
CreateButton(iVK_LEFT, Row, 2, False);
CreateButton(iVK_DOWN, Row, 2, False);
CreateButton(iVK_RIGHT, Row, 2, False);
end;
//*************************************************************************************************************************************
procedure TiKeyBoard.Setup074;
var
Row : Integer;
begin
RemoveAllButtons;
Row := 0;
CreateButton(iVK_ESCAPE, Row, 2, False);
CreateSpacer( Row, 2);
CreateButton(iVK_F1, Row, 2, False);
CreateButton(iVK_F2, Row, 2, False);
CreateButton(iVK_F3, Row, 2, False);
CreateButton(iVK_F4, Row, 2, False);
CreateSpacer( Row, 1);
CreateButton(iVK_F5, Row, 2, False);
CreateButton(iVK_F6, Row, 2, False);
CreateButton(iVK_F7, Row, 2, False);
CreateButton(iVK_F8, Row, 2, False);
CreateSpacer( Row, 1);
CreateButton(iVK_F9, Row, 2, False);
CreateButton(iVK_F10, Row, 2, False);
CreateButton(iVK_F11, Row, 2, False);
CreateButton(iVK_F12, Row, 2, False);
Row := 1;
CreateButton(iVK_OEM_3, Row, 2, False);
CreateButton(iVK_1, Row, 2, False);
CreateButton(iVK_2, Row, 2, False);
CreateButton(iVK_3, Row, 2, False);
CreateButton(iVK_4, Row, 2, False);
CreateButton(iVK_5, Row, 2, False);
CreateButton(iVK_6, Row, 2, False);
CreateButton(iVK_7, Row, 2, False);
CreateButton(iVK_8, Row, 2, False);
CreateButton(iVK_9, Row, 2, False);
CreateButton(iVK_0, Row, 2, False);
CreateButton(iVK_OEM_MINUS, Row, 2, False);
CreateButton(iVK_OEM_PLUS, Row, 2, False);
CreateButton(iVK_BACK, Row, 4, False);
Row := 2;
CreateButton(iVK_TAB, Row, 3, False);
CreateButton(iVK_Q, Row, 2, False);
CreateButton(iVK_W, Row, 2, False);
CreateButton(iVK_E, Row, 2, False);
CreateButton(iVK_R, Row, 2, False);
CreateButton(iVK_T, Row, 2, False);
CreateButton(iVK_Y, Row, 2, False);
CreateButton(iVK_U, Row, 2, False);
CreateButton(iVK_I, Row, 2, False);
CreateButton(iVK_O, Row, 2, False);
CreateButton(iVK_P, Row, 2, False);
CreateButton(iVK_OEM_4, Row, 2, False); // [ and {
CreateButton(iVK_OEM_6, Row, 2, False); // ] and }
CreateButton(iVK_OEM_5, Row, 3, False); // \ and |
Row := 3;
CreateButton(iVK_CAPITAL, Row, 4, False);
CreateButton(iVK_A, Row, 2, False);
CreateButton(iVK_S, Row, 2, False);
CreateButton(iVK_D, Row, 2, False);
CreateButton(iVK_F, Row, 2, False);
CreateButton(iVK_G, Row, 2, False);
CreateButton(iVK_H, Row, 2, False);
CreateButton(iVK_J, Row, 2, False);
CreateButton(iVK_K, Row, 2, False);
CreateButton(iVK_L, Row, 2, False);
CreateButton(iVK_OEM_1, Row, 2, False); // ; and :
CreateButton(iVK_OEM_7, Row, 2, False); // ' and "
CreateButton(iVK_RETURN, Row, 4, False);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -