API tools faq
paste
Advertisement
Guest User

iupkey.pas

a guest
May 4th, 2016
118
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 76.14 KB | None | 0 0
raw download clone embed print report
  1.  
  2. unit iupkey;
  3. {$mode objfpc}
  4. interface
  5.  
  6. {
  7.   Automatically converted by H2Pas 1.0.0 from iupkeys.h
  8.   The following command line parameters were used:
  9.     iupkeys.h
  10.     -o
  11.     ./iupkey.pas
  12. }
  13.  
  14. {$IFDEF FPC}
  15. {$PACKRECORDS C}
  16. {$ENDIF}
  17.  
  18.  
  19.   {* \file
  20.    * \brief Keyboard Keys definitions.
  21.    *
  22.    * See Copyright Notice in "iup.h"
  23.     }
  24. {$ifndef __IUPKEY_H }
  25. {$define __IUPKEY_H}  
  26.   { from 32 to 126, all character sets are equal,
  27.      the key code is the same as the ASCii character code.  }
  28.   { backward compatible definitions  }
  29.  
  30.   const
  31.     K_SP          =' ';   { 32 (0x20) }
  32.     K_exclam      ='!';   { 33 }
  33.     K_quotedbl    ='"';  { 34 }
  34.     K_numbersign  ='#';   { 35 }
  35.     K_dollar      ='$';   { 36 }
  36.     K_percent     ='%';   { 37 }
  37.     K_ampersand   ='&';   { 38 }
  38.     K_apostrophe  ='''';  { 39 }
  39.     K_parentleft  ='(';   { 40 }
  40.     K_parentright =')';   { 41 }
  41.     K_asterisk    ='*';   { 42 }
  42.     K_plus        ='+';   { 43 }
  43.     K_comma       =',';   { 44 }
  44.     K_minus       ='-';   { 45 }
  45.     K_period      ='.';   { 46 }
  46.     K_slash       ='/';   { 47 }
  47.     K_0           ='0';   { 48 (0x30) }
  48.     K_1           ='1';   { 49 }
  49.     K_2           ='2';   { 50 }
  50.     K_3           ='3';   { 51 }
  51.     K_4           ='4';   { 52 }
  52.     K_5           ='5';   { 53 }
  53.     K_6           ='6';   { 54 }
  54.     K_7           ='7';   { 55 }
  55.     K_8           ='8';   { 56 }
  56.     K_9           ='9';   { 57 }
  57.     K_colon       =':';   { 58 }
  58.     K_semicolon   =';';   { 59 }
  59.     K_less        ='<';   { 60 }
  60.     K_equal       ='=';   { 61 }
  61.     K_greater     ='>';   { 62 }
  62.     K_question    ='?';   { 63 }
  63.     K_at          ='@';   { 64 }
  64.     K_UpperA           ='A';   { 65 (0x41) }
  65.     K_UpperB           ='B';   { 66 }
  66.     K_UpperC           ='C';   { 67 }
  67.     K_UpperD           ='D';   { 68 }
  68.     K_UpperE           ='E';   { 69 }
  69.     K_UpperF           ='F';   { 70 }
  70.     K_UpperG           ='G';   { 71 }
  71.     K_UpperH           ='H';   { 72 }
  72.     K_UpperI           ='I';   { 73 }
  73.     K_UpperJ           ='J';   { 74 }
  74.     K_UpperK           ='K';   { 75 }
  75.     K_UpperL           ='L';   { 76 }
  76.     K_UpperM           ='M';   { 77 }
  77.     K_UpperN           ='N';   { 78 }
  78.     K_UpperO           ='O';   { 79 }
  79.     K_UpperP           ='P';   { 80 }
  80.     K_UpperQ           ='Q';   { 81 }
  81.     K_UpperR           ='R';   { 82 }
  82.     K_UpperS           ='S';   { 83 }
  83.     K_UpperT           ='T';   { 84 }
  84.     K_UpperU           ='U';   { 85 }
  85.     K_UpperV           ='V';   { 86 }
  86.     K_UpperW           ='W';   { 87 }
  87.     K_UpperX           ='X';   { 88 }
  88.     K_UpperY           ='Y';   { 89 }
  89.     K_UpperZ           ='Z';   { 90 }
  90.     K_bracketleft ='[';   { 91 }
  91.     K_backslash   ='\';  { 92 }
  92.     K_bracketright =']';  { 93 }
  93.     K_circum      ='^';   { 94 }
  94.     K_underscore  ='_';   { 95 }
  95.     K_grave       ='`';   { 96 }
  96.     K_a           ='a';   { 97 (0x61) }
  97.     K_b           ='b';   { 98 }
  98.     K_c           ='c';   { 99 }
  99.     K_d           ='d';   { 100 }
  100.     K_e           ='e';   { 101 }
  101.     K_f           ='f';   { 102 }
  102.     K_g           ='g';   { 103 }
  103.     K_h           ='h';   { 104 }
  104.     K_i           ='i';   { 105 }
  105.     K_j           ='j';   { 106 }
  106.     K_k           ='k';   { 107 }
  107.     K_l           ='l';   { 108 }
  108.     K_m           ='m';   { 109 }
  109.     K_n           ='n';   { 110 }
  110.     K_o           ='o';   { 111 }
  111.     K_p           ='p';   { 112 }
  112.     K_q           ='q';   { 113 }
  113.     K_r           ='r';   { 114 }
  114.     K_s           ='s';   { 115 }
  115.     K_t           ='t';   { 116 }
  116.     K_u           ='u';   { 117 }
  117.     K_v           ='v';   { 118 }
  118.     K_w           ='w';   { 119 }
  119.     K_x           ='x';   { 120 }
  120.     K_y           ='y';   { 121 }
  121.     K_z           ='z';   { 122 }
  122.     K_braceleft   ='{';   { 123 }
  123.     K_bar         ='|';   { 124 }
  124.     K_braceright  ='}';   { 125 }
  125.     K_tilde       ='~';   { 126 (0x7E) }
  126.  
  127.     (* Printable ASCii keys *)
  128.  
  129.     //iup_isprint(_c) ((_c) > 31 && (_c) < 127)
  130.  
  131.     (* alsothe escape sequences that have keys associated *)
  132.  
  133.     K_CHR_BS       = #8;
  134.     K_CHR_TAB      = #9;
  135.     K_CHR_LF       = #10;
  136.     K_CHR_CR       = #13;
  137.  
  138.  
  139.     K_quoteleft = K_grave;    
  140.     K_quoteright = K_apostrophe;    
  141.  
  142.   { IUP Extended Key Codes, range start at 128       }
  143.   { was #define dname(params) para_def_expr }
  144.   { argument types are unknown }
  145.   { return type might be wrong }  
  146.  
  147.   function iup_isXkey(_c : variant) : boolean;  
  148.  
  149.     //isxkey = iup_isXkey;    
  150.  
  151.  
  152.   { These use the same definition as X11 and GDK.
  153.      This also means that any X11 or GDK definition can also be used.  }
  154.   const
  155.     K_PAUSE = $FF13;    
  156.     K_ESC = $FF1B;    
  157.     K_HOME = $FF50;    
  158.     K_LEFT = $FF51;    
  159.     K_UP = $FF52;    
  160.     K_RIGHT = $FF53;    
  161.     K_DOWN = $FF54;    
  162.     K_PGUP = $FF55;    
  163.     K_PGDN = $FF56;    
  164.     K_END = $FF57;    
  165.     K_MIDDLE = $FF0B;    
  166.     K_Print = $FF61;    
  167.     K_INS = $FF63;    
  168.     K_Menu = $FF67;    
  169.     K_DEL = $FFFF;    
  170.     K_F1 = $FFBE;    
  171.     K_F2 = $FFBF;    
  172.     K_F3 = $FFC0;    
  173.     K_F4 = $FFC1;    
  174.     K_F5 = $FFC2;    
  175.     K_F6 = $FFC3;    
  176.     K_F7 = $FFC4;    
  177.     K_F8 = $FFC5;    
  178.     K_F9 = $FFC6;    
  179.     K_F10 = $FFC7;    
  180.     K_F11 = $FFC8;    
  181.     K_F12 = $FFC9;    
  182.   { no Shift/Ctrl/Alt  }
  183.     K_LSHIFT = $FFE1;    
  184.     K_RSHIFT = $FFE2;    
  185.     K_LCTRL = $FFE3;    
  186.     K_RCTRL = $FFE4;    
  187.     K_LALT = $FFE9;    
  188.     K_RALT = $FFEA;    
  189.     K_NUM = $FF7F;    
  190.     K_SCROLL = $FF14;    
  191.     K_CAPS = $FFE5;    
  192.   { Also, these are the same as the Latin-1 definition  }
  193.     K_ccedilla = $00E7;    
  194.     K_UpperCcedilla = $00C7;    
  195.   { no Shift/Ctrl/Alt  }
  196.     K_acute = $00B4;    
  197.     K_diaeresis = $00A8;    
  198.   {**************************************************** }
  199.   { Modifiers use last 4 bits. Since IUP 3.9            }
  200.   { These modifiers definitions are specific to IUP     }
  201.   {**************************************************** }
  202.   { was #define dname(params) para_def_expr }
  203.   { argument types are unknown }
  204.  
  205.   function iup_isShiftXkey(_c : char) : longint;  
  206.  
  207.   { was #define dname(params) para_def_expr }
  208.   { argument types are unknown }
  209.   function iup_isCtrlXkey(_c : char) : longint;  
  210.  
  211.   { was #define dname(params) para_def_expr }
  212.   { argument types are unknown }
  213.   function iup_isAltXkey(_c : char) : longint;  
  214.  
  215.   { was #define dname(params) para_def_expr }
  216.   { argument types are unknown }
  217.   function iup_isSysXkey(_c : char) : longint;  
  218.  
  219.   { was #define dname(params) para_def_expr }
  220.   { argument types are unknown }
  221.   function iup_XkeyBase(_c : char) : longint;  
  222.  
  223.   { Shift   }
  224.   { was #define dname(params) para_def_expr }
  225.   { argument types are unknown }
  226.   { return type might be wrong }  
  227.   function iup_XkeyShift(_c : char) : longint;  
  228.  
  229.   { Ctrl    }
  230.   { was #define dname(params) para_def_expr }
  231.   { argument types are unknown }
  232.   { return type might be wrong }  
  233.   function iup_XkeyCtrl(_c : char) : longint;  
  234.  
  235.   { Alt     }
  236.   { was #define dname(params) para_def_expr }
  237.   { argument types are unknown }
  238.   { return type might be wrong }  
  239.   function iup_XkeyAlt(_c : variant) : longint;  
  240.  
  241.   { Sys (Win or Apple)  }
  242.   { was #define dname(params) para_def_expr }
  243.   { argument types are unknown }
  244.   { return type might be wrong }  
  245.   function iup_XkeySys(_c : variant) : longint;  
  246.  
  247.   { These definitions are here for backward compatibility
  248.      and to simplify some key combination usage.
  249.      But since IUP 3.9, modifiers can be combined with any key
  250.      and they can be mixed togheter.  }
  251.   { was #define dname def_expr }
  252.   function K_sHOME : longint; { return type might be wrong }
  253.  
  254.   { was #define dname def_expr }
  255.   function K_sUP : longint; { return type might be wrong }
  256.  
  257.   { was #define dname def_expr }
  258.   function K_sPGUP : longint; { return type might be wrong }
  259.  
  260.   { was #define dname def_expr }
  261.   function K_sLEFT : longint; { return type might be wrong }
  262.  
  263.   { was #define dname def_expr }
  264.   function K_sMIDDLE : longint; { return type might be wrong }
  265.  
  266.   { was #define dname def_expr }
  267.   function K_sRIGHT : longint; { return type might be wrong }
  268.  
  269.   { was #define dname def_expr }
  270.   function K_sEND : longint; { return type might be wrong }
  271.  
  272.   { was #define dname def_expr }
  273.   function K_sDOWN : longint; { return type might be wrong }
  274.  
  275.   { was #define dname def_expr }
  276.   function K_sPGDN : longint; { return type might be wrong }
  277.  
  278.   { was #define dname def_expr }
  279.   function K_sINS : longint; { return type might be wrong }
  280.  
  281.   { was #define dname def_expr }
  282.   function K_sDEL : longint; { return type might be wrong }
  283.  
  284.   { was #define dname def_expr }
  285.   function K_sSP : longint; { return type might be wrong }
  286.  
  287.   { was #define dname def_expr }
  288.   function K_sTAB : longint; { return type might be wrong }
  289.  
  290.   { was #define dname def_expr }
  291.   function K_sCR : longint; { return type might be wrong }
  292.  
  293.   { was #define dname def_expr }
  294.   function K_sBS : longint; { return type might be wrong }
  295.  
  296.   { was #define dname def_expr }
  297.   function K_sPAUSE : longint; { return type might be wrong }
  298.  
  299.   { was #define dname def_expr }
  300.   function K_sESC : longint; { return type might be wrong }
  301.  
  302.   { was #define dname def_expr }
  303.   function K_sF1 : longint; { return type might be wrong }
  304.  
  305.   { was #define dname def_expr }
  306.   function K_sF2 : longint; { return type might be wrong }
  307.  
  308.   { was #define dname def_expr }
  309.   function K_sF3 : longint; { return type might be wrong }
  310.  
  311.   { was #define dname def_expr }
  312.   function K_sF4 : longint; { return type might be wrong }
  313.  
  314.   { was #define dname def_expr }
  315.   function K_sF5 : longint; { return type might be wrong }
  316.  
  317.   { was #define dname def_expr }
  318.   function K_sF6 : longint; { return type might be wrong }
  319.  
  320.   { was #define dname def_expr }
  321.   function K_sF7 : longint; { return type might be wrong }
  322.  
  323.   { was #define dname def_expr }
  324.   function K_sF8 : longint; { return type might be wrong }
  325.  
  326.   { was #define dname def_expr }
  327.   function K_sF9 : longint; { return type might be wrong }
  328.  
  329.   { was #define dname def_expr }
  330.   function K_sF10 : longint; { return type might be wrong }
  331.  
  332.   { was #define dname def_expr }
  333.   function K_sF11 : longint; { return type might be wrong }
  334.  
  335.   { was #define dname def_expr }
  336.   function K_sF12 : longint; { return type might be wrong }
  337.  
  338.   { was #define dname def_expr }
  339.   function K_sPrint : longint; { return type might be wrong }
  340.  
  341.   { was #define dname def_expr }
  342.   function K_sMenu : longint; { return type might be wrong }
  343.  
  344.   { was #define dname def_expr }
  345.   function K_cHOME : longint; { return type might be wrong }
  346.  
  347.   { was #define dname def_expr }
  348.   function K_cUP : longint; { return type might be wrong }
  349.  
  350.   { was #define dname def_expr }
  351.   function K_cPGUP : longint; { return type might be wrong }
  352.  
  353.   { was #define dname def_expr }
  354.   function K_cLEFT : longint; { return type might be wrong }
  355.  
  356.   { was #define dname def_expr }
  357.   function K_cMIDDLE : longint; { return type might be wrong }
  358.  
  359.   { was #define dname def_expr }
  360.   function K_cRIGHT : longint; { return type might be wrong }
  361.  
  362.   { was #define dname def_expr }
  363.   function K_cEND : longint; { return type might be wrong }
  364.  
  365.   { was #define dname def_expr }
  366.   function K_cDOWN : longint; { return type might be wrong }
  367.  
  368.   { was #define dname def_expr }
  369.   function K_cPGDN : longint; { return type might be wrong }
  370.  
  371.   { was #define dname def_expr }
  372.   function K_cINS : longint; { return type might be wrong }
  373.  
  374.   { was #define dname def_expr }
  375.   function K_cDEL : longint; { return type might be wrong }
  376.  
  377.   { was #define dname def_expr }
  378.   function K_cSP : longint; { return type might be wrong }
  379.  
  380.   { was #define dname def_expr }
  381.   function K_cTAB : longint; { return type might be wrong }
  382.  
  383.   { was #define dname def_expr }
  384.   function K_cCR : longint; { return type might be wrong }
  385.  
  386.   { was #define dname def_expr }
  387.   function K_cBS : longint; { return type might be wrong }
  388.  
  389.   { was #define dname def_expr }
  390.   function K_cPAUSE : longint; { return type might be wrong }
  391.  
  392.   { was #define dname def_expr }
  393.   function K_cESC : longint; { return type might be wrong }
  394.  
  395.   { was #define dname def_expr }
  396.   function K_cCcedilla : longint; { return type might be wrong }
  397.  
  398.   { was #define dname def_expr }
  399.   function K_cF1 : longint; { return type might be wrong }
  400.  
  401.   { was #define dname def_expr }
  402.   function K_cF2 : longint; { return type might be wrong }
  403.  
  404.   { was #define dname def_expr }
  405.   function K_cF3 : longint; { return type might be wrong }
  406.  
  407.   { was #define dname def_expr }
  408.   function K_cF4 : longint; { return type might be wrong }
  409.  
  410.   { was #define dname def_expr }
  411.   function K_cF5 : longint; { return type might be wrong }
  412.  
  413.   { was #define dname def_expr }
  414.   function K_cF6 : longint; { return type might be wrong }
  415.  
  416.   { was #define dname def_expr }
  417.   function K_cF7 : longint; { return type might be wrong }
  418.  
  419.   { was #define dname def_expr }
  420.   function K_cF8 : longint; { return type might be wrong }
  421.  
  422.   { was #define dname def_expr }
  423.   function K_cF9 : longint; { return type might be wrong }
  424.  
  425.   { was #define dname def_expr }
  426.   function K_cF10 : longint; { return type might be wrong }
  427.  
  428.   { was #define dname def_expr }
  429.   function K_cF11 : longint; { return type might be wrong }
  430.  
  431.   { was #define dname def_expr }
  432.   function K_cF12 : longint; { return type might be wrong }
  433.  
  434.   { was #define dname def_expr }
  435.   function K_cPrint : longint; { return type might be wrong }
  436.  
  437.   { was #define dname def_expr }
  438.   function K_cMenu : longint; { return type might be wrong }
  439.  
  440.   { was #define dname def_expr }
  441.   function K_mHOME : longint; { return type might be wrong }
  442.  
  443.   { was #define dname def_expr }
  444.   function K_mUP : longint; { return type might be wrong }
  445.  
  446.   { was #define dname def_expr }
  447.   function K_mPGUP : longint; { return type might be wrong }
  448.  
  449.   { was #define dname def_expr }
  450.   function K_mLEFT : longint; { return type might be wrong }
  451.  
  452.   { was #define dname def_expr }
  453.   function K_mMIDDLE : longint; { return type might be wrong }
  454.  
  455.   { was #define dname def_expr }
  456.   function K_mRIGHT : longint; { return type might be wrong }
  457.  
  458.   { was #define dname def_expr }
  459.   function K_mEND : longint; { return type might be wrong }
  460.  
  461.   { was #define dname def_expr }
  462.   function K_mDOWN : longint; { return type might be wrong }
  463.  
  464.   { was #define dname def_expr }
  465.   function K_mPGDN : longint; { return type might be wrong }
  466.  
  467.   { was #define dname def_expr }
  468.   function K_mINS : longint; { return type might be wrong }
  469.  
  470.   { was #define dname def_expr }
  471.   function K_mDEL : longint; { return type might be wrong }
  472.  
  473.   { was #define dname def_expr }
  474.   function K_mSP : longint; { return type might be wrong }
  475.  
  476.   { was #define dname def_expr }
  477.   function K_mTAB : longint; { return type might be wrong }
  478.  
  479.   { was #define dname def_expr }
  480.   function K_mCR : longint; { return type might be wrong }
  481.  
  482.   { was #define dname def_expr }
  483.   function K_mBS : longint; { return type might be wrong }
  484.  
  485.   { was #define dname def_expr }
  486.   function K_mPAUSE : longint; { return type might be wrong }
  487.  
  488.   { was #define dname def_expr }
  489.   function K_mESC : longint; { return type might be wrong }
  490.  
  491.   { was #define dname def_expr }
  492.   function K_mCcedilla : longint; { return type might be wrong }
  493.  
  494.   { was #define dname def_expr }
  495.   function K_mF1 : longint; { return type might be wrong }
  496.  
  497.   { was #define dname def_expr }
  498.   function K_mF2 : longint; { return type might be wrong }
  499.  
  500.   { was #define dname def_expr }
  501.   function K_mF3 : longint; { return type might be wrong }
  502.  
  503.   { was #define dname def_expr }
  504.   function K_mF4 : longint; { return type might be wrong }
  505.  
  506.   { was #define dname def_expr }
  507.   function K_mF5 : longint; { return type might be wrong }
  508.  
  509.   { was #define dname def_expr }
  510.   function K_mF6 : longint; { return type might be wrong }
  511.  
  512.   { was #define dname def_expr }
  513.   function K_mF7 : longint; { return type might be wrong }
  514.  
  515.   { was #define dname def_expr }
  516.   function K_mF8 : longint; { return type might be wrong }
  517.  
  518.   { was #define dname def_expr }
  519.   function K_mF9 : longint; { return type might be wrong }
  520.  
  521.   { was #define dname def_expr }
  522.   function K_mF10 : longint; { return type might be wrong }
  523.  
  524.   { was #define dname def_expr }
  525.   function K_mF11 : longint; { return type might be wrong }
  526.  
  527.   { was #define dname def_expr }
  528.   function K_mF12 : longint; { return type might be wrong }
  529.  
  530.   { was #define dname def_expr }
  531.   function K_mPrint : longint; { return type might be wrong }
  532.  
  533.   { was #define dname def_expr }
  534.   function K_mMenu : longint; { return type might be wrong }
  535.  
  536.   { was #define dname def_expr }
  537.   function K_yHOME : longint; { return type might be wrong }
  538.  
  539.   { was #define dname def_expr }
  540.   function K_yUP : longint; { return type might be wrong }
  541.  
  542.   { was #define dname def_expr }
  543.   function K_yPGUP : longint; { return type might be wrong }
  544.  
  545.   { was #define dname def_expr }
  546.   function K_yLEFT : longint; { return type might be wrong }
  547.  
  548.   { was #define dname def_expr }
  549.   function K_yMIDDLE : longint; { return type might be wrong }
  550.  
  551.   { was #define dname def_expr }
  552.   function K_yRIGHT : longint; { return type might be wrong }
  553.  
  554.   { was #define dname def_expr }
  555.   function K_yEND : longint; { return type might be wrong }
  556.  
  557.   { was #define dname def_expr }
  558.   function K_yDOWN : longint; { return type might be wrong }
  559.  
  560.   { was #define dname def_expr }
  561.   function K_yPGDN : longint; { return type might be wrong }
  562.  
  563.   { was #define dname def_expr }
  564.   function K_yINS : longint; { return type might be wrong }
  565.  
  566.   { was #define dname def_expr }
  567.   function K_yDEL : longint; { return type might be wrong }
  568.  
  569.   { was #define dname def_expr }
  570.   function K_ySP : longint; { return type might be wrong }
  571.  
  572.   { was #define dname def_expr }
  573.   function K_yTAB : longint; { return type might be wrong }
  574.  
  575.   { was #define dname def_expr }
  576.   function K_yCR : longint; { return type might be wrong }
  577.  
  578.   { was #define dname def_expr }
  579.   function K_yBS : longint; { return type might be wrong }
  580.  
  581.   { was #define dname def_expr }
  582.   function K_yPAUSE : longint; { return type might be wrong }
  583.  
  584.   { was #define dname def_expr }
  585.   function K_yESC : longint; { return type might be wrong }
  586.  
  587.   { was #define dname def_expr }
  588.   function K_yCcedilla : longint; { return type might be wrong }
  589.  
  590.   { was #define dname def_expr }
  591.   function K_yF1 : longint; { return type might be wrong }
  592.  
  593.   { was #define dname def_expr }
  594.   function K_yF2 : longint; { return type might be wrong }
  595.  
  596.   { was #define dname def_expr }
  597.   function K_yF3 : longint; { return type might be wrong }
  598.  
  599.   { was #define dname def_expr }
  600.   function K_yF4 : longint; { return type might be wrong }
  601.  
  602.   { was #define dname def_expr }
  603.   function K_yF5 : longint; { return type might be wrong }
  604.  
  605.   { was #define dname def_expr }
  606.   function K_yF6 : longint; { return type might be wrong }
  607.  
  608.   { was #define dname def_expr }
  609.   function K_yF7 : longint; { return type might be wrong }
  610.  
  611.   { was #define dname def_expr }
  612.   function K_yF8 : longint; { return type might be wrong }
  613.  
  614.   { was #define dname def_expr }
  615.   function K_yF9 : longint; { return type might be wrong }
  616.  
  617.   { was #define dname def_expr }
  618.   function K_yF10 : longint; { return type might be wrong }
  619.  
  620.   { was #define dname def_expr }
  621.   function K_yF11 : longint; { return type might be wrong }
  622.  
  623.   { was #define dname def_expr }
  624.   function K_yF12 : longint; { return type might be wrong }
  625.  
  626.   { was #define dname def_expr }
  627.   function K_yPrint : longint; { return type might be wrong }
  628.  
  629.   { was #define dname def_expr }
  630.   function K_yMenu : longint; { return type might be wrong }
  631.  
  632.   { was #define dname def_expr }
  633.   function K_sPlus : longint; { return type might be wrong }
  634.  
  635.   { was #define dname def_expr }
  636.   function K_sComma : longint; { return type might be wrong }
  637.  
  638.   { was #define dname def_expr }
  639.   function K_sMinus : longint; { return type might be wrong }
  640.  
  641.   { was #define dname def_expr }
  642.   function K_sPeriod : longint; { return type might be wrong }
  643.  
  644.   { was #define dname def_expr }
  645.   function K_sSlash : longint; { return type might be wrong }
  646.  
  647.   { was #define dname def_expr }
  648.   function K_sAsterisk : longint; { return type might be wrong }
  649.  
  650.   { was #define dname def_expr }
  651.   function K_cA : longint; { return type might be wrong }
  652.  
  653.   { was #define dname def_expr }
  654.   function K_cB : longint; { return type might be wrong }
  655.  
  656.   { was #define dname def_expr }
  657.   function K_cC : longint; { return type might be wrong }
  658.  
  659.   { was #define dname def_expr }
  660.   function K_cD : longint; { return type might be wrong }
  661.  
  662.   { was #define dname def_expr }
  663.   function K_cE : longint; { return type might be wrong }
  664.  
  665.   { was #define dname def_expr }
  666.   function K_cF : longint; { return type might be wrong }
  667.  
  668.   { was #define dname def_expr }
  669.   function K_cG : longint; { return type might be wrong }
  670.  
  671.   { was #define dname def_expr }
  672.   function K_cH : longint; { return type might be wrong }
  673.  
  674.   { was #define dname def_expr }
  675.   function K_cI : longint; { return type might be wrong }
  676.  
  677.   { was #define dname def_expr }
  678.   function K_cJ : longint; { return type might be wrong }
  679.  
  680.   { was #define dname def_expr }
  681.   function K_cK : longint; { return type might be wrong }
  682.  
  683.   { was #define dname def_expr }
  684.   function K_cL : longint; { return type might be wrong }
  685.  
  686.   { was #define dname def_expr }
  687.   function K_cM : longint; { return type might be wrong }
  688.  
  689.   { was #define dname def_expr }
  690.   function K_cN : longint; { return type might be wrong }
  691.  
  692.   { was #define dname def_expr }
  693.   function K_cO : longint; { return type might be wrong }
  694.  
  695.   { was #define dname def_expr }
  696.   function K_cP : longint; { return type might be wrong }
  697.  
  698.   { was #define dname def_expr }
  699.   function K_cQ : longint; { return type might be wrong }
  700.  
  701.   { was #define dname def_expr }
  702.   function K_cR : longint; { return type might be wrong }
  703.  
  704.   { was #define dname def_expr }
  705.   function K_cS : longint; { return type might be wrong }
  706.  
  707.   { was #define dname def_expr }
  708.   function K_cT : longint; { return type might be wrong }
  709.  
  710.   { was #define dname def_expr }
  711.   function K_cU : longint; { return type might be wrong }
  712.  
  713.   { was #define dname def_expr }
  714.   function K_cV : longint; { return type might be wrong }
  715.  
  716.   { was #define dname def_expr }
  717.   function K_cW : longint; { return type might be wrong }
  718.  
  719.   { was #define dname def_expr }
  720.   function K_cX : longint; { return type might be wrong }
  721.  
  722.   { was #define dname def_expr }
  723.   function K_cY : longint; { return type might be wrong }
  724.  
  725.   { was #define dname def_expr }
  726.   function K_cZ : longint; { return type might be wrong }
  727.  
  728.   { was #define dname def_expr }
  729.   function K_c1 : longint; { return type might be wrong }
  730.  
  731.   { was #define dname def_expr }
  732.   function K_c2 : longint; { return type might be wrong }
  733.  
  734.   { was #define dname def_expr }
  735.   function K_c3 : longint; { return type might be wrong }
  736.  
  737.   { was #define dname def_expr }
  738.   function K_c4 : longint; { return type might be wrong }
  739.  
  740.   { was #define dname def_expr }
  741.   function K_c5 : longint; { return type might be wrong }
  742.  
  743.   { was #define dname def_expr }
  744.   function K_c6 : longint; { return type might be wrong }
  745.  
  746.   { was #define dname def_expr }
  747.   function K_c7 : longint; { return type might be wrong }
  748.  
  749.   { was #define dname def_expr }
  750.   function K_c8 : longint; { return type might be wrong }
  751.  
  752.   { was #define dname def_expr }
  753.   function K_c9 : longint; { return type might be wrong }
  754.  
  755.   { was #define dname def_expr }
  756.   function K_c0 : longint; { return type might be wrong }
  757.  
  758.   { was #define dname def_expr }
  759.   function K_cPlus : longint; { return type might be wrong }
  760.  
  761.   { was #define dname def_expr }
  762.   function K_cComma : longint; { return type might be wrong }
  763.  
  764.   { was #define dname def_expr }
  765.   function K_cMinus : longint; { return type might be wrong }
  766.  
  767.   { was #define dname def_expr }
  768.   function K_cPeriod : longint; { return type might be wrong }
  769.  
  770.   { was #define dname def_expr }
  771.   function K_cSlash : longint; { return type might be wrong }
  772.  
  773.   { was #define dname def_expr }
  774.   function K_cSemicolon : longint; { return type might be wrong }
  775.  
  776.   { was #define dname def_expr }
  777.   function K_cEqual : longint; { return type might be wrong }
  778.  
  779.   { was #define dname def_expr }
  780.   function K_cBracketleft : longint; { return type might be wrong }
  781.  
  782.   { was #define dname def_expr }
  783.   function K_cBracketright : longint; { return type might be wrong }
  784.  
  785.   { was #define dname def_expr }
  786.   function K_cBackslash : longint; { return type might be wrong }
  787.  
  788.   { was #define dname def_expr }
  789.   function K_cAsterisk : longint; { return type might be wrong }
  790.  
  791.   { was #define dname def_expr }
  792.   function K_mA : longint; { return type might be wrong }
  793.  
  794.   { was #define dname def_expr }
  795.   function K_mB : longint; { return type might be wrong }
  796.  
  797.   { was #define dname def_expr }
  798.   function K_mC : longint; { return type might be wrong }
  799.  
  800.   { was #define dname def_expr }
  801.   function K_mD : longint; { return type might be wrong }
  802.  
  803.   { was #define dname def_expr }
  804.   function K_mE : longint; { return type might be wrong }
  805.  
  806.   { was #define dname def_expr }
  807.   function K_mF : longint; { return type might be wrong }
  808.  
  809.   { was #define dname def_expr }
  810.   function K_mG : longint; { return type might be wrong }
  811.  
  812.   { was #define dname def_expr }
  813.   function K_mH : longint; { return type might be wrong }
  814.  
  815.   { was #define dname def_expr }
  816.   function K_mI : longint; { return type might be wrong }
  817.  
  818.   { was #define dname def_expr }
  819.   function K_mJ : longint; { return type might be wrong }
  820.  
  821.   { was #define dname def_expr }
  822.   function K_mK : longint; { return type might be wrong }
  823.  
  824.   { was #define dname def_expr }
  825.   function K_mL : longint; { return type might be wrong }
  826.  
  827.   { was #define dname def_expr }
  828.   function K_mM : longint; { return type might be wrong }
  829.  
  830.   { was #define dname def_expr }
  831.   function K_mN : longint; { return type might be wrong }
  832.  
  833.   { was #define dname def_expr }
  834.   function K_mO : longint; { return type might be wrong }
  835.  
  836.   { was #define dname def_expr }
  837.   function K_mP : longint; { return type might be wrong }
  838.  
  839.   { was #define dname def_expr }
  840.   function K_mQ : longint; { return type might be wrong }
  841.  
  842.   { was #define dname def_expr }
  843.   function K_mR : longint; { return type might be wrong }
  844.  
  845.   { was #define dname def_expr }
  846.   function K_mS : longint; { return type might be wrong }
  847.  
  848.   { was #define dname def_expr }
  849.   function K_mT : longint; { return type might be wrong }
  850.  
  851.   { was #define dname def_expr }
  852.   function K_mU : longint; { return type might be wrong }
  853.  
  854.   { was #define dname def_expr }
  855.   function K_mV : longint; { return type might be wrong }
  856.  
  857.   { was #define dname def_expr }
  858.   function K_mW : longint; { return type might be wrong }
  859.  
  860.   { was #define dname def_expr }
  861.   function K_mX : longint; { return type might be wrong }
  862.  
  863.   { was #define dname def_expr }
  864.   function K_mY : longint; { return type might be wrong }
  865.  
  866.   { was #define dname def_expr }
  867.   function K_mZ : longint; { return type might be wrong }
  868.  
  869.   { was #define dname def_expr }
  870.   function K_m1 : longint; { return type might be wrong }
  871.  
  872.   { was #define dname def_expr }
  873.   function K_m2 : longint; { return type might be wrong }
  874.  
  875.   { was #define dname def_expr }
  876.   function K_m3 : longint; { return type might be wrong }
  877.  
  878.   { was #define dname def_expr }
  879.   function K_m4 : longint; { return type might be wrong }
  880.  
  881.   { was #define dname def_expr }
  882.   function K_m5 : longint; { return type might be wrong }
  883.  
  884.   { was #define dname def_expr }
  885.   function K_m6 : longint; { return type might be wrong }
  886.  
  887.   { was #define dname def_expr }
  888.   function K_m7 : longint; { return type might be wrong }
  889.  
  890.   { was #define dname def_expr }
  891.   function K_m8 : longint; { return type might be wrong }
  892.  
  893.   { was #define dname def_expr }
  894.   function K_m9 : longint; { return type might be wrong }
  895.  
  896.   { was #define dname def_expr }
  897.   function K_m0 : longint; { return type might be wrong }
  898.  
  899.   { was #define dname def_expr }
  900.   function K_mPlus : longint; { return type might be wrong }
  901.  
  902.   { was #define dname def_expr }
  903.   function K_mComma : longint; { return type might be wrong }
  904.  
  905.   { was #define dname def_expr }
  906.   function K_mMinus : longint; { return type might be wrong }
  907.  
  908.   { was #define dname def_expr }
  909.   function K_mPeriod : longint; { return type might be wrong }
  910.  
  911.   { was #define dname def_expr }
  912.   function K_mSlash : longint; { return type might be wrong }
  913.  
  914.   { was #define dname def_expr }
  915.   function K_mSemicolon : longint; { return type might be wrong }
  916.  
  917.   { was #define dname def_expr }
  918.   function K_mEqual : longint; { return type might be wrong }
  919.  
  920.   { was #define dname def_expr }
  921.   function K_mBracketleft : longint; { return type might be wrong }
  922.  
  923.   { was #define dname def_expr }
  924.   function K_mBracketright : longint; { return type might be wrong }
  925.  
  926.   { was #define dname def_expr }
  927.   function K_mBackslash : longint; { return type might be wrong }
  928.  
  929.   { was #define dname def_expr }
  930.   function K_mAsterisk : longint; { return type might be wrong }
  931.  
  932.   { was #define dname def_expr }
  933.   function K_yA : longint; { return type might be wrong }
  934.  
  935.   { was #define dname def_expr }
  936.   function K_yB : longint; { return type might be wrong }
  937.  
  938.   { was #define dname def_expr }
  939.   function K_yC : longint; { return type might be wrong }
  940.  
  941.   { was #define dname def_expr }
  942.   function K_yD : longint; { return type might be wrong }
  943.  
  944.   { was #define dname def_expr }
  945.   function K_yE : longint; { return type might be wrong }
  946.  
  947.   { was #define dname def_expr }
  948.   function K_yF : longint; { return type might be wrong }
  949.  
  950.   { was #define dname def_expr }
  951.   function K_yG : longint; { return type might be wrong }
  952.  
  953.   { was #define dname def_expr }
  954.   function K_yH : longint; { return type might be wrong }
  955.  
  956.   { was #define dname def_expr }
  957.   function K_yI : longint; { return type might be wrong }
  958.  
  959.   { was #define dname def_expr }
  960.   function K_yJ : longint; { return type might be wrong }
  961.  
  962.   { was #define dname def_expr }
  963.   function K_yK : longint; { return type might be wrong }
  964.  
  965.   { was #define dname def_expr }
  966.   function K_yL : longint; { return type might be wrong }
  967.  
  968.   { was #define dname def_expr }
  969.   function K_yM : longint; { return type might be wrong }
  970.  
  971.   { was #define dname def_expr }
  972.   function K_yN : longint; { return type might be wrong }
  973.  
  974.   { was #define dname def_expr }
  975.   function K_yO : longint; { return type might be wrong }
  976.  
  977.   { was #define dname def_expr }
  978.   function K_yP : longint; { return type might be wrong }
  979.  
  980.   { was #define dname def_expr }
  981.   function K_yQ : longint; { return type might be wrong }
  982.  
  983.   { was #define dname def_expr }
  984.   function K_yR : longint; { return type might be wrong }
  985.  
  986.   { was #define dname def_expr }
  987.   function K_yS : longint; { return type might be wrong }
  988.  
  989. { was #define dname def_expr }
  990. function K_yT : longint; { return type might be wrong }
  991.  
  992. { was #define dname def_expr }
  993. function K_yU : longint; { return type might be wrong }
  994.  
  995. { was #define dname def_expr }
  996. function K_yV : longint; { return type might be wrong }
  997.  
  998. { was #define dname def_expr }
  999. function K_yW : longint; { return type might be wrong }
  1000.  
  1001. { was #define dname def_expr }
  1002. function K_yX : longint; { return type might be wrong }
  1003.  
  1004. { was #define dname def_expr }
  1005. function K_yY : longint; { return type might be wrong }
  1006.  
  1007. { was #define dname def_expr }
  1008. function K_yZ : longint; { return type might be wrong }
  1009.  
  1010. { was #define dname def_expr }
  1011. function K_y1 : longint; { return type might be wrong }
  1012.  
  1013. { was #define dname def_expr }
  1014. function K_y2 : longint; { return type might be wrong }
  1015.  
  1016. { was #define dname def_expr }
  1017. function K_y3 : longint; { return type might be wrong }
  1018.  
  1019. { was #define dname def_expr }
  1020. function K_y4 : longint; { return type might be wrong }
  1021.  
  1022. { was #define dname def_expr }
  1023. function K_y5 : longint; { return type might be wrong }
  1024.  
  1025. { was #define dname def_expr }
  1026. function K_y6 : longint; { return type might be wrong }
  1027.  
  1028. { was #define dname def_expr }
  1029. function K_y7 : longint; { return type might be wrong }
  1030.  
  1031. { was #define dname def_expr }
  1032. function K_y8 : longint; { return type might be wrong }
  1033.  
  1034. { was #define dname def_expr }
  1035. function K_y9 : longint; { return type might be wrong }
  1036.  
  1037. { was #define dname def_expr }
  1038. function K_y0 : longint; { return type might be wrong }
  1039.  
  1040. { was #define dname def_expr }
  1041. function K_yPlus : longint; { return type might be wrong }
  1042.  
  1043. { was #define dname def_expr }
  1044. function K_yComma : longint; { return type might be wrong }
  1045.  
  1046. { was #define dname def_expr }
  1047. function K_yMinus : longint; { return type might be wrong }
  1048.  
  1049. { was #define dname def_expr }
  1050. function K_yPeriod : longint; { return type might be wrong }
  1051.  
  1052. { was #define dname def_expr }
  1053. function K_ySlash : longint; { return type might be wrong }
  1054.  
  1055. { was #define dname def_expr }
  1056. function K_ySemicolon : longint; { return type might be wrong }
  1057.  
  1058. { was #define dname def_expr }
  1059. function K_yEqual : longint; { return type might be wrong }
  1060.  
  1061. { was #define dname def_expr }
  1062. function K_yBracketleft : longint; { return type might be wrong }
  1063.  
  1064. { was #define dname def_expr }
  1065. function K_yBracketright : longint; { return type might be wrong }
  1066.  
  1067. { was #define dname def_expr }
  1068. function K_yBackslash : longint; { return type might be wrong }
  1069.  
  1070. { was #define dname def_expr }
  1071. function K_yAsterisk : longint; { return type might be wrong }
  1072.  
  1073. {$endif}
  1074.  
  1075. implementation
  1076.  
  1077.   { was #define dname(params) para_def_expr }
  1078.   { argument types are unknown }
  1079.   { return type might be wrong }  
  1080.   function iup_isXkey(_c : variant) : boolean;
  1081.   begin
  1082.     iup_isXkey:= _c>=128;
  1083.   end;
  1084.  
  1085.   { was #define dname(params) para_def_expr }
  1086.   { argument types are unknown }
  1087.   function iup_isShiftXkey(_c : char) : longint;
  1088.   begin
  1089.     iup_isShiftXkey:=ord(_c) and $10000000;
  1090.   end;
  1091.  
  1092.   { was #define dname(params) para_def_expr }
  1093.   { argument types are unknown }
  1094.   function iup_isCtrlXkey(_c : char) : longint;
  1095.   begin
  1096.     iup_isCtrlXkey:=ord(_c) and $20000000;
  1097.   end;
  1098.  
  1099.   { was #define dname(params) para_def_expr }
  1100.   { argument types are unknown }
  1101.   function iup_isAltXkey(_c : char) : longint;
  1102.   begin
  1103.     iup_isAltXkey:=ord(_c) and $40000000;
  1104.   end;
  1105.  
  1106.   { was #define dname(params) para_def_expr }
  1107.   { argument types are unknown }
  1108.   function iup_isSysXkey(_c : char) : longint;
  1109.   begin
  1110.     iup_isSysXkey:=ord(_c) and $80000000;
  1111.   end;
  1112.  
  1113.   { was #define dname(params) para_def_expr }
  1114.   { argument types are unknown }
  1115.   function iup_XkeyBase(_c : char) : longint;
  1116.   begin
  1117.     iup_XkeyBase:=ord(_c) and $0FFFFFFF;
  1118.   end;
  1119.  
  1120.   { was #define dname(params) para_def_expr }
  1121.   { argument types are unknown }
  1122.   { return type might be wrong }  
  1123.   function iup_XkeyShift(_c : char) : longint;
  1124.   begin
  1125.     iup_XkeyShift:=ord(_c) or $10000000;
  1126.   end;
  1127.  
  1128.   { was #define dname(params) para_def_expr }
  1129.   { argument types are unknown }
  1130.   { return type might be wrong }  
  1131.   function iup_XkeyCtrl(_c : char) : longint;
  1132.   begin
  1133.     iup_XkeyCtrl:=ord(_c) or $20000000;
  1134.   end;
  1135.  
  1136.   { was #define dname(params) para_def_expr }
  1137.   { argument types are unknown }
  1138.   { return type might be wrong }  
  1139.   function iup_XkeyAlt(_c : variant) : longint;
  1140.   begin
  1141.     iup_XkeyAlt:=_c or $40000000;
  1142.   end;
  1143.  
  1144.   { was #define dname(params) para_def_expr }
  1145.   { argument types are unknown }
  1146.   { return type might be wrong }  
  1147.   function iup_XkeySys(_c : variant) : longint;
  1148.   begin
  1149.     iup_XkeySys:=_c or $80000000;
  1150.   end;
  1151.  
  1152.   { was #define dname def_expr }
  1153.   function K_sHOME : longint; { return type might be wrong }
  1154.     begin
  1155.       K_sHOME:=385//iup_XkeyShift(K_HOME);
  1156.     end;
  1157.  
  1158.   { was #define dname def_expr }
  1159.   function K_sUP : longint; { return type might be wrong }
  1160.     begin
  1161.       K_sUP:=386//iup_XkeyShift(K_UP);
  1162.     end;
  1163.  
  1164.   { was #define dname def_expr }
  1165.   function K_sPGUP : longint; { return type might be wrong }
  1166.     begin
  1167.       K_sPGUP:=387//iup_XkeyShift(K_PGUP);
  1168.     end;
  1169.  
  1170.   { was #define dname def_expr }
  1171.   function K_sLEFT : longint; { return type might be wrong }
  1172.     begin
  1173.       K_sLEFT:=388//iup_XkeyShift(K_LEFT);
  1174.     end;
  1175.  
  1176.   { was #define dname def_expr }
  1177.   function K_sMIDDLE : longint; { return type might be wrong }
  1178.     begin
  1179.       K_sMIDDLE:=389//iup_XkeyShift(K_MIDDLE);
  1180.     end;
  1181.  
  1182.   { was #define dname def_expr }
  1183.   function K_sRIGHT : longint; { return type might be wrong }
  1184.     begin
  1185.       K_sRIGHT:=390//iup_XkeyShift(K_RIGHT);
  1186.     end;
  1187.  
  1188.   { was #define dname def_expr }
  1189.   function K_sEND : longint; { return type might be wrong }
  1190.     begin
  1191.       K_sEND:=391//iup_XkeyShift(K_END);
  1192.     end;
  1193.  
  1194.   { was #define dname def_expr }
  1195.   function K_sDOWN : longint; { return type might be wrong }
  1196.     begin
  1197.       K_sDOWN:=392//iup_XkeyShift(K_DOWN);
  1198.     end;
  1199.  
  1200.   { was #define dname def_expr }
  1201.   function K_sPGDN : longint; { return type might be wrong }
  1202.     begin
  1203.       K_sPGDN:=393//iup_XkeyShift(K_PGDN);
  1204.     end;
  1205.  
  1206.   { was #define dname def_expr }
  1207.   function K_sINS : longint; { return type might be wrong }
  1208.     begin
  1209.       K_sINS:=394//iup_XkeyShift(K_INS);
  1210.     end;
  1211.  
  1212.   { was #define dname def_expr }
  1213.   function K_sDEL : longint; { return type might be wrong }
  1214.     begin
  1215.       K_sDEL:=395//iup_XkeyShift(K_DEL);
  1216.     end;
  1217.  
  1218.   { was #define dname def_expr }
  1219.   function K_sSP : longint; { return type might be wrong }
  1220.     begin
  1221.       K_sSP:=288//iup_XkeyShift(K_SP);
  1222.     end;
  1223.  
  1224.   { was #define dname def_expr }
  1225.   function K_sTAB : longint; { return type might be wrong }
  1226.     begin
  1227.       K_sTAB:=265//iup_XkeyShift(K_CHR_TAB);
  1228.     end;
  1229.  
  1230.   { was #define dname def_expr }
  1231.   function K_sCR : longint; { return type might be wrong }
  1232.     begin
  1233.       K_sCR:=269//iup_XkeyShift(K_CR);
  1234.     end;
  1235.  
  1236.   { was #define dname def_expr }
  1237.   function K_sBS : longint; { return type might be wrong }
  1238.     begin
  1239.       K_sBS:=264//iup_XkeyShift(K_CHR_BS);
  1240.     end;
  1241.  
  1242.   { was #define dname def_expr }
  1243.   function K_sPAUSE : longint; { return type might be wrong }
  1244.     begin
  1245.       K_sPAUSE:=396//iup_XkeyShift(K_PAUSE);
  1246.     end;
  1247.  
  1248.   { was #define dname def_expr }
  1249.   function K_sESC : longint; { return type might be wrong }
  1250.     begin
  1251.       K_sESC:=397//iup_XkeyShift(K_ESC);
  1252.     end;
  1253.  
  1254.   { was #define dname def_expr }
  1255.   function K_sF1 : longint; { return type might be wrong }
  1256.     begin
  1257.       K_sF1:=399//iup_XkeyShift(K_F1);
  1258.     end;
  1259.  
  1260.   { was #define dname def_expr }
  1261.   function K_sF2 : longint; { return type might be wrong }
  1262.     begin
  1263.       K_sF2:=400//iup_XkeyShift(K_F2);
  1264.     end;
  1265.  
  1266.   { was #define dname def_expr }
  1267.   function K_sF3 : longint; { return type might be wrong }
  1268.     begin
  1269.       K_sF3:=401//iup_XkeyShift(K_F3);
  1270.     end;
  1271.  
  1272.   { was #define dname def_expr }
  1273.   function K_sF4 : longint; { return type might be wrong }
  1274.     begin
  1275.       K_sF4:=402//iup_XkeyShift(K_F4);
  1276.     end;
  1277.  
  1278.   { was #define dname def_expr }
  1279.   function K_sF5 : longint; { return type might be wrong }
  1280.     begin
  1281.       K_sF5:=403//iup_XkeyShift(K_F5);
  1282.     end;
  1283.  
  1284.   { was #define dname def_expr }
  1285.   function K_sF6 : longint; { return type might be wrong }
  1286.     begin
  1287.       K_sF6:=404//iup_XkeyShift(K_F6);
  1288.     end;
  1289.  
  1290.   { was #define dname def_expr }
  1291.   function K_sF7 : longint; { return type might be wrong }
  1292.     begin
  1293.       K_sF7:=405//iup_XkeyShift(K_F7);
  1294.     end;
  1295.  
  1296.   { was #define dname def_expr }
  1297.   function K_sF8 : longint; { return type might be wrong }
  1298.     begin
  1299.       K_sF8:=406//iup_XkeyShift(K_F8);
  1300.     end;
  1301.  
  1302.   { was #define dname def_expr }
  1303.   function K_sF9 : longint; { return type might be wrong }
  1304.     begin
  1305.       K_sF9:=407//iup_XkeyShift(K_F9);
  1306.     end;
  1307.  
  1308.   { was #define dname def_expr }
  1309.   function K_sF10 : longint; { return type might be wrong }
  1310.     begin
  1311.       K_sF10:=408//iup_XkeyShift(K_F10);
  1312.     end;
  1313.  
  1314.   { was #define dname def_expr }
  1315.   function K_sF11 : longint; { return type might be wrong }
  1316.     begin
  1317.       K_sF11:=409//iup_XkeyShift(K_F11);
  1318.     end;
  1319.  
  1320.   { was #define dname def_expr }
  1321.   function K_sF12 : longint; { return type might be wrong }
  1322.     begin
  1323.       K_sF12:=410//iup_XkeyShift(K_F12);
  1324.     end;
  1325.  
  1326.   { was #define dname def_expr }
  1327.   function K_sPrint : longint; { return type might be wrong }
  1328.     begin
  1329.       K_sPrint:=411//iup_XkeyShift(K_Print);
  1330.     end;
  1331.  
  1332.   { was #define dname def_expr }
  1333.   function K_sMenu : longint; { return type might be wrong }
  1334.     begin
  1335.       K_sMenu:=412//iup_XkeyShift(K_Menu);
  1336.     end;
  1337.  
  1338.   { was #define dname def_expr }
  1339.   function K_cHOME : longint; { return type might be wrong }
  1340.     begin
  1341.       K_cHOME:=641//iup_XkeyCtrl(K_HOME);
  1342.     end;
  1343.  
  1344.   { was #define dname def_expr }
  1345.   function K_cUP : longint; { return type might be wrong }
  1346.     begin
  1347.       K_cUP:=642//iup_XkeyCtrl(K_UP);
  1348.     end;
  1349.  
  1350.   { was #define dname def_expr }
  1351.   function K_cPGUP : longint; { return type might be wrong }
  1352.     begin
  1353.       K_cPGUP:=643//iup_XkeyCtrl(K_PGUP);
  1354.     end;
  1355.  
  1356.   { was #define dname def_expr }
  1357.   function K_cLEFT : longint; { return type might be wrong }
  1358.     begin
  1359.       K_cLEFT:=644//iup_XkeyCtrl(K_LEFT);
  1360.     end;
  1361.  
  1362.   { was #define dname def_expr }
  1363.   function K_cMIDDLE : longint; { return type might be wrong }
  1364.     begin
  1365.       K_cMIDDLE:=645//iup_XkeyCtrl(K_MIDDLE);
  1366.     end;
  1367.  
  1368.   { was #define dname def_expr }
  1369.   function K_cRIGHT : longint; { return type might be wrong }
  1370.     begin
  1371.       K_cRIGHT:=646//iup_XkeyCtrl(K_RIGHT);
  1372.     end;
  1373.  
  1374.   { was #define dname def_expr }
  1375.   function K_cEND : longint; { return type might be wrong }
  1376.     begin
  1377.       K_cEND:=647//iup_XkeyCtrl(K_END);
  1378.     end;
  1379.  
  1380.   { was #define dname def_expr }
  1381.   function K_cDOWN : longint; { return type might be wrong }
  1382.     begin
  1383.       K_cDOWN:=648//iup_XkeyCtrl(K_DOWN);
  1384.     end;
  1385.  
  1386.   { was #define dname def_expr }
  1387.   function K_cPGDN : longint; { return type might be wrong }
  1388.     begin
  1389.       K_cPGDN:=649//iup_XkeyCtrl(K_PGDN);
  1390.     end;
  1391.  
  1392.   { was #define dname def_expr }
  1393.   function K_cINS : longint; { return type might be wrong }
  1394.     begin
  1395.       K_cINS:=650//iup_XkeyCtrl(K_INS);
  1396.     end;
  1397.  
  1398.   { was #define dname def_expr }
  1399.   function K_cDEL : longint; { return type might be wrong }
  1400.     begin
  1401.       K_cDEL:=651//iup_XkeyCtrl(K_DEL);
  1402.     end;
  1403.  
  1404.   { was #define dname def_expr }
  1405.   function K_cSP : longint; { return type might be wrong }
  1406.     begin
  1407.       K_cSP:=544//iup_XkeyCtrl(K_SP);
  1408.     end;
  1409.  
  1410.   { was #define dname def_expr }
  1411.   function K_cTAB : longint; { return type might be wrong }
  1412.     begin
  1413.       K_cTAB:=521//iup_XkeyCtrl(K_CHR_TAB);
  1414.     end;
  1415.  
  1416.   { was #define dname def_expr }
  1417.   function K_cCR : longint; { return type might be wrong }
  1418.     begin
  1419.       K_cCR:=525//iup_XkeyCtrl(K_CR);
  1420.     end;
  1421.  
  1422.   { was #define dname def_expr }
  1423.   function K_cBS : longint; { return type might be wrong }
  1424.     begin
  1425.       K_cBS:=520//iup_XkeyCtrl(K_CHR_BS);
  1426.     end;
  1427.  
  1428.   { was #define dname def_expr }
  1429.   function K_cPAUSE : longint; { return type might be wrong }
  1430.     begin
  1431.       K_cPAUSE:=652//iup_XkeyCtrl(K_PAUSE);
  1432.     end;
  1433.  
  1434.   { was #define dname def_expr }
  1435.   function K_cESC : longint; { return type might be wrong }
  1436.     begin
  1437.       K_cESC:=653//iup_XkeyCtrl(K_ESC);
  1438.     end;
  1439.  
  1440.   { was #define dname def_expr }
  1441.   function K_cCcedilla : longint; { return type might be wrong }
  1442.     begin
  1443.       K_cCcedilla:=654//iup_XkeyCtrl(K_Ccedilla);
  1444.     end;
  1445.  
  1446.   { was #define dname def_expr }
  1447.   function K_cF1 : longint; { return type might be wrong }
  1448.     begin
  1449.       K_cF1:=655//iup_XkeyCtrl(K_F1);
  1450.     end;
  1451.  
  1452.   { was #define dname def_expr }
  1453.   function K_cF2 : longint; { return type might be wrong }
  1454.     begin
  1455.       K_cF2:=656//iup_XkeyCtrl(K_F2);
  1456.     end;
  1457.  
  1458.   { was #define dname def_expr }
  1459.   function K_cF3 : longint; { return type might be wrong }
  1460.     begin
  1461.       K_cF3:=657//iup_XkeyCtrl(K_F3);
  1462.     end;
  1463.  
  1464.   { was #define dname def_expr }
  1465.   function K_cF4 : longint; { return type might be wrong }
  1466.     begin
  1467.       K_cF4:=658//iup_XkeyCtrl(K_F4);
  1468.     end;
  1469.  
  1470.   { was #define dname def_expr }
  1471.   function K_cF5 : longint; { return type might be wrong }
  1472.     begin
  1473.       K_cF5:=659//iup_XkeyCtrl(K_F5);
  1474.     end;
  1475.  
  1476.   { was #define dname def_expr }
  1477.   function K_cF6 : longint; { return type might be wrong }
  1478.     begin
  1479.       K_cF6:=660//iup_XkeyCtrl(K_F6);
  1480.     end;
  1481.  
  1482.   { was #define dname def_expr }
  1483.   function K_cF7 : longint; { return type might be wrong }
  1484.     begin
  1485.       K_cF7:=661//iup_XkeyCtrl(K_F7);
  1486.     end;
  1487.  
  1488.   { was #define dname def_expr }
  1489.   function K_cF8 : longint; { return type might be wrong }
  1490.     begin
  1491.       K_cF8:=662//iup_XkeyCtrl(K_F8);
  1492.     end;
  1493.  
  1494.   { was #define dname def_expr }
  1495.   function K_cF9 : longint; { return type might be wrong }
  1496.     begin
  1497.       K_cF9:=663//iup_XkeyCtrl(K_F9);
  1498.     end;
  1499.  
  1500.   { was #define dname def_expr }
  1501.   function K_cF10 : longint; { return type might be wrong }
  1502.     begin
  1503.       K_cF10:=664//iup_XkeyCtrl(K_F10);
  1504.     end;
  1505.  
  1506.   { was #define dname def_expr }
  1507.   function K_cF11 : longint; { return type might be wrong }
  1508.     begin
  1509.       K_cF11:=665//iup_XkeyCtrl(K_F11);
  1510.     end;
  1511.  
  1512.   { was #define dname def_expr }
  1513.   function K_cF12 : longint; { return type might be wrong }
  1514.     begin
  1515.       K_cF12:=666//iup_XkeyCtrl(K_F12);
  1516.     end;
  1517.  
  1518.   { was #define dname def_expr }
  1519.   function K_cPrint : longint; { return type might be wrong }
  1520.     begin
  1521.       K_cPrint:=667//iup_XkeyCtrl(K_Print);
  1522.     end;
  1523.  
  1524.   { was #define dname def_expr }
  1525.   function K_cMenu : longint; { return type might be wrong }
  1526.     begin
  1527.       K_cMenu:=668//iup_XkeyCtrl(K_Menu);
  1528.     end;
  1529.  
  1530.   { was #define dname def_expr }
  1531.   function K_mHOME : longint; { return type might be wrong }
  1532.     begin
  1533.       K_mHOME:=897//iup_XkeyAlt(K_HOME);
  1534.     end;
  1535.  
  1536.   { was #define dname def_expr }
  1537.   function K_mUP : longint; { return type might be wrong }
  1538.     begin
  1539.       K_mUP:=898//iup_XkeyAlt(K_UP);
  1540.     end;
  1541.  
  1542.   { was #define dname def_expr }
  1543.   function K_mPGUP : longint; { return type might be wrong }
  1544.     begin
  1545.       K_mPGUP:=899//iup_XkeyAlt(K_PGUP);
  1546.     end;
  1547.  
  1548.   { was #define dname def_expr }
  1549.   function K_mLEFT : longint; { return type might be wrong }
  1550.     begin
  1551.       K_mLEFT:=900//iup_XkeyAlt(K_LEFT);
  1552.     end;
  1553.  
  1554.   { was #define dname def_expr }
  1555.   function K_mMIDDLE : longint; { return type might be wrong }
  1556.     begin
  1557.       K_mMIDDLE:=iup_XkeyAlt(K_MIDDLE);
  1558.     end;
  1559.  
  1560.   { was #define dname def_expr }
  1561.   function K_mRIGHT : longint; { return type might be wrong }
  1562.     begin
  1563.       K_mRIGHT:=iup_XkeyAlt(K_RIGHT);
  1564.     end;
  1565.  
  1566.   { was #define dname def_expr }
  1567.   function K_mEND : longint; { return type might be wrong }
  1568.     begin
  1569.       K_mEND:=iup_XkeyAlt(K_END);
  1570.     end;
  1571.  
  1572.   { was #define dname def_expr }
  1573.   function K_mDOWN : longint; { return type might be wrong }
  1574.     begin
  1575.       K_mDOWN:=iup_XkeyAlt(K_DOWN);
  1576.     end;
  1577.  
  1578.   { was #define dname def_expr }
  1579.   function K_mPGDN : longint; { return type might be wrong }
  1580.     begin
  1581.       K_mPGDN:=iup_XkeyAlt(K_PGDN);
  1582.     end;
  1583.  
  1584.   { was #define dname def_expr }
  1585.   function K_mINS : longint; { return type might be wrong }
  1586.     begin
  1587.       K_mINS:=iup_XkeyAlt(K_INS);
  1588.     end;
  1589.  
  1590.   { was #define dname def_expr }
  1591.   function K_mDEL : longint; { return type might be wrong }
  1592.     begin
  1593.       K_mDEL:=iup_XkeyAlt(K_DEL);
  1594.     end;
  1595.  
  1596.   { was #define dname def_expr }
  1597.   function K_mSP : longint; { return type might be wrong }
  1598.     begin
  1599.       K_mSP:=iup_XkeyAlt(K_SP);
  1600.     end;
  1601.  
  1602.   { was #define dname def_expr }
  1603.   function K_mTAB : longint; { return type might be wrong }
  1604.     begin
  1605.       K_mTAB:=iup_XkeyAlt(K_CHR_TAB);
  1606.     end;
  1607.  
  1608.   { was #define dname def_expr }
  1609.   function K_mCR : longint; { return type might be wrong }
  1610.     begin
  1611.       K_mCR:=iup_XkeyAlt(K_CR);
  1612.     end;
  1613.  
  1614.   { was #define dname def_expr }
  1615.   function K_mBS : longint; { return type might be wrong }
  1616.     begin
  1617.       K_mBS:=iup_XkeyAlt(K_CHR_BS);
  1618.     end;
  1619.  
  1620.   { was #define dname def_expr }
  1621.   function K_mPAUSE : longint; { return type might be wrong }
  1622.     begin
  1623.       K_mPAUSE:=iup_XkeyAlt(K_PAUSE);
  1624.     end;
  1625.  
  1626.   { was #define dname def_expr }
  1627.   function K_mESC : longint; { return type might be wrong }
  1628.     begin
  1629.       K_mESC:=iup_XkeyAlt(K_ESC);
  1630.     end;
  1631.  
  1632.   { was #define dname def_expr }
  1633.   function K_mCcedilla : longint; { return type might be wrong }
  1634.     begin
  1635.       K_mCcedilla:=iup_XkeyAlt(K_Ccedilla);
  1636.     end;
  1637.  
  1638.   { was #define dname def_expr }
  1639.   function K_mF1 : longint; { return type might be wrong }
  1640.     begin
  1641.       K_mF1:=iup_XkeyAlt(K_F1);
  1642.     end;
  1643.  
  1644.   { was #define dname def_expr }
  1645.   function K_mF2 : longint; { return type might be wrong }
  1646.     begin
  1647.       K_mF2:=iup_XkeyAlt(K_F2);
  1648.     end;
  1649.  
  1650.   { was #define dname def_expr }
  1651.   function K_mF3 : longint; { return type might be wrong }
  1652.     begin
  1653.       K_mF3:=iup_XkeyAlt(K_F3);
  1654.     end;
  1655.  
  1656.   { was #define dname def_expr }
  1657.   function K_mF4 : longint; { return type might be wrong }
  1658.     begin
  1659.       K_mF4:=iup_XkeyAlt(K_F4);
  1660.     end;
  1661.  
  1662.   { was #define dname def_expr }
  1663.   function K_mF5 : longint; { return type might be wrong }
  1664.     begin
  1665.       K_mF5:=iup_XkeyAlt(K_F5);
  1666.     end;
  1667.  
  1668.   { was #define dname def_expr }
  1669.   function K_mF6 : longint; { return type might be wrong }
  1670.     begin
  1671.       K_mF6:=iup_XkeyAlt(K_F6);
  1672.     end;
  1673.  
  1674.   { was #define dname def_expr }
  1675.   function K_mF7 : longint; { return type might be wrong }
  1676.     begin
  1677.       K_mF7:=iup_XkeyAlt(K_F7);
  1678.     end;
  1679.  
  1680.   { was #define dname def_expr }
  1681.   function K_mF8 : longint; { return type might be wrong }
  1682.     begin
  1683.       K_mF8:=iup_XkeyAlt(K_F8);
  1684.     end;
  1685.  
  1686.   { was #define dname def_expr }
  1687.   function K_mF9 : longint; { return type might be wrong }
  1688.     begin
  1689.       K_mF9:=iup_XkeyAlt(K_F9);
  1690.     end;
  1691.  
  1692.   { was #define dname def_expr }
  1693.   function K_mF10 : longint; { return type might be wrong }
  1694.     begin
  1695.       K_mF10:=iup_XkeyAlt(K_F10);
  1696.     end;
  1697.  
  1698.   { was #define dname def_expr }
  1699.   function K_mF11 : longint; { return type might be wrong }
  1700.     begin
  1701.       K_mF11:=iup_XkeyAlt(K_F11);
  1702.     end;
  1703.  
  1704.   { was #define dname def_expr }
  1705.   function K_mF12 : longint; { return type might be wrong }
  1706.     begin
  1707.       K_mF12:=iup_XkeyAlt(K_F12);
  1708.     end;
  1709.  
  1710.   { was #define dname def_expr }
  1711.   function K_mPrint : longint; { return type might be wrong }
  1712.     begin
  1713.       K_mPrint:=iup_XkeyAlt(K_Print);
  1714.     end;
  1715.  
  1716.   { was #define dname def_expr }
  1717.   function K_mMenu : longint; { return type might be wrong }
  1718.     begin
  1719.       K_mMenu:=iup_XkeyAlt(K_Menu);
  1720.     end;
  1721.  
  1722.   { was #define dname def_expr }
  1723.   function K_yHOME : longint; { return type might be wrong }
  1724.     begin
  1725.       K_yHOME:=iup_XkeySys(K_HOME);
  1726.     end;
  1727.  
  1728.   { was #define dname def_expr }
  1729.   function K_yUP : longint; { return type might be wrong }
  1730.     begin
  1731.       K_yUP:=iup_XkeySys(K_UP);
  1732.     end;
  1733.  
  1734.   { was #define dname def_expr }
  1735.   function K_yPGUP : longint; { return type might be wrong }
  1736.     begin
  1737.       K_yPGUP:=iup_XkeySys(K_PGUP);
  1738.     end;
  1739.  
  1740.   { was #define dname def_expr }
  1741.   function K_yLEFT : longint; { return type might be wrong }
  1742.     begin
  1743.       K_yLEFT:=iup_XkeySys(K_LEFT);
  1744.     end;
  1745.  
  1746.   { was #define dname def_expr }
  1747.   function K_yMIDDLE : longint; { return type might be wrong }
  1748.     begin
  1749.       K_yMIDDLE:=iup_XkeySys(K_MIDDLE);
  1750.     end;
  1751.  
  1752.   { was #define dname def_expr }
  1753.   function K_yRIGHT : longint; { return type might be wrong }
  1754.     begin
  1755.       K_yRIGHT:=iup_XkeySys(K_RIGHT);
  1756.     end;
  1757.  
  1758.   { was #define dname def_expr }
  1759.   function K_yEND : longint; { return type might be wrong }
  1760.     begin
  1761.       K_yEND:=iup_XkeySys(K_END);
  1762.     end;
  1763.  
  1764.   { was #define dname def_expr }
  1765.   function K_yDOWN : longint; { return type might be wrong }
  1766.     begin
  1767.       K_yDOWN:=iup_XkeySys(K_DOWN);
  1768.     end;
  1769.  
  1770.   { was #define dname def_expr }
  1771.   function K_yPGDN : longint; { return type might be wrong }
  1772.     begin
  1773.       K_yPGDN:=iup_XkeySys(K_PGDN);
  1774.     end;
  1775.  
  1776.   { was #define dname def_expr }
  1777.   function K_yINS : longint; { return type might be wrong }
  1778.     begin
  1779.       K_yINS:=iup_XkeySys(K_INS);
  1780.     end;
  1781.  
  1782.   { was #define dname def_expr }
  1783.   function K_yDEL : longint; { return type might be wrong }
  1784.     begin
  1785.       K_yDEL:=iup_XkeySys(K_DEL);
  1786.     end;
  1787.  
  1788.   { was #define dname def_expr }
  1789.   function K_ySP : longint; { return type might be wrong }
  1790.     begin
  1791.       K_ySP:=iup_XkeySys(K_SP);
  1792.     end;
  1793.  
  1794.   { was #define dname def_expr }
  1795.   function K_yTAB : longint; { return type might be wrong }
  1796.     begin
  1797.       K_yTAB:=iup_XkeySys(K_CHR_TAB);
  1798.     end;
  1799.  
  1800.   { was #define dname def_expr }
  1801.   function K_yCR : longint; { return type might be wrong }
  1802.     begin
  1803.       K_yCR:=iup_XkeySys(K_CHR_CR);
  1804.     end;
  1805.  
  1806.   { was #define dname def_expr }
  1807.   function K_yBS : longint; { return type might be wrong }
  1808.     begin
  1809.       K_yBS:=iup_XkeySys(K_CHR_BS);
  1810.     end;
  1811.  
  1812.   { was #define dname def_expr }
  1813.   function K_yPAUSE : longint; { return type might be wrong }
  1814.     begin
  1815.       K_yPAUSE:=iup_XkeySys(K_PAUSE);
  1816.     end;
  1817.  
  1818.   { was #define dname def_expr }
  1819.   function K_yESC : longint; { return type might be wrong }
  1820.     begin
  1821.       K_yESC:=iup_XkeySys(K_ESC);
  1822.     end;
  1823.  
  1824.   { was #define dname def_expr }
  1825.   function K_yCcedilla : longint; { return type might be wrong }
  1826.     begin
  1827.       K_yCcedilla:=iup_XkeySys(K_Ccedilla);
  1828.     end;
  1829.  
  1830.   { was #define dname def_expr }
  1831.   function K_yF1 : longint; { return type might be wrong }
  1832.     begin
  1833.       K_yF1:=iup_XkeySys(K_F1);
  1834.     end;
  1835.  
  1836.   { was #define dname def_expr }
  1837.   function K_yF2 : longint; { return type might be wrong }
  1838.     begin
  1839.       K_yF2:=iup_XkeySys(K_F2);
  1840.     end;
  1841.  
  1842.   { was #define dname def_expr }
  1843.   function K_yF3 : longint; { return type might be wrong }
  1844.     begin
  1845.       K_yF3:=iup_XkeySys(K_F3);
  1846.     end;
  1847.  
  1848.   { was #define dname def_expr }
  1849.   function K_yF4 : longint; { return type might be wrong }
  1850.     begin
  1851.       K_yF4:=iup_XkeySys(K_F4);
  1852.     end;
  1853.  
  1854.   { was #define dname def_expr }
  1855.   function K_yF5 : longint; { return type might be wrong }
  1856.     begin
  1857.       K_yF5:=iup_XkeySys(K_F5);
  1858.     end;
  1859.  
  1860.   { was #define dname def_expr }
  1861.   function K_yF6 : longint; { return type might be wrong }
  1862.     begin
  1863.       K_yF6:=iup_XkeySys(K_F6);
  1864.     end;
  1865.  
  1866.   { was #define dname def_expr }
  1867.   function K_yF7 : longint; { return type might be wrong }
  1868.     begin
  1869.       K_yF7:=iup_XkeySys(K_F7);
  1870.     end;
  1871.  
  1872.   { was #define dname def_expr }
  1873.   function K_yF8 : longint; { return type might be wrong }
  1874.     begin
  1875.       K_yF8:=iup_XkeySys(K_F8);
  1876.     end;
  1877.  
  1878.   { was #define dname def_expr }
  1879.   function K_yF9 : longint; { return type might be wrong }
  1880.     begin
  1881.       K_yF9:=iup_XkeySys(K_F9);
  1882.     end;
  1883.  
  1884.   { was #define dname def_expr }
  1885.   function K_yF10 : longint; { return type might be wrong }
  1886.     begin
  1887.       K_yF10:=iup_XkeySys(K_F10);
  1888.     end;
  1889.  
  1890.   { was #define dname def_expr }
  1891.   function K_yF11 : longint; { return type might be wrong }
  1892.     begin
  1893.       K_yF11:=iup_XkeySys(K_F11);
  1894.     end;
  1895.  
  1896.   { was #define dname def_expr }
  1897.   function K_yF12 : longint; { return type might be wrong }
  1898.     begin
  1899.       K_yF12:=iup_XkeySys(K_F12);
  1900.     end;
  1901.  
  1902.   { was #define dname def_expr }
  1903.   function K_yPrint : longint; { return type might be wrong }
  1904.     begin
  1905.       K_yPrint:=iup_XkeySys(K_Print);
  1906.     end;
  1907.  
  1908.   { was #define dname def_expr }
  1909.   function K_yMenu : longint; { return type might be wrong }
  1910.     begin
  1911.       K_yMenu:=iup_XkeySys(K_Menu);
  1912.     end;
  1913.  
  1914.   { was #define dname def_expr }
  1915.   function K_sPlus : longint; { return type might be wrong }
  1916.     begin
  1917.       K_sPlus:=iup_XkeyShift(K_plus);
  1918.     end;
  1919.  
  1920.   { was #define dname def_expr }
  1921.   function K_sComma : longint; { return type might be wrong }
  1922.     begin
  1923.       K_sComma:=iup_XkeyShift(K_comma);
  1924.     end;
  1925.  
  1926.   { was #define dname def_expr }
  1927.   function K_sMinus : longint; { return type might be wrong }
  1928.     begin
  1929.       K_sMinus:=iup_XkeyShift(K_minus);
  1930.     end;
  1931.  
  1932.   { was #define dname def_expr }
  1933.   function K_sPeriod : longint; { return type might be wrong }
  1934.     begin
  1935.       K_sPeriod:=iup_XkeyShift(K_period);
  1936.     end;
  1937.  
  1938.   { was #define dname def_expr }
  1939.   function K_sSlash : longint; { return type might be wrong }
  1940.     begin
  1941.       K_sSlash:=iup_XkeyShift(K_slash);
  1942.     end;
  1943.  
  1944.   { was #define dname def_expr }
  1945.   function K_sAsterisk : longint; { return type might be wrong }
  1946.     begin
  1947.       K_sAsterisk:=iup_XkeyShift(K_asterisk);
  1948.     end;
  1949.  
  1950.   { was #define dname def_expr }
  1951.   function K_cA : longint; { return type might be wrong }
  1952.     begin
  1953.       K_cA:=iup_XkeyCtrl(K_A);
  1954.     end;
  1955.  
  1956.   { was #define dname def_expr }
  1957.   function K_cB : longint; { return type might be wrong }
  1958.     begin
  1959.       K_cB:=iup_XkeyCtrl(K_B);
  1960.     end;
  1961.  
  1962.   { was #define dname def_expr }
  1963.   function K_cC : longint; { return type might be wrong }
  1964.     begin
  1965.       K_cC:=iup_XkeyCtrl(K_C);
  1966.     end;
  1967.  
  1968.   { was #define dname def_expr }
  1969.   function K_cD : longint; { return type might be wrong }
  1970.     begin
  1971.       K_cD:=iup_XkeyCtrl(K_D);
  1972.     end;
  1973.  
  1974.   { was #define dname def_expr }
  1975.   function K_cE : longint; { return type might be wrong }
  1976.     begin
  1977.       K_cE:=iup_XkeyCtrl(K_E);
  1978.     end;
  1979.  
  1980.   { was #define dname def_expr }
  1981.   function K_cF : longint; { return type might be wrong }
  1982.     begin
  1983.       K_cF:=iup_XkeyCtrl(K_F);
  1984.     end;
  1985.  
  1986.   { was #define dname def_expr }
  1987.   function K_cG : longint; { return type might be wrong }
  1988.     begin
  1989.       K_cG:=iup_XkeyCtrl(K_G);
  1990.     end;
  1991.  
  1992.   { was #define dname def_expr }
  1993.   function K_cH : longint; { return type might be wrong }
  1994.     begin
  1995.       K_cH:=iup_XkeyCtrl(K_H);
  1996.     end;
  1997.  
  1998.   { was #define dname def_expr }
  1999.   function K_cI : longint; { return type might be wrong }
  2000.     begin
  2001.       K_cI:=iup_XkeyCtrl(K_I);
  2002.     end;
  2003.  
  2004.   { was #define dname def_expr }
  2005.   function K_cJ : longint; { return type might be wrong }
  2006.     begin
  2007.       K_cJ:=iup_XkeyCtrl(K_J);
  2008.     end;
  2009.  
  2010.   { was #define dname def_expr }
  2011.   function K_cK : longint; { return type might be wrong }
  2012.     begin
  2013.       K_cK:=iup_XkeyCtrl(K_K);
  2014.     end;
  2015.  
  2016.   { was #define dname def_expr }
  2017.   function K_cL : longint; { return type might be wrong }
  2018.     begin
  2019.       K_cL:=iup_XkeyCtrl(K_L);
  2020.     end;
  2021.  
  2022.   { was #define dname def_expr }
  2023.   function K_cM : longint; { return type might be wrong }
  2024.     begin
  2025.       K_cM:=iup_XkeyCtrl(K_M);
  2026.     end;
  2027.  
  2028.   { was #define dname def_expr }
  2029.   function K_cN : longint; { return type might be wrong }
  2030.     begin
  2031.       K_cN:=iup_XkeyCtrl(K_N);
  2032.     end;
  2033.  
  2034.   { was #define dname def_expr }
  2035.   function K_cO : longint; { return type might be wrong }
  2036.     begin
  2037.       K_cO:=iup_XkeyCtrl(K_O);
  2038.     end;
  2039.  
  2040.   { was #define dname def_expr }
  2041.   function K_cP : longint; { return type might be wrong }
  2042.     begin
  2043.       K_cP:=iup_XkeyCtrl(K_P);
  2044.     end;
  2045.  
  2046.   { was #define dname def_expr }
  2047.   function K_cQ : longint; { return type might be wrong }
  2048.     begin
  2049.       K_cQ:=iup_XkeyCtrl(K_Q);
  2050.     end;
  2051.  
  2052.   { was #define dname def_expr }
  2053.   function K_cR : longint; { return type might be wrong }
  2054.     begin
  2055.       K_cR:=iup_XkeyCtrl(K_R);
  2056.     end;
  2057.  
  2058.   { was #define dname def_expr }
  2059.   function K_cS : longint; { return type might be wrong }
  2060.     begin
  2061.       K_cS:=iup_XkeyCtrl(K_S);
  2062.     end;
  2063.  
  2064.   { was #define dname def_expr }
  2065.   function K_cT : longint; { return type might be wrong }
  2066.     begin
  2067.       K_cT:=iup_XkeyCtrl(K_T);
  2068.     end;
  2069.  
  2070.   { was #define dname def_expr }
  2071.   function K_cU : longint; { return type might be wrong }
  2072.     begin
  2073.       K_cU:=iup_XkeyCtrl(K_U);
  2074.     end;
  2075.  
  2076.   { was #define dname def_expr }
  2077.   function K_cV : longint; { return type might be wrong }
  2078.     begin
  2079.       K_cV:=iup_XkeyCtrl(K_V);
  2080.     end;
  2081.  
  2082.   { was #define dname def_expr }
  2083.   function K_cW : longint; { return type might be wrong }
  2084.     begin
  2085.       K_cW:=iup_XkeyCtrl(K_W);
  2086.     end;
  2087.  
  2088.   { was #define dname def_expr }
  2089.   function K_cX : longint; { return type might be wrong }
  2090.     begin
  2091.       K_cX:=iup_XkeyCtrl(K_X);
  2092.     end;
  2093.  
  2094.   { was #define dname def_expr }
  2095.   function K_cY : longint; { return type might be wrong }
  2096.     begin
  2097.       K_cY:=iup_XkeyCtrl(K_Y);
  2098.     end;
  2099.  
  2100.   { was #define dname def_expr }
  2101.   function K_cZ : longint; { return type might be wrong }
  2102.     begin
  2103.       K_cZ:=iup_XkeyCtrl(K_Z);
  2104.     end;
  2105.  
  2106.   { was #define dname def_expr }
  2107.   function K_c1 : longint; { return type might be wrong }
  2108.     begin
  2109.       K_c1:=iup_XkeyCtrl(K_1);
  2110.     end;
  2111.  
  2112.   { was #define dname def_expr }
  2113.   function K_c2 : longint; { return type might be wrong }
  2114.     begin
  2115.       K_c2:=iup_XkeyCtrl(K_2);
  2116.     end;
  2117.  
  2118.   { was #define dname def_expr }
  2119.   function K_c3 : longint; { return type might be wrong }
  2120.     begin
  2121.       K_c3:=iup_XkeyCtrl(K_3);
  2122.     end;
  2123.  
  2124.   { was #define dname def_expr }
  2125.   function K_c4 : longint; { return type might be wrong }
  2126.     begin
  2127.       K_c4:=iup_XkeyCtrl(K_4);
  2128.     end;
  2129.  
  2130.   { was #define dname def_expr }
  2131.   function K_c5 : longint; { return type might be wrong }
  2132.     begin
  2133.       K_c5:=iup_XkeyCtrl(K_5);
  2134.     end;
  2135.  
  2136.   { was #define dname def_expr }
  2137.   function K_c6 : longint; { return type might be wrong }
  2138.     begin
  2139.       K_c6:=iup_XkeyCtrl(K_6);
  2140.     end;
  2141.  
  2142.   { was #define dname def_expr }
  2143.   function K_c7 : longint; { return type might be wrong }
  2144.     begin
  2145.       K_c7:=iup_XkeyCtrl(K_7);
  2146.     end;
  2147.  
  2148.   { was #define dname def_expr }
  2149.   function K_c8 : longint; { return type might be wrong }
  2150.     begin
  2151.       K_c8:=iup_XkeyCtrl(K_8);
  2152.     end;
  2153.  
  2154.   { was #define dname def_expr }
  2155.   function K_c9 : longint; { return type might be wrong }
  2156.     begin
  2157.       K_c9:=iup_XkeyCtrl(K_9);
  2158.     end;
  2159.  
  2160.   { was #define dname def_expr }
  2161.   function K_c0 : longint; { return type might be wrong }
  2162.     begin
  2163.       K_c0:=iup_XkeyCtrl(K_0);
  2164.     end;
  2165.  
  2166.   { was #define dname def_expr }
  2167.   function K_cPlus : longint; { return type might be wrong }
  2168.     begin
  2169.       K_cPlus:=iup_XkeyCtrl(K_plus);
  2170.     end;
  2171.  
  2172.   { was #define dname def_expr }
  2173.   function K_cComma : longint; { return type might be wrong }
  2174.     begin
  2175.       K_cComma:=iup_XkeyCtrl(K_comma);
  2176.     end;
  2177.  
  2178.   { was #define dname def_expr }
  2179.   function K_cMinus : longint; { return type might be wrong }
  2180.     begin
  2181.       K_cMinus:=iup_XkeyCtrl(K_minus);
  2182.     end;
  2183.  
  2184.   { was #define dname def_expr }
  2185.   function K_cPeriod : longint; { return type might be wrong }
  2186.     begin
  2187.       K_cPeriod:=iup_XkeyCtrl(K_period);
  2188.     end;
  2189.  
  2190.   { was #define dname def_expr }
  2191.   function K_cSlash : longint; { return type might be wrong }
  2192.     begin
  2193.       K_cSlash:=iup_XkeyCtrl(K_slash);
  2194.     end;
  2195.  
  2196.   { was #define dname def_expr }
  2197.   function K_cSemicolon : longint; { return type might be wrong }
  2198.     begin
  2199.       K_cSemicolon:=iup_XkeyCtrl(K_semicolon);
  2200.     end;
  2201.  
  2202.   { was #define dname def_expr }
  2203.   function K_cEqual : longint; { return type might be wrong }
  2204.     begin
  2205.       K_cEqual:=iup_XkeyCtrl(K_equal);
  2206.     end;
  2207.  
  2208.   { was #define dname def_expr }
  2209.   function K_cBracketleft : longint; { return type might be wrong }
  2210.     begin
  2211.       K_cBracketleft:=iup_XkeyCtrl(K_bracketleft);
  2212.     end;
  2213.  
  2214.   { was #define dname def_expr }
  2215.   function K_cBracketright : longint; { return type might be wrong }
  2216.     begin
  2217.       K_cBracketright:=iup_XkeyCtrl(K_bracketright);
  2218.     end;
  2219.  
  2220.   { was #define dname def_expr }
  2221.   function K_cBackslash : longint; { return type might be wrong }
  2222.     begin
  2223.       K_cBackslash:=iup_XkeyCtrl(K_backslash);
  2224.     end;
  2225.  
  2226.   { was #define dname def_expr }
  2227.   function K_cAsterisk : longint; { return type might be wrong }
  2228.     begin
  2229.       K_cAsterisk:=iup_XkeyCtrl(K_asterisk);
  2230.     end;
  2231.  
  2232.   { was #define dname def_expr }
  2233.   function K_mA : longint; { return type might be wrong }
  2234.     begin
  2235.       K_mA:=iup_XkeyAlt(K_A);
  2236.     end;
  2237.  
  2238.   { was #define dname def_expr }
  2239.   function K_mB : longint; { return type might be wrong }
  2240.     begin
  2241.       K_mB:=iup_XkeyAlt(K_B);
  2242.     end;
  2243.  
  2244.   { was #define dname def_expr }
  2245.   function K_mC : longint; { return type might be wrong }
  2246.     begin
  2247.       K_mC:=iup_XkeyAlt(K_C);
  2248.     end;
  2249.  
  2250.   { was #define dname def_expr }
  2251.   function K_mD : longint; { return type might be wrong }
  2252.     begin
  2253.       K_mD:=iup_XkeyAlt(K_D);
  2254.     end;
  2255.  
  2256.   { was #define dname def_expr }
  2257.   function K_mE : longint; { return type might be wrong }
  2258.     begin
  2259.       K_mE:=iup_XkeyAlt(K_E);
  2260.     end;
  2261.  
  2262.   { was #define dname def_expr }
  2263.   function K_mF : longint; { return type might be wrong }
  2264.     begin
  2265.       K_mF:=iup_XkeyAlt(K_F);
  2266.     end;
  2267.  
  2268.   { was #define dname def_expr }
  2269.   function K_mG : longint; { return type might be wrong }
  2270.     begin
  2271.       K_mG:=iup_XkeyAlt(K_G);
  2272.     end;
  2273.  
  2274.   { was #define dname def_expr }
  2275.   function K_mH : longint; { return type might be wrong }
  2276.     begin
  2277.       K_mH:=iup_XkeyAlt(K_H);
  2278.     end;
  2279.  
  2280.   { was #define dname def_expr }
  2281.   function K_mI : longint; { return type might be wrong }
  2282.     begin
  2283.       K_mI:=iup_XkeyAlt(K_I);
  2284.     end;
  2285.  
  2286.   { was #define dname def_expr }
  2287.   function K_mJ : longint; { return type might be wrong }
  2288.     begin
  2289.       K_mJ:=iup_XkeyAlt(K_J);
  2290.     end;
  2291.  
  2292.   { was #define dname def_expr }
  2293.   function K_mK : longint; { return type might be wrong }
  2294.     begin
  2295.       K_mK:=iup_XkeyAlt(K_K);
  2296.     end;
  2297.  
  2298.   { was #define dname def_expr }
  2299.   function K_mL : longint; { return type might be wrong }
  2300.     begin
  2301.       K_mL:=iup_XkeyAlt(K_L);
  2302.     end;
  2303.  
  2304.   { was #define dname def_expr }
  2305.   function K_mM : longint; { return type might be wrong }
  2306.     begin
  2307.       K_mM:=iup_XkeyAlt(K_M);
  2308.     end;
  2309.  
  2310.   { was #define dname def_expr }
  2311.   function K_mN : longint; { return type might be wrong }
  2312.     begin
  2313.       K_mN:=iup_XkeyAlt(K_N);
  2314.     end;
  2315.  
  2316.   { was #define dname def_expr }
  2317.   function K_mO : longint; { return type might be wrong }
  2318.     begin
  2319.       K_mO:=iup_XkeyAlt(K_O);
  2320.     end;
  2321.  
  2322.   { was #define dname def_expr }
  2323.   function K_mP : longint; { return type might be wrong }
  2324.     begin
  2325.       K_mP:=iup_XkeyAlt(K_P);
  2326.     end;
  2327.  
  2328.   { was #define dname def_expr }
  2329.   function K_mQ : longint; { return type might be wrong }
  2330.     begin
  2331.       K_mQ:=iup_XkeyAlt(K_Q);
  2332.     end;
  2333.  
  2334.   { was #define dname def_expr }
  2335.   function K_mR : longint; { return type might be wrong }
  2336.     begin
  2337.       K_mR:=iup_XkeyAlt(K_R);
  2338.     end;
  2339.  
  2340.   { was #define dname def_expr }
  2341.   function K_mS : longint; { return type might be wrong }
  2342.     begin
  2343.       K_mS:=iup_XkeyAlt(K_S);
  2344.     end;
  2345.  
  2346.   { was #define dname def_expr }
  2347.   function K_mT : longint; { return type might be wrong }
  2348.     begin
  2349.       K_mT:=iup_XkeyAlt(K_T);
  2350.     end;
  2351.  
  2352.   { was #define dname def_expr }
  2353.   function K_mU : longint; { return type might be wrong }
  2354.     begin
  2355.       K_mU:=iup_XkeyAlt(K_U);
  2356.     end;
  2357.  
  2358.   { was #define dname def_expr }
  2359.   function K_mV : longint; { return type might be wrong }
  2360.     begin
  2361.       K_mV:=iup_XkeyAlt(K_V);
  2362.     end;
  2363.  
  2364.   { was #define dname def_expr }
  2365.   function K_mW : longint; { return type might be wrong }
  2366.     begin
  2367.       K_mW:=iup_XkeyAlt(K_W);
  2368.     end;
  2369.  
  2370.   { was #define dname def_expr }
  2371.   function K_mX : longint; { return type might be wrong }
  2372.     begin
  2373.       K_mX:=iup_XkeyAlt(K_X);
  2374.     end;
  2375.  
  2376.   { was #define dname def_expr }
  2377.   function K_mY : longint; { return type might be wrong }
  2378.     begin
  2379.       K_mY:=iup_XkeyAlt(K_Y);
  2380.     end;
  2381.  
  2382.   { was #define dname def_expr }
  2383.   function K_mZ : longint; { return type might be wrong }
  2384.     begin
  2385.       K_mZ:=iup_XkeyAlt(K_Z);
  2386.     end;
  2387.  
  2388.   { was #define dname def_expr }
  2389.   function K_m1 : longint; { return type might be wrong }
  2390.     begin
  2391.       K_m1:=iup_XkeyAlt(K_1);
  2392.     end;
  2393.  
  2394.   { was #define dname def_expr }
  2395.   function K_m2 : longint; { return type might be wrong }
  2396.     begin
  2397.       K_m2:=iup_XkeyAlt(K_2);
  2398.     end;
  2399.  
  2400.   { was #define dname def_expr }
  2401.   function K_m3 : longint; { return type might be wrong }
  2402.     begin
  2403.       K_m3:=iup_XkeyAlt(K_3);
  2404.     end;
  2405.  
  2406.   { was #define dname def_expr }
  2407.   function K_m4 : longint; { return type might be wrong }
  2408.     begin
  2409.       K_m4:=iup_XkeyAlt(K_4);
  2410.     end;
  2411.  
  2412.   { was #define dname def_expr }
  2413.   function K_m5 : longint; { return type might be wrong }
  2414.     begin
  2415.       K_m5:=iup_XkeyAlt(K_5);
  2416.     end;
  2417.  
  2418.   { was #define dname def_expr }
  2419.   function K_m6 : longint; { return type might be wrong }
  2420.     begin
  2421.       K_m6:=iup_XkeyAlt(K_6);
  2422.     end;
  2423.  
  2424.   { was #define dname def_expr }
  2425.   function K_m7 : longint; { return type might be wrong }
  2426.     begin
  2427.       K_m7:=iup_XkeyAlt(K_7);
  2428.     end;
  2429.  
  2430.   { was #define dname def_expr }
  2431.   function K_m8 : longint; { return type might be wrong }
  2432.     begin
  2433.       K_m8:=iup_XkeyAlt(K_8);
  2434.     end;
  2435.  
  2436.   { was #define dname def_expr }
  2437.   function K_m9 : longint; { return type might be wrong }
  2438.     begin
  2439.       K_m9:=iup_XkeyAlt(K_9);
  2440.     end;
  2441.  
  2442.   { was #define dname def_expr }
  2443.   function K_m0 : longint; { return type might be wrong }
  2444.     begin
  2445.       K_m0:=iup_XkeyAlt(K_0);
  2446.     end;
  2447.  
  2448.   { was #define dname def_expr }
  2449.   function K_mPlus : longint; { return type might be wrong }
  2450.     begin
  2451.       K_mPlus:=iup_XkeyAlt(K_plus);
  2452.     end;
  2453.  
  2454.   { was #define dname def_expr }
  2455.   function K_mComma : longint; { return type might be wrong }
  2456.     begin
  2457.       K_mComma:=iup_XkeyAlt(K_comma);
  2458.     end;
  2459.  
  2460.   { was #define dname def_expr }
  2461.   function K_mMinus : longint; { return type might be wrong }
  2462.     begin
  2463.       K_mMinus:=iup_XkeyAlt(K_minus);
  2464.     end;
  2465.  
  2466.   { was #define dname def_expr }
  2467.   function K_mPeriod : longint; { return type might be wrong }
  2468.     begin
  2469.       K_mPeriod:=iup_XkeyAlt(K_period);
  2470.     end;
  2471.  
  2472.   { was #define dname def_expr }
  2473.   function K_mSlash : longint; { return type might be wrong }
  2474.     begin
  2475.       K_mSlash:=iup_XkeyAlt(K_slash);
  2476.     end;
  2477.  
  2478.   { was #define dname def_expr }
  2479.   function K_mSemicolon : longint; { return type might be wrong }
  2480.     begin
  2481.       K_mSemicolon:=iup_XkeyAlt(K_semicolon);
  2482.     end;
  2483.  
  2484.   { was #define dname def_expr }
  2485.   function K_mEqual : longint; { return type might be wrong }
  2486.     begin
  2487.       K_mEqual:=iup_XkeyAlt(K_equal);
  2488.     end;
  2489.  
  2490.   { was #define dname def_expr }
  2491.   function K_mBracketleft : longint; { return type might be wrong }
  2492.     begin
  2493.       K_mBracketleft:=iup_XkeyAlt(K_bracketleft);
  2494.     end;
  2495.  
  2496.   { was #define dname def_expr }
  2497.   function K_mBracketright : longint; { return type might be wrong }
  2498.     begin
  2499.       K_mBracketright:=iup_XkeyAlt(K_bracketright);
  2500.     end;
  2501.  
  2502.   { was #define dname def_expr }
  2503.   function K_mBackslash : longint; { return type might be wrong }
  2504.     begin
  2505.       K_mBackslash:=iup_XkeyAlt(K_backslash);
  2506.     end;
  2507.  
  2508.   { was #define dname def_expr }
  2509.   function K_mAsterisk : longint; { return type might be wrong }
  2510.     begin
  2511.       K_mAsterisk:=iup_XkeyAlt(K_asterisk);
  2512.     end;
  2513.  
  2514.   { was #define dname def_expr }
  2515.   function K_yA : longint; { return type might be wrong }
  2516.     begin
  2517.       K_yA:=iup_XkeySys(K_A);
  2518.     end;
  2519.  
  2520.   { was #define dname def_expr }
  2521.   function K_yB : longint; { return type might be wrong }
  2522.     begin
  2523.       K_yB:=iup_XkeySys(K_B);
  2524.     end;
  2525.  
  2526.   { was #define dname def_expr }
  2527.   function K_yC : longint; { return type might be wrong }
  2528.     begin
  2529.       K_yC:=iup_XkeySys(K_C);
  2530.     end;
  2531.  
  2532.   { was #define dname def_expr }
  2533.   function K_yD : longint; { return type might be wrong }
  2534.     begin
  2535.       K_yD:=iup_XkeySys(K_D);
  2536.     end;
  2537.  
  2538.   { was #define dname def_expr }
  2539.   function K_yE : longint; { return type might be wrong }
  2540.     begin
  2541.       K_yE:=iup_XkeySys(K_E);
  2542.     end;
  2543.  
  2544.   { was #define dname def_expr }
  2545.   function K_yF : longint; { return type might be wrong }
  2546.     begin
  2547.       K_yF:=iup_XkeySys(K_F);
  2548.     end;
  2549.  
  2550.   { was #define dname def_expr }
  2551.   function K_yG : longint; { return type might be wrong }
  2552.     begin
  2553.       K_yG:=iup_XkeySys(K_G);
  2554.     end;
  2555.  
  2556.   { was #define dname def_expr }
  2557.   function K_yH : longint; { return type might be wrong }
  2558.     begin
  2559.       K_yH:=iup_XkeySys(K_H);
  2560.     end;
  2561.  
  2562.   { was #define dname def_expr }
  2563.   function K_yI : longint; { return type might be wrong }
  2564.     begin
  2565.       K_yI:=iup_XkeySys(K_I);
  2566.     end;
  2567.  
  2568.   { was #define dname def_expr }
  2569.   function K_yJ : longint; { return type might be wrong }
  2570.     begin
  2571.       K_yJ:=iup_XkeySys(K_J);
  2572.     end;
  2573.  
  2574.   { was #define dname def_expr }
  2575.   function K_yK : longint; { return type might be wrong }
  2576.     begin
  2577.       K_yK:=iup_XkeySys(K_K);
  2578.     end;
  2579.  
  2580.   { was #define dname def_expr }
  2581.   function K_yL : longint; { return type might be wrong }
  2582.     begin
  2583.       K_yL:=iup_XkeySys(K_L);
  2584.     end;
  2585.  
  2586.   { was #define dname def_expr }
  2587.   function K_yM : longint; { return type might be wrong }
  2588.     begin
  2589.       K_yM:=iup_XkeySys(K_M);
  2590.     end;
  2591.  
  2592.   { was #define dname def_expr }
  2593.   function K_yN : longint; { return type might be wrong }
  2594.     begin
  2595.       K_yN:=iup_XkeySys(K_N);
  2596.     end;
  2597.  
  2598.   { was #define dname def_expr }
  2599.   function K_yO : longint; { return type might be wrong }
  2600.     begin
  2601.       K_yO:=iup_XkeySys(K_O);
  2602.     end;
  2603.  
  2604.   { was #define dname def_expr }
  2605.   function K_yP : longint; { return type might be wrong }
  2606.     begin
  2607.       K_yP:=iup_XkeySys(K_P);
  2608.     end;
  2609.  
  2610.   { was #define dname def_expr }
  2611.   function K_yQ : longint; { return type might be wrong }
  2612.     begin
  2613.       K_yQ:=iup_XkeySys(K_Q);
  2614.     end;
  2615.  
  2616.   { was #define dname def_expr }
  2617.   function K_yR : longint; { return type might be wrong }
  2618.     begin
  2619.       K_yR:=iup_XkeySys(K_R);
  2620.     end;
  2621.  
  2622.   { was #define dname def_expr }
  2623.   function K_yS : longint; { return type might be wrong }
  2624.     begin
  2625.       K_yS:=iup_XkeySys(K_S);
  2626.     end;
  2627.  
  2628. { was #define dname def_expr }
  2629. function K_yT : longint; { return type might be wrong }
  2630.   begin
  2631.     K_yT:=iup_XkeySys(K_T);
  2632.   end;
  2633.  
  2634. { was #define dname def_expr }
  2635. function K_yU : longint; { return type might be wrong }
  2636.   begin
  2637.     K_yU:=iup_XkeySys(K_U);
  2638.   end;
  2639.  
  2640. { was #define dname def_expr }
  2641. function K_yV : longint; { return type might be wrong }
  2642.   begin
  2643.     K_yV:=iup_XkeySys(K_V);
  2644.   end;
  2645.  
  2646. { was #define dname def_expr }
  2647. function K_yW : longint; { return type might be wrong }
  2648.   begin
  2649.     K_yW:=iup_XkeySys(K_W);
  2650.   end;
  2651.  
  2652. { was #define dname def_expr }
  2653. function K_yX : longint; { return type might be wrong }
  2654.   begin
  2655.     K_yX:=iup_XkeySys(K_X);
  2656.   end;
  2657.  
  2658. { was #define dname def_expr }
  2659. function K_yY : longint; { return type might be wrong }
  2660.   begin
  2661.     K_yY:=iup_XkeySys(K_Y);
  2662.   end;
  2663.  
  2664. { was #define dname def_expr }
  2665. function K_yZ : longint; { return type might be wrong }
  2666.   begin
  2667.     K_yZ:=iup_XkeySys(K_Z);
  2668.   end;
  2669.  
  2670. { was #define dname def_expr }
  2671. function K_y1 : longint; { return type might be wrong }
  2672.   begin
  2673.     K_y1:=iup_XkeySys(K_1);
  2674.   end;
  2675.  
  2676. { was #define dname def_expr }
  2677. function K_y2 : longint; { return type might be wrong }
  2678.   begin
  2679.     K_y2:=iup_XkeySys(K_2);
  2680.   end;
  2681.  
  2682. { was #define dname def_expr }
  2683. function K_y3 : longint; { return type might be wrong }
  2684.   begin
  2685.     K_y3:=iup_XkeySys(K_3);
  2686.   end;
  2687.  
  2688. { was #define dname def_expr }
  2689. function K_y4 : longint; { return type might be wrong }
  2690.   begin
  2691.     K_y4:=iup_XkeySys(K_4);
  2692.   end;
  2693.  
  2694. { was #define dname def_expr }
  2695. function K_y5 : longint; { return type might be wrong }
  2696.   begin
  2697.     K_y5:=iup_XkeySys(K_5);
  2698.   end;
  2699.  
  2700. { was #define dname def_expr }
  2701. function K_y6 : longint; { return type might be wrong }
  2702.   begin
  2703.     K_y6:=iup_XkeySys(K_6);
  2704.   end;
  2705.  
  2706. { was #define dname def_expr }
  2707. function K_y7 : longint; { return type might be wrong }
  2708.   begin
  2709.     K_y7:=iup_XkeySys(K_7);
  2710.   end;
  2711.  
  2712. { was #define dname def_expr }
  2713. function K_y8 : longint; { return type might be wrong }
  2714.   begin
  2715.     K_y8:=iup_XkeySys(K_8);
  2716.   end;
  2717.  
  2718. { was #define dname def_expr }
  2719. function K_y9 : longint; { return type might be wrong }
  2720.   begin
  2721.     K_y9:=iup_XkeySys(K_9);
  2722.   end;
  2723.  
  2724. { was #define dname def_expr }
  2725. function K_y0 : longint; { return type might be wrong }
  2726.   begin
  2727.     K_y0:=iup_XkeySys(K_0);
  2728.   end;
  2729.  
  2730. { was #define dname def_expr }
  2731. function K_yPlus : longint; { return type might be wrong }
  2732.   begin
  2733.     K_yPlus:=iup_XkeySys(K_plus);
  2734.   end;
  2735.  
  2736. { was #define dname def_expr }
  2737. function K_yComma : longint; { return type might be wrong }
  2738.   begin
  2739.     K_yComma:=iup_XkeySys(K_comma);
  2740.   end;
  2741.  
  2742. { was #define dname def_expr }
  2743. function K_yMinus : longint; { return type might be wrong }
  2744.   begin
  2745.     K_yMinus:=iup_XkeySys(K_minus);
  2746.   end;
  2747.  
  2748. { was #define dname def_expr }
  2749. function K_yPeriod : longint; { return type might be wrong }
  2750.   begin
  2751.     K_yPeriod:=iup_XkeySys(K_period);
  2752.   end;
  2753.  
  2754. { was #define dname def_expr }
  2755. function K_ySlash : longint; { return type might be wrong }
  2756.   begin
  2757.     K_ySlash:=iup_XkeySys(K_slash);
  2758.   end;
  2759.  
  2760. { was #define dname def_expr }
  2761. function K_ySemicolon : longint; { return type might be wrong }
  2762.   begin
  2763.     K_ySemicolon:=iup_XkeySys(K_semicolon);
  2764.   end;
  2765.  
  2766. { was #define dname def_expr }
  2767. function K_yEqual : longint; { return type might be wrong }
  2768.   begin
  2769.     K_yEqual:=iup_XkeySys(K_equal);
  2770.   end;
  2771.  
  2772. { was #define dname def_expr }
  2773. function K_yBracketleft : longint; { return type might be wrong }
  2774.   begin
  2775.     K_yBracketleft:=iup_XkeySys(K_bracketleft);
  2776.   end;
  2777.  
  2778. { was #define dname def_expr }
  2779. function K_yBracketright : longint; { return type might be wrong }
  2780.   begin
  2781.     K_yBracketright:=iup_XkeySys(K_bracketright);
  2782.   end;
  2783.  
  2784. { was #define dname def_expr }
  2785. function K_yBackslash : longint; { return type might be wrong }
  2786.   begin
  2787.     K_yBackslash:=iup_XkeySys(K_backslash);
  2788.   end;
  2789.  
  2790. { was #define dname def_expr }
  2791. function K_yAsterisk : longint; { return type might be wrong }
  2792.   begin
  2793.     K_yAsterisk:=iup_XkeySys(K_asterisk);
  2794.   end;
  2795.  
  2796.  
  2797. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!