La Commande Numérique sur la Production Bois

{==============  FICHIER DE EDNUM  ======================}
{ Unite Graphe Trace.pas  Usinage machines a c.n. NUM750 }
{ programmation Turbo Pascal - Borland                   }
{ Copyright (S) 1997-2011                                }
{ programmeur du programme A.Ara                         }
{ 64150 Mourenx - France.                                }
{ Licence d'utilisation accord dans un but demonstratif  }
{ Unite crtkey.pas : editeur EDnum c.n du bois num750    }
{========================================================}

{$O+,F+}

Unit CrtKey;

Interface

CONST

{**Modification de l'ensemble Letters pour supporter les accents**}

Ordinateur486:boolean=true;

Letre  : set of Char = ['A'..'Z', 'a'..'z', '{'..'e',#27];

Number : set of Char = ['0'..'9',#27];

Qui_Nom: set of char = ['Y','y','N','n',#27];

Cherche_Letre :Set Of Char =['A'..'Z','a'..'z','0'..'9','%'];

Cherche_Letre_texte :Set Of Char =['A'..'Z','a'..'z','0'..'9',
                                   '?','?','?','?','?','?','?','?','?','?','%','-',''''];

NULL = 0;
SOH  = 1;
BS   = 8;
CD1  = 17;
VT   = 11;
FF   = 12;
CR   = 13;
ESC  = 27;
HT   = 9;
SI   = 3840;

F1 = 15104;  F2  = 15360;  F3 = 15616;  F4 = 15872;
F5 = 16128;  F6  = 16384;  F7 = 16640;  F8 = 16896;
F9 = 17152;  F10 = 17408;

CtrlF1 = 24064;  CtrlF2  = 24320;  CtrlF3 = 24576;  CtrlF4 = 24832;
CtrlF5 = 25088;  CtrlF6  = 25344;  CtrlF7 = 25600;  CtrlF8 = 25856;
CtrlF9 = 26112;  CtrlF10 = 26368;
Ctrl_T = 20;

AltF1 = 26624;  AltF2  = 26880;  AltF3 = 27136;  AltF4 = 27392;
AltF5 = 27648;  AltF6  = 27904;  AltF7 = 28160;  AltF8 = 28416;
AltF9 = 28672;  AltF10 = 28928;

CtrlAltF1  = 26624; CtrlAltF2 = 26880; CtrlAltF3 = 27136;
CtrlAltF4  = 27392; CtrlAltF5 = 27648; CtrlAltF6 = 27904;
CtrlAltF7  = 28160; CtrlAltF8 = 28416; CtrlAltF9 = 28672;
CtrlAltF10 = 28928;

{**   Inser           debut           page Haut        page haut Ctrl **}
InsKey  = 20992; HomeKey = 18176;  PgUpKey = 18688;   CtrlPgUp = 33792;

  
DelKey  = 21248; EndKey  = 20224;  PgDnKey = 20736;   CtrlPgDn = 30208;
{**   Suppr            Fin             page bas         page bas Ctrl **}


{**key Fleche H **}  UpKey    = 18432;
{**key Fleche G **}  LeftKey  = 19200;
{**key fleche D **}  RightKey = 19712;
{**key Fleche B **}  DownKey  = 20480;


{**fleche G ctrl**}  CtrlLeftKey  = 29440;
{**fleche D ctrl**}  CtrlRightKey = 29696;
{**Alt-X        **}  AltX         = 11520;


Alt_F = 8448;
Alt_L = 9728;
Alt_E = 4608;
Alt_H = 8960;
Alt_B = 12288;
Alt_O = 6144;
Alt_D = 8192;
Alt_G = 8704;
Alt_M = 12800;
Alt_C = 11776;
Alt_T = 5120;

AutoKey =253;

Type CharSet = set of Char;
  
Function GetKey : Word;

Implementation

Uses Crt;

{===================================================}
{ Renvoie la valeur de la touche gere codes etendus }
{===================================================}

Function GetKey : Word;
var Ch : Char;

begin
    Ch := ReadKey;
    if Ord(Ch) = NULL then              {**Caractere etendu**}
    GetKey := Word(Ord(ReadKey)) shl 8
    else
    GetKey := Ord(Ch);                  {**Caractere normal**}

end; {** end GetKey **}



(**=====================*Anule*============================*
 
 Function GetKey : Word;
 var
  Ch : Char;

  begin
    Ch := ReadKey;
    if Ord(Ch) = 0 then                {**Caractere etendu**}
     begin
        GetKey := Word(Ord(ReadKey)) shl 8;
        _Shif_ := Mem[0:$417] And 1 = 1;
        if Not _Shif_ Then
        _Shif_ := MEM[0:$417] And 2 = 2;
     end
    else
      begin
         GetKey := Ord(Ch);            {**Caractère normal**}
         _Shif_:= False;
      end;
  end; { end GetKey }
===========================*ends anule*==================***)

End.