home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / tegl_ii / intro / teglintr.doc < prev    next >
Text File  |  1991-08-16  |  15KB  |  584 lines
  1. {-----------------------------------------------------------------------------}
  2. {               TEGL Windows ToolKit II                  }
  3. {          Copyright (C) 1990, 1991 TEGL Systems Corporation              }
  4. {                All Rights Reserved.                  }
  5. {-----------------------------------------------------------------------------}
  6. {$I switches.inc}
  7. {$F+}
  8.  
  9. Unit TEGLIntr;
  10.  
  11. INTERFACE
  12.  
  13. USES Dos,            {interrupt calls}
  14.      virtmem,
  15.      FastGrph;            {needed for ActivePage Variable}
  16.  
  17.  
  18. TYPE
  19.    FuncCallProc = Function:Boolean;
  20.  
  21.    KeyRecPtr = ^KeyFlags;
  22.    KeyFlags = RECORD
  23.          NextKeyFlag : KeyRecPtr;
  24.          Repeatkey   : Boolean;
  25.          KeyCode     : Word;
  26.          KeyCall     : FuncCallProc;
  27.           END;
  28.  
  29.    TimeRecPtr = ^TimeFlags;
  30.    TimeFlags = RECORD
  31.           NextTimeFlag : timerecptr;
  32.           TimerCount   : Word;
  33.           TimerStart   : Word;
  34.           TimerFlag    : Boolean;
  35.           TimerCall    : FuncCallProc;
  36.            END;
  37.  
  38.  
  39. const
  40.    TimerIgnore           : boolean = FALSE;
  41.    Timerbusy           : boolean = FALSE;
  42.    TimerCheck           : Boolean     = TRUE;
  43.    ControlBreakFlag    : Boolean     = FALSE;
  44.    CtrlBrkCount        : Word         = 0;
  45.  
  46.    Mouse_Event           : Word         = 0;
  47.    Mouse_Xcoord        : Integer     = 319;
  48.    Mouse_Ycoord        : Integer     = 174;
  49.    Mouse_Buttons       : Word         = 0;
  50.    Last_Mouse_Buttons  : Word         = 0; {used only by TEGLIntr.ASM}
  51.  
  52.    DoubleClickSpeed    : Word         = 6;
  53.  
  54.    LeftButtonDouble    : Boolean     = False;
  55.    LeftButtonTimeRem   : Word         = 0;
  56.    LeftButtonPress     : Word         = 0;
  57.    LeftPressXcoord     : Word         = 0;
  58.    LeftPressYcoord     : Word         = 0;
  59.    LeftButtonRelease   : Word         = 0;
  60.    LeftReleaseXcoord   : Word         = 0;
  61.    LeftReleaseYcoord   : Word         = 0;
  62.  
  63.    RightButtonDouble   : Boolean     = False;
  64.    RightButtonTimeRem  : Word         = 0;
  65.    RightButtonPress    : Word         = 0;
  66.    RightPressXcoord    : Word         = 0;
  67.    RightPressYcoord    : Word         = 0;
  68.    RightButtonRelease  : Word         = 0;
  69.    RightReleaseXcoord  : Word         = 0;
  70.    RightReleaseYcoord  : Word         = 0;
  71.  
  72.    MiddleButtonDouble  : Boolean     = False;
  73.    MiddleButtonTimeRem : Word         = 0;
  74.    MiddleButtonPress   : Word         = 0;
  75.    MiddlePressXcoord   : Word         = 0;
  76.    MiddlePressYcoord   : Word         = 0;
  77.    MiddleButtonRelease : Word         = 0;
  78.    MiddleReleaseXcoord : Word         = 0;
  79.    MiddleReleaseYcoord : Word         = 0;
  80.  
  81.    KBMouseBusy           : Boolean     = FALSE;
  82.    MouseShow           : Boolean     = FALSE;
  83.    MouseUserFlag       : Boolean     = FALSE;
  84.  
  85.    Mouse_MaxYpos       : Integer     = 349;
  86.    Mouse_MinYpos       : Integer     = 0;
  87.    Mouse_MaxXpos       : Integer     = 639;
  88.    Mouse_MinXpos       : Integer     = 0;
  89.  
  90.    FreezeCount           : Word = 0;
  91.  
  92.    Sk_NoShift        = $00;
  93.    Sk_RightShift    = $01;
  94.    Sk_LeftShift     = $02;
  95.    Sk_CtrlShift     = $04;
  96.    Sk_AltShift        = $08;
  97.    Sk_ScrollLock    = $10;
  98.    Sk_NumLock        = $20;
  99.    Sk_CapsLock        = $40;
  100.    Sk_InsLock        = $80;
  101.  
  102.    Key_ESC        = $01;
  103.    Key_a        = $1E;
  104.    Key_b        = $30;
  105.    Key_c        = $2E;
  106.    Key_d        = $20;
  107.    Key_e        = $12;
  108.    Key_f        = $21;
  109.    Key_g        = $22;
  110.    Key_h        = $23;
  111.    Key_i        = $17;
  112.    Key_j        = $24;
  113.    Key_k        = $25;
  114.    Key_l        = $26;
  115.    Key_m        = $32;
  116.    Key_n        = $31;
  117.    Key_o        = $18;
  118.    Key_p        = $19;
  119.    Key_q        = $10;
  120.    Key_r        = $13;
  121.    Key_s        = $1F;
  122.    Key_t        = $14;
  123.    Key_u        = $16;
  124.    Key_v        = $2F;
  125.    Key_w        = $11;
  126.    Key_x        = $2D;
  127.    Key_y        = $15;
  128.    Key_z        = $2C;
  129.  
  130.    Key_1        = $02;
  131.    Key_2        = $03;
  132.    Key_3        = $04;
  133.    Key_4        = $05;
  134.    Key_5        = $06;
  135.    Key_6        = $07;
  136.    Key_7        = $08;
  137.    Key_8        = $09;
  138.    Key_9        = $0A;
  139.    Key_0        = $0B;
  140.  
  141.    Key_F1        = $3B;
  142.    Key_F2        = $3C;
  143.    Key_F3        = $3D;
  144.    Key_F4        = $3E;
  145.    Key_F5        = $3F;
  146.    Key_F6        = $40;
  147.    Key_F7        = $41;
  148.    Key_F8        = $42;
  149.    Key_F9        = $43;
  150.    Key_F10        = $44;
  151.  
  152.    Key_Space        = $39;
  153.    Key_Enter        = $1C;
  154.    Key_Tab        = $0F;
  155.    Key_SysReq        = $54;
  156.    Key_BackSpace    = $0E;
  157.    Key_Ins        = $52;
  158.    Key_Del        = $53;
  159.  
  160.    Key_Home        = $47;
  161.    Key_UpArrow        = $48;
  162.    Key_PgUp        = $49;
  163.    Key_LeftArrow    = $4B;
  164.    Key_RightArrow    = $4D;
  165.    Key_DownArrow    = $50;
  166.    Key_End        = $4F;
  167.    Key_PgDn        = $51;
  168.  
  169.    Key_NumLock        = $45;
  170.    Key_ScrollLock    = $46;
  171.    Key_Ctrl        = $1D;
  172.    Key_shift        = $2A;
  173.    Key_Alt        = $38;
  174.    Key_CapsLock     = $3A;
  175.  
  176.    Key_minus        = $0C;
  177.    Key_equal        = $0D;
  178.    Key_period        = $34;
  179.    Key_lbracket     = $1A;
  180.    Key_rbracket     = $1B;
  181.    Key_coma        = $33;
  182.    Key_semi        = $27;
  183.    Key_rquote        = $28;
  184.    Key_lquote        = $29;
  185.    Key_asterisk     = $37;
  186.    Key_GrayMinus    = $4A;
  187.    Key_Center5        = $4C;
  188.    Key_GrayPlus     = $4E;
  189.  
  190.    Key_backslash    = $2B;
  191.    Key_forwslash    = $35;
  192.  
  193.  
  194.    PointingHand: MaskType =
  195.      (($E1FF,$E1FF,$E1FF,$E1FF,$E1ff,$E000,$E000,$e000,   { Screen Mask }
  196.        $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000),
  197.  
  198.       ($1E00,$1200,$1200,$1200,$1200,$13ff,$1249,$1249,   { Cursor Mask }
  199.        $1249,$9001,$9001,$9001,$8001,$8001,$8001,$FFFF));
  200.  
  201.    HourGlass: MaskType =
  202.      (($0000,$0000,$0000,$0000,$8001,$C003,$E007,$F00F,
  203.        $E007,$C003,$8001,$0000,$0000,$0000,$0000,$FFFF),
  204.  
  205.       ($0000,$7FFE,$6006,$300C,$1818,$0C30,$0660,$03C0,
  206.        $0660,$0C30,$1998,$33CC,$67E6,$7FFE,$0000,$0000));
  207.  
  208.    Standard: MaskType =
  209.      (($3FFF,$1FFF,$0FFF,$07FF,$03FF,$01FF,$00FF,$007F,
  210.        $003F,$001F,$01FF,$10FF,$30FF,$F87F,$F87F,$FC7F),
  211.  
  212.       ($0000,$4000,$6000,$7000,$7800,$7C00,$7E00,$7F00,
  213.        $7F80,$7C00,$6C00,$4600,$0600,$0300,$0300,$0000));
  214.  
  215.    DiagCross: MaskType =
  216.      (($07E0,$0180,$0000,$C003,$F00F,$C003,$0000,$0180,
  217.        $07E0,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF),
  218.  
  219.       ($0000,$700E,$1C38,$0660,$03C0,$0660,$1C38,$700E,
  220.        $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000));
  221.  
  222.    CheckMark: MaskType =
  223.      (($FFF0,$FFE0,$FFC0,$FF03,$0607,$000F,$001F,$C03F,
  224.        $F07F,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FFFF),
  225.  
  226.        ($0000,$0006,$000C,$0018,$0030,$0060,$70C0,$1D80,
  227.     $0700,$0000,$0000,$0000,$0000,$0000,$0000,$0000));
  228.  
  229.    MaskCURSOR : Masktype =
  230.      (($07FF,$07FF,$07FF,$8FFF,$8FFF,$8FFF,$8FFF,$8FFF,
  231.        $8FFF,$8FFF,$8FFF,$07FF,$07FF,$07FF,$FFFF,$FFFF),
  232.  
  233.       ($0000,$7000,$2000,$2000,$2000,$2000,$2000,$2000,
  234.        $2000,$2000,$2000,$2000,$7000,$0000,$0000,$0000));
  235.  
  236.    ScancodeTable       : Array [1..127] of Boolean =
  237.              (
  238.          {code 01}      FALSE,          {ESC}
  239.          {code 02}      FALSE,          {1}
  240.          {code 03}      FALSE,          {2}
  241.          {code 04}      FALSE,          {3}
  242.          {code 05}      FALSE,          {4}
  243.          {code 06}      FALSE,          {5}
  244.          {code 07}      FALSE,          {6}
  245.          {code 08}      FALSE,          {7}
  246.          {code 09}      FALSE,          {8}
  247.          {code 0A}      FALSE,          {9}
  248.          {code 0B}      FALSE,          {0}
  249.          {code 0C}      FALSE,          {-}
  250.          {code 0D}      FALSE,          {=}
  251.          {code 0E}      FALSE,          {BackSpace}
  252.          {code 0F}      FALSE,          {Tab}
  253.          {code 10}      FALSE,          {q}
  254.          {code 11}      FALSE,          {w}
  255.          {code 12}      FALSE,          {e}
  256.          {code 13}      FALSE,          {r}
  257.          {code 14}      FALSE,          {t}
  258.          {code 15}      FALSE,          {y}
  259.          {code 16}      FALSE,          {u}
  260.          {code 17}      FALSE,          {i}
  261.          {code 18}      FALSE,          {o}
  262.          {code 19}      FALSE,          {p}
  263.          {code 1A}      FALSE,          {[}
  264.          {code 1B}      FALSE,          {]}
  265.          {code 1C}      FALSE,          {Enter}
  266.          {code 1D}      FALSE,          {Ctrl}
  267.          {code 1E}      FALSE,          {a}
  268.          {code 1F}      FALSE,          {s}
  269.          {code 20}      FALSE,          {d}
  270.          {code 21}      FALSE,          {f}
  271.          {code 22}      FALSE,          {g}
  272.          {code 23}      FALSE,          {h}
  273.          {code 24}      FALSE,          {j}
  274.          {code 25}      FALSE,          {k}
  275.          {code 26}      FALSE,          {l}
  276.          {code 27}      FALSE,          {;}
  277.          {code 28}      FALSE,          {'}
  278.          {code 29}      FALSE,          {`}
  279.          {code 2A}      FALSE,          {shift}
  280.          {code 2B}      FALSE,          {\}
  281.          {code 2C}      FALSE,          {z}
  282.          {code 2D}      FALSE,          {x}
  283.          {code 2E}      FALSE,          {c}
  284.          {code 2F}      FALSE,          {v}
  285.          {code 30}      FALSE,          {b}
  286.          {code 31}      FALSE,          {n}
  287.          {code 32}      FALSE,          {m}
  288.          {code 33}      FALSE,          {,}
  289.          {code 34}      FALSE,          {.}
  290.          {code 35}      FALSE,          {/}
  291.          {code 36}      FALSE,
  292.          {code 37}      FALSE,          {Gray *}
  293.          {code 38}      FALSE,          {Alt}
  294.          {code 39}      FALSE,          {Space}
  295.          {code 3A}      FALSE,          {Caps Lock}
  296.          {code 3B}      FALSE,          {F1}
  297.          {code 3C}      FALSE,          {F2}
  298.          {code 3D}      FALSE,          {F3}
  299.          {code 3E}      FALSE,          {F4}
  300.          {code 3F}      FALSE,          {F5}
  301.          {code 40}      FALSE,          {F6}
  302.          {code 41}      FALSE,          {F7}
  303.          {code 42}      FALSE,          {F8}
  304.          {code 43}      FALSE,          {F9}
  305.          {code 44}      FALSE,          {F10}
  306.          {code 45}      FALSE,          {Num Lock}
  307.          {code 46}      FALSE,          {Scroll Lock}
  308.          {code 47}      FALSE,          {White Home}
  309.          {code 48}      FALSE,          {White Up Arrow}
  310.          {code 49}      FALSE,          {White PgUp}
  311.          {code 4A}      FALSE,          {Gray -}
  312.          {code 4B}      FALSE,          {White Left Arrow}
  313.          {code 4C}      FALSE,          {Center Key (5)}
  314.          {code 4D}      FALSE,          {White Right Arrow}
  315.          {code 4E}      FALSE,          {Gray +}
  316.          {code 4F}      FALSE,          {White End}
  317.          {code 50}      FALSE,          {White Down Arrow}
  318.          {code 51}      FALSE,          {White PgDn}
  319.          {code 52}      FALSE,          {White Ins}
  320.          {code 53}      FALSE,          {White Del}
  321.          {code 54}      FALSE,          {Sys Req}
  322.          {code 55}      FALSE,
  323.          {code 56}      FALSE,
  324.          {code 57}      FALSE,
  325.          {code 58}      FALSE,
  326.          {code 59}      FALSE,
  327.          {code 5A}      FALSE,
  328.          {code 5B}      FALSE,
  329.          {code 5C}      FALSE,
  330.          {code 5D}      FALSE,
  331.          {code 5E}      FALSE,
  332.          {code 5F}      FALSE,
  333.          {code 60}      FALSE,
  334.          {code 61}      FALSE,
  335.          {code 62}      FALSE,
  336.          {code 63}      FALSE,
  337.          {code 64}      FALSE,
  338.          {code 65}      FALSE,
  339.          {code 66}      FALSE,
  340.          {code 67}      FALSE,
  341.          {code 68}      FALSE,
  342.          {code 69}      FALSE,
  343.          {code 6A}      FALSE,
  344.          {code 6B}      FALSE,
  345.          {code 6C}      FALSE,
  346.          {code 6D}      FALSE,
  347.          {code 6E}      FALSE,
  348.          {code 6F}      FALSE,
  349.          {code 70}      FALSE,
  350.          {code 71}      FALSE,
  351.          {code 72}      FALSE,
  352.          {code 73}      FALSE,
  353.          {code 74}      FALSE,
  354.          {code 75}      FALSE,
  355.          {code 76}      FALSE,
  356.          {code 77}      FALSE,
  357.          {code 78}      FALSE,
  358.          {code 79}      FALSE,
  359.          {code 7A}      FALSE,
  360.          {code 7B}      FALSE,
  361.          {code 7C}      FALSE,
  362.          {code 7D}      FALSE,
  363.          {code 7E}      FALSE,
  364.          {code 7F}      FALSE
  365.              );
  366.  
  367.  
  368.    AsciiScanCode       : Array [1..127] of byte =
  369.              (
  370.               $00,
  371.               $00,
  372.               $00,
  373.               $00,
  374.               $00,
  375.               $00,
  376.               $00,
  377.               $00,
  378.               $00,
  379.               $00,
  380.               $00,
  381.               $00,
  382.               $00,
  383.               $00,
  384.               $00,
  385.               $00,
  386.               $00,
  387.               $00,
  388.               $00,
  389.               $00,
  390.               $00,
  391.               $00,
  392.               $00,
  393.               $00,
  394.               $00,
  395.               $00,
  396.               $00,
  397.               $00,
  398.               $00,
  399.               $00,
  400.               $00,
  401.               $39,    { }
  402.               $02,    {!}
  403.               $28,    {"}
  404.               $04,    {#}
  405.               $05,    { $}
  406.               $06,    {%}
  407.               $08,    {&}
  408.               $28,    {'}
  409.               $0A,    {(}
  410.               $0B,    {)}
  411.               $37,    {*}
  412.               $4E,    {+}
  413.               $33,    {,}
  414.               $4A,    {-}
  415.               $34,    {.}
  416.               $35,    {/}
  417.               $0B,    {0}
  418.               $02,    {1}
  419.               $03,    {2}
  420.               $04,    {3}
  421.               $05,    {4}
  422.               $06,    {5}
  423.               $07,    {6}
  424.               $08,    {7}
  425.               $09,    {8}
  426.               $0A,    {9}
  427.               $27,    {:}
  428.               $27,    {;}
  429.               $33,    {<}
  430.               $0D,    {=}
  431.               $34,    {>}
  432.               $35,    {?}
  433.               $03,    {@}
  434.               $1E,    {A}
  435.               $30,    {B}
  436.               $2E,    {C}
  437.               $20,    {D}
  438.               $12,    {E}
  439.               $21,    {F}
  440.               $22,    {G}
  441.               $23,    {H}
  442.               $17,    {I}
  443.               $24,    {J}
  444.               $25,    {K}
  445.               $26,    {L}
  446.               $32,    {M}
  447.               $31,    {N}
  448.               $18,    {O}
  449.               $19,    {P}
  450.               $10,    {Q}
  451.               $13,    {R}
  452.               $1F,    {S}
  453.               $14,    {T}
  454.               $16,    {U}
  455.               $2F,    {V}
  456.               $11,    {W}
  457.               $2D,    {X}
  458.               $15,    {Y}
  459.               $2C,    {Z}
  460.               $1A,    {[}
  461.               $2B,    {\}
  462.               $1B,    {]}
  463.               $07,    {^}
  464.               $0C,    {_}
  465.               $29,    {`}
  466.               $1E,    {a}
  467.               $30,    {b}
  468.               $2E,    {c}
  469.               $20,    {d}
  470.               $12,    {e}
  471.               $21,    {f}
  472.               $22,    {g}
  473.               $23,    {h}
  474.               $17,    {i}
  475.               $24,    {j}
  476.               $25,    {k}
  477.               $26,    {l}
  478.               $32,    {m}
  479.               $31,    {n}
  480.               $18,    {o}
  481.               $19,    {p}
  482.               $10,    {q}
  483.               $13,    {r}
  484.               $1F,    {s}
  485.               $14,    {t}
  486.               $16,    {u}
  487.               $2F,    {v}
  488.               $11,    {w}
  489.               $2D,    {x}
  490.               $15,    {y}
  491.               $2C,    {z}
  492.               $1A,    {left curly  }
  493.               $2B,    {|}
  494.               $1B,    {right curly }
  495.               $29,    {~}
  496.               $00    { }
  497.              );
  498.  
  499. {*------------------------------------------------------------------------*
  500.  |  Keyboard mouse and Microsoft Mouse constants              |
  501.  *------------------------------------------------------------------------*}
  502.    kbcode       : Word     = 0;
  503.    kbcode_striped  : Word     = 0;
  504.    kbmouse_On       : Boolean     = TRUE;    {turns on keyboard mouse}
  505.  
  506.  
  507.  
  508.    KB_ShftYSteps   : Word     = 1;
  509.    KB_ShftXSteps   : Word     = 2;
  510.    KB_XSteps       : Word     = 12;
  511.    KB_YSteps       : Word     = 8;
  512.  
  513.  
  514.    BIOS_Data             = $40;
  515.  
  516.    KeyCodeChainBusy    : boolean = false;
  517.    KeyCodeChain        : KeyRecPtr = NIL;
  518.    TimeCodeChain       : TimeRecPtr = NIL;
  519.  
  520.  
  521. VAR
  522.    Mouse_Installed  : Boolean;
  523.  
  524. {*------------------------------------------------------------------------*
  525.  |  Mouse Cursor Routines                          |
  526.  *------------------------------------------------------------------------*}
  527. function  MiddleDoubleClick : boolean;
  528. function  LeftDoubleClick : boolean;
  529. function  RightDoubleClick : boolean;
  530. Procedure SetMouseSensitivity(x_sense,y_sense,threshold:Word);
  531. Procedure GetMouseSensitivity(VAR x_sense,y_sense,threshold:Word);
  532. Procedure SetMouseMinMax(MinX,MinY,MaxX,MaxY:Word);
  533. Procedure ShowMouse;
  534. Procedure HideMouse;
  535. Procedure SetMousePosition(mousex,mousey:Word);
  536. Procedure SetMousePos(xpos,ypos:Word);
  537. Procedure CursorShape(var Shape);
  538. Procedure SetMouseMask(var Shape; x,y:word);
  539. Function  MousePosition(VAR MouseX,MouseY :  Word) :  Word;
  540. Procedure SetMouseHotSpot(x,y:Word);
  541. Procedure SetMouseColor(Color : Word);
  542. Procedure SetKeyBoardMouse(ON_OFF : Boolean);
  543. Procedure SetKBSteps(xsteps,ysteps,sfxsteps,sfysteps:Word);
  544. Procedure GetKBSteps(VAR xsteps,ysteps,sfxsteps,sfysteps:Word);
  545. Procedure GetButtonReleaseInfo(button:Word; VAR ButtonStat,ButtonRelease,xpos,ypos:Word);
  546. Procedure GetButtonPressInfo(button:Word; VAR ButtonStat,ButtonPresses,xpos,ypos:Word);
  547. Procedure ClearButtonInfo;
  548. Procedure FrozenMouse;
  549. Function  FreezeMouse(x,y,x1,y1:Word):Boolean;
  550. Procedure UnFreezeMouse(mshow:Boolean);
  551.  
  552. Procedure SwapTimerOut;
  553. Procedure SwapTimerIn;
  554. Procedure SetTimerStart(VAR timepiece:timerecptr; timeset:Word);
  555. Procedure SetTimerCallProcStart(VAR timepiece:timerecptr; timeset:Word; timercallproc:FuncCallProc);
  556. Procedure ResetTimerFlag(timepiece:timerecptr);
  557. Procedure DropTimerCount(timepiece:timerecptr);
  558. Procedure TimerSwitch(onoff:Boolean);
  559. Function NilTimeCallProc:Boolean;
  560.  
  561. Procedure SwapTEGLIntrOff;
  562. Procedure SwapTEGLIntrOn;
  563.  
  564. Function  TEGLReadkey : Word;
  565. Function  TEGLKeyPressed : Boolean;
  566. Procedure AddCaptureKey(keycode:Word;Repeatkey:Boolean; keycall:FuncCallProc);
  567. Procedure DeleteCaptureKey(keycode:Word);
  568. Function  Key(shiftbits,keycode:Byte):Word;
  569. Function  NilKeyCallProc:Boolean;
  570. Procedure SetShiftKeys(shiftflag:Byte; onoff:Boolean);
  571.  
  572. procedure TxtCursorPos(x1,y1 : word);
  573. procedure TxtCursorOn;
  574. procedure TxtCursorOff;
  575. procedure TxtCursorStop;
  576. procedure TxtCursorInit(x1,y1,x2,y2,blinktime,color:word; iconcursor:pointer);
  577. Function  TxtCursorBlink:Boolean;
  578. procedure TxtCursorResume;
  579. procedure TxtCursorFreeze;
  580.  
  581. Procedure Init_TEGLIntr;
  582.  
  583. IMPLEMENTATION
  584.