API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Mar 27th, 2020
325
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 38.14 KB | None | 0 0
raw download clone embed print report
  1.  
  2. unit iupkey;
  3. interface
  4.  
  5. {
  6.   Automatically converted by H2Pas 1.0.0 from iupkey.h
  7.   The following command line parameters were used:
  8.     -p
  9.     -S
  10.     iupkey.h
  11. }
  12.  
  13. { Pointers to basic pascal types, inserted by h2pas conversion program.}
  14. Type
  15.   PLongint  = ^Longint;
  16.   PSmallInt = ^SmallInt;
  17.   PByte     = ^Byte;
  18.   PWord     = ^Word;
  19.   PDWord    = ^DWord;
  20.   PDouble   = ^Double;
  21.  
  22. {$IFDEF FPC}
  23. {$PACKRECORDS C}
  24. {$ENDIF}
  25.  
  26.  
  27.  
  28. {$ifndef __IUPKEY_H }
  29. {$define __IUPKEY_H}
  30.  
  31.  
  32.   const
  33.     K_SP           =    #32;
  34.     K_exclam       =    #33;
  35.     K_quotedbl     =    #34;
  36.     K_numbersign   =    #35;
  37.     K_dollar       =    #36;
  38.     K_percent      =    #37;
  39.     K_ampersand    =    #38;
  40.     K_apostrophe   =    #39;
  41.     K_parentleft   =    #40;
  42.     K_parentright) =    #41;
  43.     K_asterisk     =    #42;
  44.     K_plus         =    #43;
  45.     K_comma        =    #44;
  46.     K_minus        =    #45;
  47.     K_period       =    #46;
  48.     K_slash        =    #47;
  49.     K_0            =    #48;
  50.     K_1            =    #49;
  51.     K_2            =    #50;
  52.     K_3            =    #51;
  53.     K_4            =    #52;
  54.     K_5            =    #53;
  55.     K_6            =    #54;
  56.     K_7            =    #55;
  57.     K_8            =    #56;
  58.     K_9            =    #57;
  59.     K_colon        =    #58;
  60.     K_semicolon    =    #59;
  61.     K_less         =    #60;
  62.     K_equal        =    #61;
  63.     K_greater      =    #62;
  64.     K_question     =    #63;
  65.     K_at           =    #64;
  66.     K_A            =    #65;
  67.     K_B            =    #66;
  68.     K_C            =    #67;
  69.     K_D            =    #68;
  70.     K_E            =    #69;
  71.     K_F            =    #70;
  72.     K_G            =    #71;
  73.     K_H            =    #72;
  74.     K_I            =    #73;
  75.     K_J            =    #74;
  76.     K_K            =    #75;
  77.     K_L            =    #76;
  78.     K_M            =    #77;
  79.     K_N            =    #78;
  80.     K_O            =    #79;
  81.     K_P            =    #80;
  82.     K_Q            =    #81;
  83.     K_R            =    #82;
  84.     K_S            =    #83;
  85.     K_T            =    #84;
  86.     K_U            =    #85;
  87.     K_V            =    #86;
  88.     K_W            =    #87;
  89.     K_X            =    #88;
  90.     K_Y            =    #89;
  91.     K_Z            =    #90;
  92.     K_bracketleft  =    #91;
  93.     K_backslash    =    #92;
  94.     K_bracketright =    #93;
  95.     K_circum       =    #94;
  96.     K_underscore   =    #95;
  97.     K_grave        =    #96;
  98.     K_a            =    #97;
  99.     K_b            =    #98;
  100.     K_c            =    #99;
  101.     K_d            =    #100;
  102.     K_e            =    #101;
  103.     K_f            =    #102;
  104.     K_g            =    #103;
  105.     K_h            =    #104;
  106.     K_i            =    #105;
  107.     K_j            =    #106;
  108.     K_k            =    #107;
  109.     K_l            =    #108;
  110.     K_m            =    #109;
  111.     K_n            =    #110;
  112.     K_o            =    #111;
  113.     K_p            =    #112;
  114.     K_q            =    #113;
  115.     K_r            =    #114;
  116.     K_s            =    #115;
  117.     K_t            =    #116;
  118.     K_u            =    #117;
  119.     K_v            =    #118;
  120.     K_w            =    #119;
  121.     K_x            =    #120;
  122.     K_y            =    #121;
  123.     K_z            =    #122;
  124.     K_braceleft    =    #123;
  125.     K_bar          =    #124;
  126.     K_braceright   =    #125;
  127.     K_tilde        =    #126;
  128.  
  129.   const
  130.     K_BS           =    #8;
  131.     K_TAB          =    #9;
  132.     K_LF           =    #10;
  133.     K_CR           =    #13;
  134.  
  135.   const
  136.     K_quoteleft = K_grave;
  137.     K_quoteright = K_apostrophe;
  138.  
  139.  
  140.  
  141.  
  142.  
  143.   const
  144.     K_PAUSE = $FF13;
  145.     K_ESC = $FF1B;
  146.     K_HOME = $FF50;
  147.     K_LEFT = $FF51;
  148.     K_UP = $FF52;
  149.     K_RIGHT = $FF53;
  150.     K_DOWN = $FF54;
  151.     K_PGUP = $FF55;
  152.     K_PGDN = $FF56;
  153.     K_END = $FF57;
  154.     K_MIDDLE = $FF0B;
  155.     K_Print = $FF61;
  156.     K_INS = $FF63;
  157.     K_Menu = $FF67;
  158.     K_DEL = $FFFF;
  159.     K_F1 = $FFBE;
  160.     K_F2 = $FFBF;
  161.     K_F3 = $FFC0;
  162.     K_F4 = $FFC1;
  163.     K_F5 = $FFC2;
  164.     K_F6 = $FFC3;
  165.     K_F7 = $FFC4;
  166.     K_F8 = $FFC5;
  167.     K_F9 = $FFC6;
  168.     K_F10 = $FFC7;
  169.     K_F11 = $FFC8;
  170.     K_F12 = $FFC9;
  171.  
  172.     K_LSHIFT = $FFE1;
  173.     K_RSHIFT = $FFE2;
  174.     K_LCTRL = $FFE3;
  175.     K_RCTRL = $FFE4;
  176.     K_LALT = $FFE9;
  177.     K_RALT = $FFEA;
  178.     K_NUM = $FF7F;
  179.     K_SCROLL = $FF14;
  180.     K_CAPS = $FFE5;
  181.  
  182.     K_ccedilla = $00E7;
  183.     K_Ccedilla = $00C7;
  184.  
  185.     K_acute = $00B4;
  186.     K_diaeresis = $00A8;
  187.  
  188.  
  189.  
  190.  
  191.  
  192.   function iup_isprint(_c : byte) : boolean;
  193.  
  194.   function iup_isXkey(_c : byte) : boolean;
  195.  
  196.   function isxkey(_c : byte) : boolean;
  197.  
  198.  
  199.   (* I think the data type word should be more suitable than longint *)
  200.  
  201.  
  202.   function iup_isShiftXkey(_c : longint) : longint;
  203.  
  204.   function iup_isCtrlXkey(_c : longint) : longint;
  205.  
  206.   function iup_isAltXkey(_c : longint) : longint;
  207.  
  208.   function iup_isSysXkey(_c : longint) : longint;
  209.  
  210.   function iup_XkeyBase(_c : longint) : longint;
  211.  
  212.  
  213.   function iup_XkeyShift(_c : longint) : longint;
  214.  
  215.  
  216.   function iup_XkeyCtrl(_c : longint) : longint;
  217.  
  218.  
  219.   function iup_XkeyAlt(_c : longint) : longint;
  220.  
  221.  
  222.   function iup_XkeySys(_c : longint) : longint;
  223.  
  224.  
  225.   function K_sHOME : longint;
  226.  
  227.   function K_sUP : longint;
  228.  
  229.   function K_sPGUP : longint;
  230.  
  231.   function K_sLEFT : longint;
  232.  
  233.   function K_sMIDDLE : longint;
  234.  
  235.   function K_sRIGHT : longint;
  236.  
  237.   function K_sEND : longint;
  238.  
  239.   function K_sDOWN : longint;
  240.  
  241.   function K_sPGDN : longint;
  242.  
  243.   function K_sINS : longint;
  244.  
  245.   function K_sDEL : longint;
  246.  
  247.   function K_sSP : longint;
  248.  
  249.   function K_sTAB : longint;
  250.  
  251.   function K_sCR : longint;
  252.  
  253.   function K_sBS : longint;
  254.  
  255.   function K_sPAUSE : longint;
  256.  
  257.   function K_sESC : longint;
  258.  
  259.   function K_sF1 : longint;
  260.  
  261.   function K_sF2 : longint;
  262.  
  263.   function K_sF3 : longint;
  264.  
  265.   function K_sF4 : longint;
  266.  
  267.   function K_sF5 : longint;
  268.  
  269.   function K_sF6 : longint;
  270.  
  271.   function K_sF7 : longint;
  272.  
  273.   function K_sF8 : longint;
  274.  
  275.   function K_sF9 : longint;
  276.  
  277.   function K_sF10 : longint;
  278.  
  279.   function K_sF11 : longint;
  280.  
  281.   function K_sF12 : longint;
  282.  
  283.   function K_sPrint : longint;
  284.  
  285.   function K_sMenu : longint;
  286.  
  287.   function K_cHOME : longint;
  288.  
  289.   function K_cUP : longint;
  290.  
  291.   function K_cPGUP : longint;
  292.  
  293.   function K_cLEFT : longint;
  294.  
  295.   function K_cMIDDLE : longint;
  296.  
  297.   function K_cRIGHT : longint;
  298.  
  299.   function K_cEND : longint;
  300.  
  301.   function K_cDOWN : longint;
  302.  
  303.   function K_cPGDN : longint;
  304.  
  305.   function K_cINS : longint;
  306.  
  307.   function K_cDEL : longint;
  308.  
  309.   function K_cSP : longint;
  310.  
  311.   function K_cTAB : longint;
  312.  
  313.   function K_cCR : longint;
  314.  
  315.   function K_cBS : longint;
  316.  
  317.   function K_cPAUSE : longint;
  318.  
  319.   function K_cESC : longint;
  320.  
  321.   function K_cCcedilla : longint;
  322.  
  323.   function K_cF1 : longint;
  324.  
  325.   function K_cF2 : longint;
  326.  
  327.   function K_cF3 : longint;
  328.  
  329.   function K_cF4 : longint;
  330.  
  331.   function K_cF5 : longint;
  332.  
  333.   function K_cF6 : longint;
  334.  
  335.   function K_cF7 : longint;
  336.  
  337.   function K_cF8 : longint;
  338.  
  339.   function K_cF9 : longint;
  340.  
  341.   function K_cF10 : longint;
  342.  
  343.   function K_cF11 : longint;
  344.  
  345.   function K_cF12 : longint;
  346.  
  347.   function K_cPrint : longint;
  348.  
  349.   function K_cMenu : longint;
  350.  
  351.   function K_mHOME : longint;
  352.  
  353.   function K_mUP : longint;
  354.  
  355.   function K_mPGUP : longint;
  356.  
  357.   function K_mLEFT : longint;
  358.  
  359.   function K_mMIDDLE : longint;
  360.  
  361.   function K_mRIGHT : longint;
  362.  
  363.   function K_mEND : longint;
  364.  
  365.   function K_mDOWN : longint;
  366.  
  367.   function K_mPGDN : longint;
  368.  
  369.   function K_mINS : longint;
  370.  
  371.   function K_mDEL : longint;
  372.  
  373.   function K_mSP : longint;
  374.  
  375.   function K_mTAB : longint;
  376.  
  377.   function K_mCR : longint;
  378.  
  379.   function K_mBS : longint;
  380.  
  381.   function K_mPAUSE : longint;
  382.  
  383.   function K_mESC : longint;
  384.  
  385.   function K_mCcedilla : longint;
  386.  
  387.   function K_mF1 : longint;
  388.  
  389.   function K_mF2 : longint;
  390.  
  391.   function K_mF3 : longint;
  392.  
  393.   function K_mF4 : longint;
  394.  
  395.   function K_mF5 : longint;
  396.  
  397.   function K_mF6 : longint;
  398.  
  399.   function K_mF7 : longint;
  400.  
  401.   function K_mF8 : longint;
  402.  
  403.   function K_mF9 : longint;
  404.  
  405.   function K_mF10 : longint;
  406.  
  407.   function K_mF11 : longint;
  408.  
  409.   function K_mF12 : longint;
  410.  
  411.   function K_mPrint : longint;
  412.  
  413.   function K_mMenu : longint;
  414.  
  415.   function K_yHOME : longint;
  416.  
  417.   function K_yUP : longint;
  418.  
  419.   function K_yPGUP : longint;
  420.  
  421.   function K_yLEFT : longint;
  422.  
  423.   function K_yMIDDLE : longint;
  424.  
  425.   function K_yRIGHT : longint;
  426.  
  427.   function K_yEND : longint;
  428.  
  429.   function K_yDOWN : longint;
  430.  
  431.   function K_yPGDN : longint;
  432.  
  433.   function K_yINS : longint;
  434.  
  435.   function K_yDEL : longint;
  436.  
  437.   function K_ySP : longint;
  438.  
  439.   function K_yTAB : longint;
  440.  
  441.   function K_yCR : longint;
  442.  
  443.   function K_yBS : longint;
  444.  
  445.   function K_yPAUSE : longint;
  446.  
  447.   function K_yESC : longint;
  448.  
  449.   function K_yCcedilla : longint;
  450.  
  451.   function K_yF1 : longint;
  452.  
  453.   function K_yF2 : longint;
  454.  
  455.   function K_yF3 : longint;
  456.  
  457.   function K_yF4 : longint;
  458.  
  459.   function K_yF5 : longint;
  460.  
  461.   function K_yF6 : longint;
  462.  
  463.   function K_yF7 : longint;
  464.  
  465.   function K_yF8 : longint;
  466.  
  467.   function K_yF9 : longint;
  468.  
  469.   function K_yF10 : longint;
  470.  
  471.   function K_yF11 : longint;
  472.  
  473.   function K_yF12 : longint;
  474.  
  475.   function K_yPrint : longint;
  476.  
  477.   function K_yMenu : longint;
  478.  
  479.   function K_sPlus : longint;
  480.  
  481.   function K_sComma : longint;
  482.  
  483.   function K_sMinus : longint;
  484.  
  485.   function K_sPeriod : longint;
  486.  
  487.   function K_sSlash : longint;
  488.  
  489.   function K_sAsterisk : longint;
  490.  
  491.   function K_cA : longint;
  492.  
  493.   function K_cB : longint;
  494.  
  495.   function K_cC : longint;
  496.  
  497.   function K_cD : longint;
  498.  
  499.   function K_cE : longint;
  500.  
  501.   function K_cF : longint;
  502.  
  503.   function K_cG : longint;
  504.  
  505.   function K_cH : longint;
  506.  
  507.   function K_cI : longint;
  508.  
  509.   function K_cJ : longint;
  510.  
  511.   function K_cK : longint;
  512.  
  513.   function K_cL : longint;
  514.  
  515.   function K_cM : longint;
  516.  
  517.   function K_cN : longint;
  518.  
  519.   function K_cO : longint;
  520.  
  521.   function K_cP : longint;
  522.  
  523.   function K_cQ : longint;
  524.  
  525.   function K_cR : longint;
  526.  
  527.   function K_cS : longint;
  528.  
  529.   function K_cT : longint;
  530.  
  531.   function K_cU : longint;
  532.  
  533.   function K_cV : longint;
  534.  
  535.   function K_cW : longint;
  536.  
  537.   function K_cX : longint;
  538.  
  539.   function K_cY : longint;
  540.  
  541.   function K_cZ : longint;
  542.  
  543.   function K_c1 : longint;
  544.  
  545.   function K_c2 : longint;
  546.  
  547.   function K_c3 : longint;
  548.  
  549.   function K_c4 : longint;
  550.  
  551.   function K_c5 : longint;
  552.  
  553.   function K_c6 : longint;
  554.  
  555.   function K_c7 : longint;
  556.  
  557.   function K_c8 : longint;
  558.  
  559.   function K_c9 : longint;
  560.  
  561.   function K_c0 : longint;
  562.  
  563.   function K_cPlus : longint;
  564.  
  565.   function K_cComma : longint;
  566.  
  567.   function K_cMinus : longint;
  568.  
  569.   function K_cPeriod : longint;
  570.  
  571.   function K_cSlash : longint;
  572.  
  573.   function K_cSemicolon : longint;
  574.  
  575.   function K_cEqual : longint;
  576.  
  577.   function K_cBracketleft : longint;
  578.  
  579.   function K_cBracketright : longint;
  580.  
  581.   function K_cBackslash : longint;
  582.  
  583.   function K_cAsterisk : longint;
  584.  
  585.   function K_mA : longint;
  586.  
  587.   function K_mB : longint;
  588.  
  589.   function K_mC : longint;
  590.  
  591.   function K_mD : longint;
  592.  
  593.   function K_mE : longint;
  594.  
  595.   function K_mF : longint;
  596.  
  597.   function K_mG : longint;
  598.  
  599.   function K_mH : longint;
  600.  
  601.   function K_mI : longint;
  602.  
  603.   function K_mJ : longint;
  604.  
  605.   function K_mK : longint;
  606.  
  607.   function K_mL : longint;
  608.  
  609.   function K_mM : longint;
  610.  
  611.   function K_mN : longint;
  612.  
  613.   function K_mO : longint;
  614.  
  615.   function K_mP : longint;
  616.  
  617.   function K_mQ : longint;
  618.  
  619.   function K_mR : longint;
  620.  
  621.   function K_mS : longint;
  622.  
  623.   function K_mT : longint;
  624.  
  625.   function K_mU : longint;
  626.  
  627.   function K_mV : longint;
  628.  
  629.   function K_mW : longint;
  630.  
  631.   function K_mX : longint;
  632.  
  633.   function K_mY : longint;
  634.  
  635.   function K_mZ : longint;
  636.  
  637.   function K_m1 : longint;
  638.  
  639.   function K_m2 : longint;
  640.  
  641.   function K_m3 : longint;
  642.  
  643.   function K_m4 : longint;
  644.  
  645.   function K_m5 : longint;
  646.  
  647.   function K_m6 : longint;
  648.  
  649.   function K_m7 : longint;
  650.  
  651.   function K_m8 : longint;
  652.  
  653.   function K_m9 : longint;
  654.  
  655.   function K_m0 : longint;
  656.  
  657.   function K_mPlus : longint;
  658.  
  659.   function K_mComma : longint;
  660.  
  661.   function K_mMinus : longint;
  662.  
  663.   function K_mPeriod : longint;
  664.  
  665.   function K_mSlash : longint;
  666.  
  667.   function K_mSemicolon : longint;
  668.  
  669.   function K_mEqual : longint;
  670.  
  671.   function K_mBracketleft : longint;
  672.  
  673.   function K_mBracketright : longint;
  674.  
  675.   function K_mBackslash : longint;
  676.  
  677.   function K_mAsterisk : longint;
  678.  
  679.   function K_yA : longint;
  680.  
  681.   function K_yB : longint;
  682.  
  683.   function K_yC : longint;
  684.  
  685.   function K_yD : longint;
  686.  
  687.   function K_yE : longint;
  688.  
  689.   function K_yF : longint;
  690.  
  691.   function K_yG : longint;
  692.  
  693.   function K_yH : longint;
  694.  
  695.   function K_yI : longint;
  696.  
  697.   function K_yJ : longint;
  698.  
  699.   function K_yK : longint;
  700.  
  701.   function K_yL : longint;
  702.  
  703.   function K_yM : longint;
  704.  
  705.   function K_yN : longint;
  706.  
  707.   function K_yO : longint;
  708.  
  709.   function K_yP : longint;
  710.  
  711.   function K_yQ : longint;
  712.  
  713.   function K_yR : longint;
  714.  
  715. function K_yS : longint;
  716.  
  717. function K_yT : longint;
  718.  
  719. function K_yU : longint;
  720.  
  721. function K_yV : longint;
  722.  
  723. function K_yW : longint;
  724.  
  725. function K_yX : longint;
  726.  
  727. function K_yY : longint;
  728.  
  729. function K_yZ : longint;
  730.  
  731. function K_y1 : longint;
  732.  
  733. function K_y2 : longint;
  734.  
  735. function K_y3 : longint;
  736.  
  737. function K_y4 : longint;
  738.  
  739. function K_y5 : longint;
  740.  
  741. function K_y6 : longint;
  742.  
  743. function K_y7 : longint;
  744.  
  745. function K_y8 : longint;
  746.  
  747. function K_y9 : longint;
  748.  
  749. function K_y0 : longint;
  750.  
  751. function K_yPlus : longint;
  752.  
  753. function K_yComma : longint;
  754.  
  755. function K_yMinus : longint;
  756.  
  757. function K_yPeriod : longint;
  758.  
  759. function K_ySlash : longint;
  760.  
  761. function K_ySemicolon : longint;
  762.  
  763. function K_yEqual : longint;
  764.  
  765. function K_yBracketleft : longint;
  766.  
  767. function K_yBracketright : longint;
  768.  
  769. function K_yBackslash : longint;
  770.  
  771. function K_yAsterisk : longint;
  772.  
  773.  
  774.  
  775. implementation
  776.  
  777.   function iup_isprint(_c : byte) : boolean;
  778.   begin
  779.     iup_isprint:= (_c > 31) and (_c < 127);
  780.   end;
  781.  
  782.   function iup_isXkey(_c : byte) : boolean;
  783.   begin
  784.     iup_isXkey:= _c >= 128;
  785.   end;
  786.  
  787.   function isxkey(_c : byte) : boolean;
  788.   begin
  789.     isxkey:= iup_isXkey(_c);
  790.   end;
  791.  
  792.  
  793.   function iup_isShiftXkey(_c : longint) : longint;
  794.   begin
  795.     iup_isShiftXkey:= (_c and $10000000);
  796.   end;
  797.  
  798.   function iup_isCtrlXkey(_c : longint) : longint;
  799.   begin
  800.     iup_isCtrlXkey:= (_c and $20000000);
  801.   end;
  802.  
  803.   function iup_isAltXkey(_c : longint) : longint;
  804.   begin
  805.     iup_isAltXkey:= (_c and $40000000);
  806.   end;
  807.  
  808.   function iup_isSysXkey(_c : longint) : longint;
  809.   begin
  810.     iup_isSysXkey:= (_c and $80000000);
  811.   end;
  812.  
  813.   function iup_XkeyBase(_c : longint) : longint;
  814.   begin
  815.     iup_XkeyBase:= (_c and $0FFFFFFF);
  816.   end;
  817.  
  818.   function iup_XkeyShift(_c : longint) : longint;
  819.   begin
  820.     iup_XkeyShift:= (_c or $10000000);
  821.   end;
  822.  
  823.   function iup_XkeyCtrl(_c : longint) : longint;
  824.   begin
  825.     iup_XkeyCtrl:= (_c or $20000000);
  826.   end;
  827.  
  828.   function iup_XkeyAlt(_c : longint) : longint;
  829.   begin
  830.     iup_XkeyAlt:= (_c or $40000000);
  831.   end;
  832.  
  833.   function iup_XkeySys(_c : longint) : longint;
  834.   begin
  835.     iup_XkeySys:= (_c or $80000000);
  836.   end;
  837.  
  838.   function K_sHOME : longint;
  839.     begin
  840.       K_sHOME:=iup_XkeyShift(K_HOME);
  841.     end;
  842.  
  843.   function K_sUP : longint;
  844.     begin
  845.       K_sUP:=iup_XkeyShift(K_UP);
  846.     end;
  847.  
  848.   function K_sPGUP : longint;
  849.     begin
  850.       K_sPGUP:=iup_XkeyShift(K_PGUP);
  851.     end;
  852.  
  853.   function K_sLEFT : longint;
  854.     begin
  855.       K_sLEFT:=iup_XkeyShift(K_LEFT);
  856.     end;
  857.  
  858.   function K_sMIDDLE : longint;
  859.     begin
  860.       K_sMIDDLE:=iup_XkeyShift(K_MIDDLE);
  861.     end;
  862.  
  863.   function K_sRIGHT : longint;
  864.     begin
  865.       K_sRIGHT:=iup_XkeyShift(K_RIGHT);
  866.     end;
  867.  
  868.   function K_sEND : longint;
  869.     begin
  870.       K_sEND:=iup_XkeyShift(K_END);
  871.     end;
  872.  
  873.   function K_sDOWN : longint;
  874.     begin
  875.       K_sDOWN:=iup_XkeyShift(K_DOWN);
  876.     end;
  877.  
  878.   function K_sPGDN : longint;
  879.     begin
  880.       K_sPGDN:=iup_XkeyShift(K_PGDN);
  881.     end;
  882.  
  883.   function K_sINS : longint;
  884.     begin
  885.       K_sINS:=iup_XkeyShift(K_INS);
  886.     end;
  887.  
  888.   function K_sDEL : longint;
  889.     begin
  890.       K_sDEL:=iup_XkeyShift(K_DEL);
  891.     end;
  892.  
  893.   function K_sSP : longint;
  894.     begin
  895.       K_sSP:=iup_XkeyShift(K_SP);
  896.     end;
  897.  
  898.   function K_sTAB : longint;
  899.     begin
  900.       K_sTAB:=iup_XkeyShift(K_TAB);
  901.     end;
  902.  
  903.   function K_sCR : longint;
  904.     begin
  905.       K_sCR:=iup_XkeyShift(K_CR);
  906.     end;
  907.  
  908.   function K_sBS : longint;
  909.     begin
  910.       K_sBS:=iup_XkeyShift(K_BS);
  911.     end;
  912.  
  913.   function K_sPAUSE : longint;
  914.     begin
  915.       K_sPAUSE:=iup_XkeyShift(K_PAUSE);
  916.     end;
  917.  
  918.   function K_sESC : longint;
  919.     begin
  920.       K_sESC:=iup_XkeyShift(K_ESC);
  921.     end;
  922.  
  923.   function K_sF1 : longint;
  924.     begin
  925.       K_sF1:=iup_XkeyShift(K_F1);
  926.     end;
  927.  
  928.   function K_sF2 : longint;
  929.     begin
  930.       K_sF2:=iup_XkeyShift(K_F2);
  931.     end;
  932.  
  933.   function K_sF3 : longint;
  934.     begin
  935.       K_sF3:=iup_XkeyShift(K_F3);
  936.     end;
  937.  
  938.   function K_sF4 : longint;
  939.     begin
  940.       K_sF4:=iup_XkeyShift(K_F4);
  941.     end;
  942.  
  943.   function K_sF5 : longint;
  944.     begin
  945.       K_sF5:=iup_XkeyShift(K_F5);
  946.     end;
  947.  
  948.   function K_sF6 : longint;
  949.     begin
  950.       K_sF6:=iup_XkeyShift(K_F6);
  951.     end;
  952.  
  953.   function K_sF7 : longint;
  954.     begin
  955.       K_sF7:=iup_XkeyShift(K_F7);
  956.     end;
  957.  
  958.   function K_sF8 : longint;
  959.     begin
  960.       K_sF8:=iup_XkeyShift(K_F8);
  961.     end;
  962.  
  963.   function K_sF9 : longint;
  964.     begin
  965.       K_sF9:=iup_XkeyShift(K_F9);
  966.     end;
  967.  
  968.   function K_sF10 : longint;
  969.     begin
  970.       K_sF10:=iup_XkeyShift(K_F10);
  971.     end;
  972.  
  973.   function K_sF11 : longint;
  974.     begin
  975.       K_sF11:=iup_XkeyShift(K_F11);
  976.     end;
  977.  
  978.   function K_sF12 : longint;
  979.     begin
  980.       K_sF12:=iup_XkeyShift(K_F12);
  981.     end;
  982.  
  983.   function K_sPrint : longint;
  984.     begin
  985.       K_sPrint:=iup_XkeyShift(K_Print);
  986.     end;
  987.  
  988.   function K_sMenu : longint;
  989.     begin
  990.       K_sMenu:=iup_XkeyShift(K_Menu);
  991.     end;
  992.  
  993.   function K_cHOME : longint;
  994.     begin
  995.       K_cHOME:=iup_XkeyCtrl(K_HOME);
  996.     end;
  997.  
  998.   function K_cUP : longint;
  999.     begin
  1000.       K_cUP:=iup_XkeyCtrl(K_UP);
  1001.     end;
  1002.  
  1003.   function K_cPGUP : longint;
  1004.     begin
  1005.       K_cPGUP:=iup_XkeyCtrl(K_PGUP);
  1006.     end;
  1007.  
  1008.   function K_cLEFT : longint;
  1009.     begin
  1010.       K_cLEFT:=iup_XkeyCtrl(K_LEFT);
  1011.     end;
  1012.  
  1013.   function K_cMIDDLE : longint;
  1014.     begin
  1015.       K_cMIDDLE:=iup_XkeyCtrl(K_MIDDLE);
  1016.     end;
  1017.  
  1018.   function K_cRIGHT : longint;
  1019.     begin
  1020.       K_cRIGHT:=iup_XkeyCtrl(K_RIGHT);
  1021.     end;
  1022.  
  1023.   function K_cEND : longint;
  1024.     begin
  1025.       K_cEND:=iup_XkeyCtrl(K_END);
  1026.     end;
  1027.  
  1028.   function K_cDOWN : longint;
  1029.     begin
  1030.       K_cDOWN:=iup_XkeyCtrl(K_DOWN);
  1031.     end;
  1032.  
  1033.   function K_cPGDN : longint;
  1034.     begin
  1035.       K_cPGDN:=iup_XkeyCtrl(K_PGDN);
  1036.     end;
  1037.  
  1038.   function K_cINS : longint;
  1039.     begin
  1040.       K_cINS:=iup_XkeyCtrl(K_INS);
  1041.     end;
  1042.  
  1043.   function K_cDEL : longint;
  1044.     begin
  1045.       K_cDEL:=iup_XkeyCtrl(K_DEL);
  1046.     end;
  1047.  
  1048.   function K_cSP : longint;
  1049.     begin
  1050.       K_cSP:=iup_XkeyCtrl(K_SP);
  1051.     end;
  1052.  
  1053.   function K_cTAB : longint;
  1054.     begin
  1055.       K_cTAB:=iup_XkeyCtrl(K_TAB);
  1056.     end;
  1057.  
  1058.   function K_cCR : longint;
  1059.     begin
  1060.       K_cCR:=iup_XkeyCtrl(K_CR);
  1061.     end;
  1062.  
  1063.   function K_cBS : longint;
  1064.     begin
  1065.       K_cBS:=iup_XkeyCtrl(K_BS);
  1066.     end;
  1067.  
  1068.   function K_cPAUSE : longint;
  1069.     begin
  1070.       K_cPAUSE:=iup_XkeyCtrl(K_PAUSE);
  1071.     end;
  1072.  
  1073.   function K_cESC : longint;
  1074.     begin
  1075.       K_cESC:=iup_XkeyCtrl(K_ESC);
  1076.     end;
  1077.  
  1078.   function K_cCcedilla : longint;
  1079.     begin
  1080.       K_cCcedilla:=iup_XkeyCtrl(K_Ccedilla);
  1081.     end;
  1082.  
  1083.   function K_cF1 : longint;
  1084.     begin
  1085.       K_cF1:=iup_XkeyCtrl(K_F1);
  1086.     end;
  1087.  
  1088.   function K_cF2 : longint;
  1089.     begin
  1090.       K_cF2:=iup_XkeyCtrl(K_F2);
  1091.     end;
  1092.  
  1093.   function K_cF3 : longint;
  1094.     begin
  1095.       K_cF3:=iup_XkeyCtrl(K_F3);
  1096.     end;
  1097.  
  1098.   function K_cF4 : longint;
  1099.     begin
  1100.       K_cF4:=iup_XkeyCtrl(K_F4);
  1101.     end;
  1102.  
  1103.   function K_cF5 : longint;
  1104.     begin
  1105.       K_cF5:=iup_XkeyCtrl(K_F5);
  1106.     end;
  1107.  
  1108.   function K_cF6 : longint;
  1109.     begin
  1110.       K_cF6:=iup_XkeyCtrl(K_F6);
  1111.     end;
  1112.  
  1113.   function K_cF7 : longint;
  1114.     begin
  1115.       K_cF7:=iup_XkeyCtrl(K_F7);
  1116.     end;
  1117.  
  1118.   function K_cF8 : longint;
  1119.     begin
  1120.       K_cF8:=iup_XkeyCtrl(K_F8);
  1121.     end;
  1122.  
  1123.   function K_cF9 : longint;
  1124.     begin
  1125.       K_cF9:=iup_XkeyCtrl(K_F9);
  1126.     end;
  1127.  
  1128.   function K_cF10 : longint;
  1129.     begin
  1130.       K_cF10:=iup_XkeyCtrl(K_F10);
  1131.     end;
  1132.  
  1133.   function K_cF11 : longint;
  1134.     begin
  1135.       K_cF11:=iup_XkeyCtrl(K_F11);
  1136.     end;
  1137.  
  1138.   function K_cF12 : longint;
  1139.     begin
  1140.       K_cF12:=iup_XkeyCtrl(K_F12);
  1141.     end;
  1142.  
  1143.   function K_cPrint : longint;
  1144.     begin
  1145.       K_cPrint:=iup_XkeyCtrl(K_Print);
  1146.     end;
  1147.  
  1148.   function K_cMenu : longint;
  1149.     begin
  1150.       K_cMenu:=iup_XkeyCtrl(K_Menu);
  1151.     end;
  1152.  
  1153.   function K_mHOME : longint;
  1154.     begin
  1155.       K_mHOME:=iup_XkeyAlt(K_HOME);
  1156.     end;
  1157.  
  1158.   function K_mUP : longint;
  1159.     begin
  1160.       K_mUP:=iup_XkeyAlt(K_UP);
  1161.     end;
  1162.  
  1163.   function K_mPGUP : longint;
  1164.     begin
  1165.       K_mPGUP:=iup_XkeyAlt(K_PGUP);
  1166.     end;
  1167.  
  1168.   function K_mLEFT : longint;
  1169.     begin
  1170.       K_mLEFT:=iup_XkeyAlt(K_LEFT);
  1171.     end;
  1172.  
  1173.   function K_mMIDDLE : longint;
  1174.     begin
  1175.       K_mMIDDLE:=iup_XkeyAlt(K_MIDDLE);
  1176.     end;
  1177.  
  1178.   function K_mRIGHT : longint;
  1179.     begin
  1180.       K_mRIGHT:=iup_XkeyAlt(K_RIGHT);
  1181.     end;
  1182.  
  1183.   function K_mEND : longint;
  1184.     begin
  1185.       K_mEND:=iup_XkeyAlt(K_END);
  1186.     end;
  1187.  
  1188.   function K_mDOWN : longint;
  1189.     begin
  1190.       K_mDOWN:=iup_XkeyAlt(K_DOWN);
  1191.     end;
  1192.  
  1193.   function K_mPGDN : longint;
  1194.     begin
  1195.       K_mPGDN:=iup_XkeyAlt(K_PGDN);
  1196.     end;
  1197.  
  1198.   function K_mINS : longint;
  1199.     begin
  1200.       K_mINS:=iup_XkeyAlt(K_INS);
  1201.     end;
  1202.  
  1203.   function K_mDEL : longint;
  1204.     begin
  1205.       K_mDEL:=iup_XkeyAlt(K_DEL);
  1206.     end;
  1207.  
  1208.   function K_mSP : longint;
  1209.     begin
  1210.       K_mSP:=iup_XkeyAlt(K_SP);
  1211.     end;
  1212.  
  1213.   function K_mTAB : longint;
  1214.     begin
  1215.       K_mTAB:=iup_XkeyAlt(K_TAB);
  1216.     end;
  1217.  
  1218.   function K_mCR : longint;
  1219.     begin
  1220.       K_mCR:=iup_XkeyAlt(K_CR);
  1221.     end;
  1222.  
  1223.   function K_mBS : longint;
  1224.     begin
  1225.       K_mBS:=iup_XkeyAlt(K_BS);
  1226.     end;
  1227.  
  1228.   function K_mPAUSE : longint;
  1229.     begin
  1230.       K_mPAUSE:=iup_XkeyAlt(K_PAUSE);
  1231.     end;
  1232.  
  1233.   function K_mESC : longint;
  1234.     begin
  1235.       K_mESC:=iup_XkeyAlt(K_ESC);
  1236.     end;
  1237.  
  1238.   function K_mCcedilla : longint;
  1239.     begin
  1240.       K_mCcedilla:=iup_XkeyAlt(K_Ccedilla);
  1241.     end;
  1242.  
  1243.   function K_mF1 : longint;
  1244.     begin
  1245.       K_mF1:=iup_XkeyAlt(K_F1);
  1246.     end;
  1247.  
  1248.   function K_mF2 : longint;
  1249.     begin
  1250.       K_mF2:=iup_XkeyAlt(K_F2);
  1251.     end;
  1252.  
  1253.   function K_mF3 : longint;
  1254.     begin
  1255.       K_mF3:=iup_XkeyAlt(K_F3);
  1256.     end;
  1257.  
  1258.   function K_mF4 : longint;
  1259.     begin
  1260.       K_mF4:=iup_XkeyAlt(K_F4);
  1261.     end;
  1262.  
  1263.   function K_mF5 : longint;
  1264.     begin
  1265.       K_mF5:=iup_XkeyAlt(K_F5);
  1266.     end;
  1267.  
  1268.   function K_mF6 : longint;
  1269.     begin
  1270.       K_mF6:=iup_XkeyAlt(K_F6);
  1271.     end;
  1272.  
  1273.   function K_mF7 : longint;
  1274.     begin
  1275.       K_mF7:=iup_XkeyAlt(K_F7);
  1276.     end;
  1277.  
  1278.   function K_mF8 : longint;
  1279.     begin
  1280.       K_mF8:=iup_XkeyAlt(K_F8);
  1281.     end;
  1282.  
  1283.   function K_mF9 : longint;
  1284.     begin
  1285.       K_mF9:=iup_XkeyAlt(K_F9);
  1286.     end;
  1287.  
  1288.   function K_mF10 : longint;
  1289.     begin
  1290.       K_mF10:=iup_XkeyAlt(K_F10);
  1291.     end;
  1292.  
  1293.   function K_mF11 : longint;
  1294.     begin
  1295.       K_mF11:=iup_XkeyAlt(K_F11);
  1296.     end;
  1297.  
  1298.   function K_mF12 : longint;
  1299.     begin
  1300.       K_mF12:=iup_XkeyAlt(K_F12);
  1301.     end;
  1302.  
  1303.   function K_mPrint : longint;
  1304.     begin
  1305.       K_mPrint:=iup_XkeyAlt(K_Print);
  1306.     end;
  1307.  
  1308.   function K_mMenu : longint;
  1309.     begin
  1310.       K_mMenu:=iup_XkeyAlt(K_Menu);
  1311.     end;
  1312.  
  1313.   function K_yHOME : longint;
  1314.     begin
  1315.       K_yHOME:=iup_XkeySys(K_HOME);
  1316.     end;
  1317.  
  1318.   function K_yUP : longint;
  1319.     begin
  1320.       K_yUP:=iup_XkeySys(K_UP);
  1321.     end;
  1322.  
  1323.   function K_yPGUP : longint;
  1324.     begin
  1325.       K_yPGUP:=iup_XkeySys(K_PGUP);
  1326.     end;
  1327.  
  1328.   function K_yLEFT : longint;
  1329.     begin
  1330.       K_yLEFT:=iup_XkeySys(K_LEFT);
  1331.     end;
  1332.  
  1333.   function K_yMIDDLE : longint;
  1334.     begin
  1335.       K_yMIDDLE:=iup_XkeySys(K_MIDDLE);
  1336.     end;
  1337.  
  1338.   function K_yRIGHT : longint;
  1339.     begin
  1340.       K_yRIGHT:=iup_XkeySys(K_RIGHT);
  1341.     end;
  1342.  
  1343.   function K_yEND : longint;
  1344.     begin
  1345.       K_yEND:=iup_XkeySys(K_END);
  1346.     end;
  1347.  
  1348.   function K_yDOWN : longint;
  1349.     begin
  1350.       K_yDOWN:=iup_XkeySys(K_DOWN);
  1351.     end;
  1352.  
  1353.   function K_yPGDN : longint;
  1354.     begin
  1355.       K_yPGDN:=iup_XkeySys(K_PGDN);
  1356.     end;
  1357.  
  1358.   function K_yINS : longint;
  1359.     begin
  1360.       K_yINS:=iup_XkeySys(K_INS);
  1361.     end;
  1362.  
  1363.   function K_yDEL : longint;
  1364.     begin
  1365.       K_yDEL:=iup_XkeySys(K_DEL);
  1366.     end;
  1367.  
  1368.   function K_ySP : longint;
  1369.     begin
  1370.       K_ySP:=iup_XkeySys(K_SP);
  1371.     end;
  1372.  
  1373.   function K_yTAB : longint;
  1374.     begin
  1375.       K_yTAB:=iup_XkeySys(K_TAB);
  1376.     end;
  1377.  
  1378.   function K_yCR : longint;
  1379.     begin
  1380.       K_yCR:=iup_XkeySys(K_CR);
  1381.     end;
  1382.  
  1383.   function K_yBS : longint;
  1384.     begin
  1385.       K_yBS:=iup_XkeySys(K_BS);
  1386.     end;
  1387.  
  1388.   function K_yPAUSE : longint;
  1389.     begin
  1390.       K_yPAUSE:=iup_XkeySys(K_PAUSE);
  1391.     end;
  1392.  
  1393.   function K_yESC : longint;
  1394.     begin
  1395.       K_yESC:=iup_XkeySys(K_ESC);
  1396.     end;
  1397.  
  1398.   function K_yCcedilla : longint;
  1399.     begin
  1400.       K_yCcedilla:=iup_XkeySys(K_Ccedilla);
  1401.     end;
  1402.  
  1403.   function K_yF1 : longint;
  1404.     begin
  1405.       K_yF1:=iup_XkeySys(K_F1);
  1406.     end;
  1407.  
  1408.   function K_yF2 : longint;
  1409.     begin
  1410.       K_yF2:=iup_XkeySys(K_F2);
  1411.     end;
  1412.  
  1413.   function K_yF3 : longint;
  1414.     begin
  1415.       K_yF3:=iup_XkeySys(K_F3);
  1416.     end;
  1417.  
  1418.   function K_yF4 : longint;
  1419.     begin
  1420.       K_yF4:=iup_XkeySys(K_F4);
  1421.     end;
  1422.  
  1423.   function K_yF5 : longint;
  1424.     begin
  1425.       K_yF5:=iup_XkeySys(K_F5);
  1426.     end;
  1427.  
  1428.   function K_yF6 : longint;
  1429.     begin
  1430.       K_yF6:=iup_XkeySys(K_F6);
  1431.     end;
  1432.  
  1433.   function K_yF7 : longint;
  1434.     begin
  1435.       K_yF7:=iup_XkeySys(K_F7);
  1436.     end;
  1437.  
  1438.   function K_yF8 : longint;
  1439.     begin
  1440.       K_yF8:=iup_XkeySys(K_F8);
  1441.     end;
  1442.  
  1443.   function K_yF9 : longint;
  1444.     begin
  1445.       K_yF9:=iup_XkeySys(K_F9);
  1446.     end;
  1447.  
  1448.   function K_yF10 : longint;
  1449.     begin
  1450.       K_yF10:=iup_XkeySys(K_F10);
  1451.     end;
  1452.  
  1453.   function K_yF11 : longint;
  1454.     begin
  1455.       K_yF11:=iup_XkeySys(K_F11);
  1456.     end;
  1457.  
  1458.   function K_yF12 : longint;
  1459.     begin
  1460.       K_yF12:=iup_XkeySys(K_F12);
  1461.     end;
  1462.  
  1463.   function K_yPrint : longint;
  1464.     begin
  1465.       K_yPrint:=iup_XkeySys(K_Print);
  1466.     end;
  1467.  
  1468.   function K_yMenu : longint;
  1469.     begin
  1470.       K_yMenu:=iup_XkeySys(K_Menu);
  1471.     end;
  1472.  
  1473.   function K_sPlus : longint;
  1474.     begin
  1475.       K_sPlus:=iup_XkeyShift(K_plus);
  1476.     end;
  1477.  
  1478.   function K_sComma : longint;
  1479.     begin
  1480.       K_sComma:=iup_XkeyShift(K_comma);
  1481.     end;
  1482.  
  1483.   function K_sMinus : longint;
  1484.     begin
  1485.       K_sMinus:=iup_XkeyShift(K_minus);
  1486.     end;
  1487.  
  1488.   function K_sPeriod : longint;
  1489.     begin
  1490.       K_sPeriod:=iup_XkeyShift(K_period);
  1491.     end;
  1492.  
  1493.   function K_sSlash : longint;
  1494.     begin
  1495.       K_sSlash:=iup_XkeyShift(K_slash);
  1496.     end;
  1497.  
  1498.   function K_sAsterisk : longint;
  1499.     begin
  1500.       K_sAsterisk:=iup_XkeyShift(K_asterisk);
  1501.     end;
  1502.  
  1503.   function K_cA : longint;
  1504.     begin
  1505.       K_cA:=iup_XkeyCtrl(K_A);
  1506.     end;
  1507.  
  1508.   function K_cB : longint;
  1509.     begin
  1510.       K_cB:=iup_XkeyCtrl(K_B);
  1511.     end;
  1512.  
  1513.   function K_cC : longint;
  1514.     begin
  1515.       K_cC:=iup_XkeyCtrl(K_C);
  1516.     end;
  1517.  
  1518.   function K_cD : longint;
  1519.     begin
  1520.       K_cD:=iup_XkeyCtrl(K_D);
  1521.     end;
  1522.  
  1523.   function K_cE : longint;
  1524.     begin
  1525.       K_cE:=iup_XkeyCtrl(K_E);
  1526.     end;
  1527.  
  1528.   function K_cF : longint;
  1529.     begin
  1530.       K_cF:=iup_XkeyCtrl(K_F);
  1531.     end;
  1532.  
  1533.   function K_cG : longint;
  1534.     begin
  1535.       K_cG:=iup_XkeyCtrl(K_G);
  1536.     end;
  1537.  
  1538.   function K_cH : longint;
  1539.     begin
  1540.       K_cH:=iup_XkeyCtrl(K_H);
  1541.     end;
  1542.  
  1543.   function K_cI : longint;
  1544.     begin
  1545.       K_cI:=iup_XkeyCtrl(K_I);
  1546.     end;
  1547.  
  1548.   function K_cJ : longint;
  1549.     begin
  1550.       K_cJ:=iup_XkeyCtrl(K_J);
  1551.     end;
  1552.  
  1553.   function K_cK : longint;
  1554.     begin
  1555.       K_cK:=iup_XkeyCtrl(K_K);
  1556.     end;
  1557.  
  1558.   function K_cL : longint;
  1559.     begin
  1560.       K_cL:=iup_XkeyCtrl(K_L);
  1561.     end;
  1562.  
  1563.   function K_cM : longint;
  1564.     begin
  1565.       K_cM:=iup_XkeyCtrl(K_M);
  1566.     end;
  1567.  
  1568.   function K_cN : longint;
  1569.     begin
  1570.       K_cN:=iup_XkeyCtrl(K_N);
  1571.     end;
  1572.  
  1573.   function K_cO : longint;
  1574.     begin
  1575.       K_cO:=iup_XkeyCtrl(K_O);
  1576.     end;
  1577.  
  1578.   function K_cP : longint;
  1579.     begin
  1580.       K_cP:=iup_XkeyCtrl(K_P);
  1581.     end;
  1582.  
  1583.   function K_cQ : longint;
  1584.     begin
  1585.       K_cQ:=iup_XkeyCtrl(K_Q);
  1586.     end;
  1587.  
  1588.   function K_cR : longint;
  1589.     begin
  1590.       K_cR:=iup_XkeyCtrl(K_R);
  1591.     end;
  1592.  
  1593.   function K_cS : longint;
  1594.     begin
  1595.       K_cS:=iup_XkeyCtrl(K_S);
  1596.     end;
  1597.  
  1598.   function K_cT : longint;
  1599.     begin
  1600.       K_cT:=iup_XkeyCtrl(K_T);
  1601.     end;
  1602.  
  1603.   function K_cU : longint;
  1604.     begin
  1605.       K_cU:=iup_XkeyCtrl(K_U);
  1606.     end;
  1607.  
  1608.   function K_cV : longint;
  1609.     begin
  1610.       K_cV:=iup_XkeyCtrl(K_V);
  1611.     end;
  1612.  
  1613.   function K_cW : longint;
  1614.     begin
  1615.       K_cW:=iup_XkeyCtrl(K_W);
  1616.     end;
  1617.  
  1618.   function K_cX : longint;
  1619.     begin
  1620.       K_cX:=iup_XkeyCtrl(K_X);
  1621.     end;
  1622.  
  1623.   function K_cY : longint;
  1624.     begin
  1625.       K_cY:=iup_XkeyCtrl(K_Y);
  1626.     end;
  1627.  
  1628.   function K_cZ : longint;
  1629.     begin
  1630.       K_cZ:=iup_XkeyCtrl(K_Z);
  1631.     end;
  1632.  
  1633.   function K_c1 : longint;
  1634.     begin
  1635.       K_c1:=iup_XkeyCtrl(K_1);
  1636.     end;
  1637.  
  1638.   function K_c2 : longint;
  1639.     begin
  1640.       K_c2:=iup_XkeyCtrl(K_2);
  1641.     end;
  1642.  
  1643.   function K_c3 : longint;
  1644.     begin
  1645.       K_c3:=iup_XkeyCtrl(K_3);
  1646.     end;
  1647.  
  1648.   function K_c4 : longint;
  1649.     begin
  1650.       K_c4:=iup_XkeyCtrl(K_4);
  1651.     end;
  1652.  
  1653.   function K_c5 : longint;
  1654.     begin
  1655.       K_c5:=iup_XkeyCtrl(K_5);
  1656.     end;
  1657.  
  1658.   function K_c6 : longint;
  1659.     begin
  1660.       K_c6:=iup_XkeyCtrl(K_6);
  1661.     end;
  1662.  
  1663.   function K_c7 : longint;
  1664.     begin
  1665.       K_c7:=iup_XkeyCtrl(K_7);
  1666.     end;
  1667.  
  1668.   function K_c8 : longint;
  1669.     begin
  1670.       K_c8:=iup_XkeyCtrl(K_8);
  1671.     end;
  1672.  
  1673.   function K_c9 : longint;
  1674.     begin
  1675.       K_c9:=iup_XkeyCtrl(K_9);
  1676.     end;
  1677.  
  1678.   function K_c0 : longint;
  1679.     begin
  1680.       K_c0:=iup_XkeyCtrl(K_0);
  1681.     end;
  1682.  
  1683.   function K_cPlus : longint;
  1684.     begin
  1685.       K_cPlus:=iup_XkeyCtrl(K_plus);
  1686.     end;
  1687.  
  1688.   function K_cComma : longint;
  1689.     begin
  1690.       K_cComma:=iup_XkeyCtrl(K_comma);
  1691.     end;
  1692.  
  1693.   function K_cMinus : longint;
  1694.     begin
  1695.       K_cMinus:=iup_XkeyCtrl(K_minus);
  1696.     end;
  1697.  
  1698.   function K_cPeriod : longint;
  1699.     begin
  1700.       K_cPeriod:=iup_XkeyCtrl(K_period);
  1701.     end;
  1702.  
  1703.   function K_cSlash : longint;
  1704.     begin
  1705.       K_cSlash:=iup_XkeyCtrl(K_slash);
  1706.     end;
  1707.  
  1708.   function K_cSemicolon : longint;
  1709.     begin
  1710.       K_cSemicolon:=iup_XkeyCtrl(K_semicolon);
  1711.     end;
  1712.  
  1713.   function K_cEqual : longint;
  1714.     begin
  1715.       K_cEqual:=iup_XkeyCtrl(K_equal);
  1716.     end;
  1717.  
  1718.   function K_cBracketleft : longint;
  1719.     begin
  1720.       K_cBracketleft:=iup_XkeyCtrl(K_bracketleft);
  1721.     end;
  1722.  
  1723.   function K_cBracketright : longint;
  1724.     begin
  1725.       K_cBracketright:=iup_XkeyCtrl(K_bracketright);
  1726.     end;
  1727.  
  1728.   function K_cBackslash : longint;
  1729.     begin
  1730.       K_cBackslash:=iup_XkeyCtrl(K_backslash);
  1731.     end;
  1732.  
  1733.   function K_cAsterisk : longint;
  1734.     begin
  1735.       K_cAsterisk:=iup_XkeyCtrl(K_asterisk);
  1736.     end;
  1737.  
  1738.   function K_mA : longint;
  1739.     begin
  1740.       K_mA:=iup_XkeyAlt(K_A);
  1741.     end;
  1742.  
  1743.   function K_mB : longint;
  1744.     begin
  1745.       K_mB:=iup_XkeyAlt(K_B);
  1746.     end;
  1747.  
  1748.   function K_mC : longint;
  1749.     begin
  1750.       K_mC:=iup_XkeyAlt(K_C);
  1751.     end;
  1752.  
  1753.   function K_mD : longint;
  1754.     begin
  1755.       K_mD:=iup_XkeyAlt(K_D);
  1756.     end;
  1757.  
  1758.   function K_mE : longint;
  1759.     begin
  1760.       K_mE:=iup_XkeyAlt(K_E);
  1761.     end;
  1762.  
  1763.   function K_mF : longint;
  1764.     begin
  1765.       K_mF:=iup_XkeyAlt(K_F);
  1766.     end;
  1767.  
  1768.   function K_mG : longint;
  1769.     begin
  1770.       K_mG:=iup_XkeyAlt(K_G);
  1771.     end;
  1772.  
  1773.   function K_mH : longint;
  1774.     begin
  1775.       K_mH:=iup_XkeyAlt(K_H);
  1776.     end;
  1777.  
  1778.   function K_mI : longint;
  1779.     begin
  1780.       K_mI:=iup_XkeyAlt(K_I);
  1781.     end;
  1782.  
  1783.   function K_mJ : longint;
  1784.     begin
  1785.       K_mJ:=iup_XkeyAlt(K_J);
  1786.     end;
  1787.  
  1788.   function K_mK : longint;
  1789.     begin
  1790.       K_mK:=iup_XkeyAlt(K_K);
  1791.     end;
  1792.  
  1793.   function K_mL : longint;
  1794.     begin
  1795.       K_mL:=iup_XkeyAlt(K_L);
  1796.     end;
  1797.  
  1798.   function K_mM : longint;
  1799.     begin
  1800.       K_mM:=iup_XkeyAlt(K_M);
  1801.     end;
  1802.  
  1803.   function K_mN : longint;
  1804.     begin
  1805.       K_mN:=iup_XkeyAlt(K_N);
  1806.     end;
  1807.  
  1808.   function K_mO : longint;
  1809.     begin
  1810.       K_mO:=iup_XkeyAlt(K_O);
  1811.     end;
  1812.  
  1813.   function K_mP : longint;
  1814.     begin
  1815.       K_mP:=iup_XkeyAlt(K_P);
  1816.     end;
  1817.  
  1818.   function K_mQ : longint;
  1819.     begin
  1820.       K_mQ:=iup_XkeyAlt(K_Q);
  1821.     end;
  1822.  
  1823.   function K_mR : longint;
  1824.     begin
  1825.       K_mR:=iup_XkeyAlt(K_R);
  1826.     end;
  1827.  
  1828.   function K_mS : longint;
  1829.     begin
  1830.       K_mS:=iup_XkeyAlt(K_S);
  1831.     end;
  1832.  
  1833.   function K_mT : longint;
  1834.     begin
  1835.       K_mT:=iup_XkeyAlt(K_T);
  1836.     end;
  1837.  
  1838.   function K_mU : longint;
  1839.     begin
  1840.       K_mU:=iup_XkeyAlt(K_U);
  1841.     end;
  1842.  
  1843.   function K_mV : longint;
  1844.     begin
  1845.       K_mV:=iup_XkeyAlt(K_V);
  1846.     end;
  1847.  
  1848.   function K_mW : longint;
  1849.     begin
  1850.       K_mW:=iup_XkeyAlt(K_W);
  1851.     end;
  1852.  
  1853.   function K_mX : longint;
  1854.     begin
  1855.       K_mX:=iup_XkeyAlt(K_X);
  1856.     end;
  1857.  
  1858.   function K_mY : longint;
  1859.     begin
  1860.       K_mY:=iup_XkeyAlt(K_Y);
  1861.     end;
  1862.  
  1863.   function K_mZ : longint;
  1864.     begin
  1865.       K_mZ:=iup_XkeyAlt(K_Z);
  1866.     end;
  1867.  
  1868.   function K_m1 : longint;
  1869.     begin
  1870.       K_m1:=iup_XkeyAlt(K_1);
  1871.     end;
  1872.  
  1873.   function K_m2 : longint;
  1874.     begin
  1875.       K_m2:=iup_XkeyAlt(K_2);
  1876.     end;
  1877.  
  1878.   function K_m3 : longint;
  1879.     begin
  1880.       K_m3:=iup_XkeyAlt(K_3);
  1881.     end;
  1882.  
  1883.   function K_m4 : longint;
  1884.     begin
  1885.       K_m4:=iup_XkeyAlt(K_4);
  1886.     end;
  1887.  
  1888.   function K_m5 : longint;
  1889.     begin
  1890.       K_m5:=iup_XkeyAlt(K_5);
  1891.     end;
  1892.  
  1893.   function K_m6 : longint;
  1894.     begin
  1895.       K_m6:=iup_XkeyAlt(K_6);
  1896.     end;
  1897.  
  1898.   function K_m7 : longint;
  1899.     begin
  1900.       K_m7:=iup_XkeyAlt(K_7);
  1901.     end;
  1902.  
  1903.   function K_m8 : longint;
  1904.     begin
  1905.       K_m8:=iup_XkeyAlt(K_8);
  1906.     end;
  1907.  
  1908.   function K_m9 : longint;
  1909.     begin
  1910.       K_m9:=iup_XkeyAlt(K_9);
  1911.     end;
  1912.  
  1913.   function K_m0 : longint;
  1914.     begin
  1915.       K_m0:=iup_XkeyAlt(K_0);
  1916.     end;
  1917.  
  1918.   function K_mPlus : longint;
  1919.     begin
  1920.       K_mPlus:=iup_XkeyAlt(K_plus);
  1921.     end;
  1922.  
  1923.   function K_mComma : longint;
  1924.     begin
  1925.       K_mComma:=iup_XkeyAlt(K_comma);
  1926.     end;
  1927.  
  1928.   function K_mMinus : longint;
  1929.     begin
  1930.       K_mMinus:=iup_XkeyAlt(K_minus);
  1931.     end;
  1932.  
  1933.   function K_mPeriod : longint;
  1934.     begin
  1935.       K_mPeriod:=iup_XkeyAlt(K_period);
  1936.     end;
  1937.  
  1938.   function K_mSlash : longint;
  1939.     begin
  1940.       K_mSlash:=iup_XkeyAlt(K_slash);
  1941.     end;
  1942.  
  1943.   function K_mSemicolon : longint;
  1944.     begin
  1945.       K_mSemicolon:=iup_XkeyAlt(K_semicolon);
  1946.     end;
  1947.  
  1948.   function K_mEqual : longint;
  1949.     begin
  1950.       K_mEqual:=iup_XkeyAlt(K_equal);
  1951.     end;
  1952.  
  1953.   function K_mBracketleft : longint;
  1954.     begin
  1955.       K_mBracketleft:=iup_XkeyAlt(K_bracketleft);
  1956.     end;
  1957.  
  1958.   function K_mBracketright : longint;
  1959.     begin
  1960.       K_mBracketright:=iup_XkeyAlt(K_bracketright);
  1961.     end;
  1962.  
  1963.   function K_mBackslash : longint;
  1964.     begin
  1965.       K_mBackslash:=iup_XkeyAlt(K_backslash);
  1966.     end;
  1967.  
  1968.   function K_mAsterisk : longint;
  1969.     begin
  1970.       K_mAsterisk:=iup_XkeyAlt(K_asterisk);
  1971.     end;
  1972.  
  1973.   function K_yA : longint;
  1974.     begin
  1975.       K_yA:=iup_XkeySys(K_A);
  1976.     end;
  1977.  
  1978.   function K_yB : longint;
  1979.     begin
  1980.       K_yB:=iup_XkeySys(K_B);
  1981.     end;
  1982.  
  1983.   function K_yC : longint;
  1984.     begin
  1985.       K_yC:=iup_XkeySys(K_C);
  1986.     end;
  1987.  
  1988.   function K_yD : longint;
  1989.     begin
  1990.       K_yD:=iup_XkeySys(K_D);
  1991.     end;
  1992.  
  1993.   function K_yE : longint;
  1994.     begin
  1995.       K_yE:=iup_XkeySys(K_E);
  1996.     end;
  1997.  
  1998.   function K_yF : longint;
  1999.     begin
  2000.       K_yF:=iup_XkeySys(K_F);
  2001.     end;
  2002.  
  2003.   function K_yG : longint;
  2004.     begin
  2005.       K_yG:=iup_XkeySys(K_G);
  2006.     end;
  2007.  
  2008.   function K_yH : longint;
  2009.     begin
  2010.       K_yH:=iup_XkeySys(K_H);
  2011.     end;
  2012.  
  2013.   function K_yI : longint;
  2014.     begin
  2015.       K_yI:=iup_XkeySys(K_I);
  2016.     end;
  2017.  
  2018.   function K_yJ : longint;
  2019.     begin
  2020.       K_yJ:=iup_XkeySys(K_J);
  2021.     end;
  2022.  
  2023.   function K_yK : longint;
  2024.     begin
  2025.       K_yK:=iup_XkeySys(K_K);
  2026.     end;
  2027.  
  2028.   function K_yL : longint;
  2029.     begin
  2030.       K_yL:=iup_XkeySys(K_L);
  2031.     end;
  2032.  
  2033.   function K_yM : longint;
  2034.     begin
  2035.       K_yM:=iup_XkeySys(K_M);
  2036.     end;
  2037.  
  2038.   function K_yN : longint;
  2039.     begin
  2040.       K_yN:=iup_XkeySys(K_N);
  2041.     end;
  2042.  
  2043.   function K_yO : longint;
  2044.     begin
  2045.       K_yO:=iup_XkeySys(K_O);
  2046.     end;
  2047.  
  2048.   function K_yP : longint;
  2049.     begin
  2050.       K_yP:=iup_XkeySys(K_P);
  2051.     end;
  2052.  
  2053.   function K_yQ : longint;
  2054.     begin
  2055.       K_yQ:=iup_XkeySys(K_Q);
  2056.     end;
  2057.  
  2058.   function K_yR : longint;
  2059.     begin
  2060.       K_yR:=iup_XkeySys(K_R);
  2061.     end;
  2062.  
  2063. function K_yS : longint;
  2064.   begin
  2065.     K_yS:=iup_XkeySys(K_S);
  2066.   end;
  2067.  
  2068. function K_yT : longint;
  2069.   begin
  2070.     K_yT:=iup_XkeySys(K_T);
  2071.   end;
  2072.  
  2073. function K_yU : longint;
  2074.   begin
  2075.     K_yU:=iup_XkeySys(K_U);
  2076.   end;
  2077.  
  2078. function K_yV : longint;
  2079.   begin
  2080.     K_yV:=iup_XkeySys(K_V);
  2081.   end;
  2082.  
  2083. function K_yW : longint;
  2084.   begin
  2085.     K_yW:=iup_XkeySys(K_W);
  2086.   end;
  2087.  
  2088. function K_yX : longint;
  2089.   begin
  2090.     K_yX:=iup_XkeySys(K_X);
  2091.   end;
  2092.  
  2093. function K_yY : longint;
  2094.   begin
  2095.     K_yY:=iup_XkeySys(K_Y);
  2096.   end;
  2097.  
  2098. function K_yZ : longint;
  2099.   begin
  2100.     K_yZ:=iup_XkeySys(K_Z);
  2101.   end;
  2102.  
  2103. function K_y1 : longint;
  2104.   begin
  2105.     K_y1:=iup_XkeySys(K_1);
  2106.   end;
  2107.  
  2108. function K_y2 : longint;
  2109.   begin
  2110.     K_y2:=iup_XkeySys(K_2);
  2111.   end;
  2112.  
  2113. function K_y3 : longint;
  2114.   begin
  2115.     K_y3:=iup_XkeySys(K_3);
  2116.   end;
  2117.  
  2118. function K_y4 : longint;
  2119.   begin
  2120.     K_y4:=iup_XkeySys(K_4);
  2121.   end;
  2122.  
  2123. function K_y5 : longint;
  2124.   begin
  2125.     K_y5:=iup_XkeySys(K_5);
  2126.   end;
  2127.  
  2128. function K_y6 : longint;
  2129.   begin
  2130.     K_y6:=iup_XkeySys(K_6);
  2131.   end;
  2132.  
  2133. function K_y7 : longint;
  2134.   begin
  2135.     K_y7:=iup_XkeySys(K_7);
  2136.   end;
  2137.  
  2138. function K_y8 : longint;
  2139.   begin
  2140.     K_y8:=iup_XkeySys(K_8);
  2141.   end;
  2142.  
  2143. function K_y9 : longint;
  2144.   begin
  2145.     K_y9:=iup_XkeySys(K_9);
  2146.   end;
  2147.  
  2148. function K_y0 : longint;
  2149.   begin
  2150.     K_y0:=iup_XkeySys(K_0);
  2151.   end;
  2152.  
  2153. function K_yPlus : longint;
  2154.   begin
  2155.     K_yPlus:=iup_XkeySys(K_plus);
  2156.   end;
  2157.  
  2158. function K_yComma : longint;
  2159.   begin
  2160.     K_yComma:=iup_XkeySys(K_comma);
  2161.   end;
  2162.  
  2163. function K_yMinus : longint;
  2164.   begin
  2165.     K_yMinus:=iup_XkeySys(K_minus);
  2166.   end;
  2167.  
  2168. function K_yPeriod : longint;
  2169.   begin
  2170.     K_yPeriod:=iup_XkeySys(K_period);
  2171.   end;
  2172.  
  2173. function K_ySlash : longint;
  2174.   begin
  2175.     K_ySlash:=iup_XkeySys(K_slash);
  2176.   end;
  2177.  
  2178. function K_ySemicolon : longint;
  2179.   begin
  2180.     K_ySemicolon:=iup_XkeySys(K_semicolon);
  2181.   end;
  2182.  
  2183. function K_yEqual : longint;
  2184.   begin
  2185.     K_yEqual:=iup_XkeySys(K_equal);
  2186.   end;
  2187.  
  2188. function K_yBracketleft : longint;
  2189.   begin
  2190.     K_yBracketleft:=iup_XkeySys(K_bracketleft);
  2191.   end;
  2192.  
  2193. function K_yBracketright : longint;
  2194.   begin
  2195.     K_yBracketright:=iup_XkeySys(K_bracketright);
  2196.   end;
  2197.  
  2198. function K_yBackslash : longint;
  2199.   begin
  2200.     K_yBackslash:=iup_XkeySys(K_backslash);
  2201.   end;
  2202.  
  2203. function K_yAsterisk : longint;
  2204.   begin
  2205.     K_yAsterisk:=iup_XkeySys(K_asterisk);
  2206.   end;
  2207.  
  2208.  
  2209. 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!