paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 03:42:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: added oem keys

Browse Source 
git-svn-id: trunk@20617 -
This commit is contained in:
mattias 2009-06-13 12:29:54 +00:00
parent f2f207f212
commit 36306bcd2a
2 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ideintf/objinspstrconsts.pas
View File

@ -425,6 +425,18 @@ resourcestring
srVK_NUMPAD = 'Numpad %d'; srVK_NUMPAD = 'Numpad %d';
srVK_NUMLOCK = 'Numlock'; srVK_NUMLOCK = 'Numlock';
srVK_SCROLL = 'Scroll'; srVK_SCROLL = 'Scroll';
lisOEMPlus = 'OEM plus';
lisOEM1 = 'OEM 1';
lisOEMComma = 'OEM comma';
lisOEMMinus = 'OEM minus';
lisOEMPeriod = 'OEM period';
lisOEM2 = 'OEM 2';
lisOEM3 = 'OEM 3';
lisOEM4 = 'OEM 4';
lisOEM5 = 'OEM 5';
lisOEM6 = 'OEM 6';
lisOEM7 = 'OEM 7';
lisOEM8 = 'OEM 8';
srVK_IRREGULAR = 'Irregular'; srVK_IRREGULAR = 'Irregular';
srVK_NONE = 'none'; srVK_NONE = 'none';
srkm_Alt = 'Alt'; srkm_Alt = 'Alt';

15
ideintf/propedits.pp
View File

@ -6563,9 +6563,22 @@ var
VK_SUBTRACT :AddStr('-'); VK_SUBTRACT :AddStr('-');
VK_DECIMAL :AddStr('.'); VK_DECIMAL :AddStr('.');
VK_DIVIDE :AddStr('/'); VK_DIVIDE :AddStr('/');
VK_F1..VK_F24 : AddStr('F'+IntToStr(Key-VK_F1+1)); VK_F1..VK_F24 :AddStr('F'+IntToStr(Key-VK_F1+1));
VK_NUMLOCK :AddStr(srVK_NUMLOCK); VK_NUMLOCK :AddStr(srVK_NUMLOCK);
VK_SCROLL :AddStr(srVK_SCROLL); VK_SCROLL :AddStr(srVK_SCROLL);
VK_OEM_1 :AddStr(lisOEM1);
VK_OEM_PLUS :AddStr(lisOEMPlus);
VK_OEM_COMMA :AddStr(lisOEMComma);
VK_OEM_MINUS :AddStr(lisOEMMinus);
VK_OEM_PERIOD :AddStr(lisOEMPeriod);
VK_OEM_2 :AddStr(lisOEM2);
VK_OEM_3 :AddStr(lisOEM3);
VK_OEM_4 :AddStr(lisOEM4);
VK_OEM_5 :AddStr(lisOEM5);
VK_OEM_6 :AddStr(lisOEM6);
VK_OEM_7 :AddStr(lisOEM7);
VK_OEM_8 :AddStr(lisOEM8);
// VK_EQUAL :AddStr('='); // VK_EQUAL :AddStr('=');
// VK_COMMA :AddStr(','); // VK_COMMA :AddStr(',');
// VK_POINT :AddStr('.'); // VK_POINT :AddStr('.');