home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / dos / prg / mos / exemples / txt_src / buttons.pas next >
Pascal/Delphi Source File  |  1994-09-11  |  4KB  |  82 lines
  1. {╔══════════════════════════════════════════════════════════════════════════╗
  2.  ║          EXEMPLE D'UTILISATION DES FONCTIONS DE L'INTERFACE TEXTE        ║
  3.  ╠══════════════════════════════════════════════════════════════════════════╣
  4.  ║                      GESTION DES BOUTONS POUSSOIRS                       ║
  5.  ╠══════════════════════════════════════════════════════════════════════════╣
  6.  ║ Coded by Zuul as BouFFtou as Cheveau Frédéric.                           ║
  7.  ║ Programmé à l'IUT de Montpellier sur Turbo Pascal V7.00.                 ║
  8.  ║ Contact us on 36.14 RTEL1 - Bal "BouFFtou" or Bal "ICF".                 ║
  9.  ╚══════════════════════════════════════════════════════════════════════════╝}
  10.  
  11. {$M 64000,0,365520}                     {*Stack and Heap*}
  12. Program EXEMPLE;
  13.  
  14. Uses Crt,
  15.      ZUUL_MSE,                          {*Unités Nécessaires*}
  16.      ZUUL_SWA,
  17.      ZUUL_TOO,
  18.      ZUUL_COL,
  19.      ZUUL_GAD;
  20.  
  21. {╔═══════════════════════════════════════════════════════════════════════════╗
  22.  ║                           PROCEDURE PRINCIPALE                            ║
  23.  ╚═══════════════════════════════════════════════════════════════════════════╝}
  24.  
  25. Procedure MAIN;
  26. Var  X0,Y0:Word;                                {*Save Pos Curseur for Resto*}
  27.      Flg_Esc:Boolean;                           {*Flag de sortie de la boucle*}
  28.      B0,B1,B2,B3,B4:But;                        {*Définition des Boutons*}
  29.      B5,B6,B7,B8,B9:But;
  30.  
  31. Begin
  32. X0:=WhereX; Y0:=WhereY;                         {*Capture Position du Curseur*}
  33. TextAttr:=143;                                  {*Couleur de Fond Ecran*}
  34. Box(1,1,80,25,False,False,False);               {*Cls Screen*}
  35. TextAttr:=120;                                    {*Couleur de Fond Ecran*}
  36. Box(20,2,60,4,True,False,False);                {*Titre Ecran*}
  37. Gotoxy(31,3); Writeln('GESTION DES BOUTONS');
  38. Flg_Esc:=False;                                 {*Flag de Sortie a False*}
  39.  
  40. BUTTON(5,2,15,7,128,B0,' EXIT ');               {*Définition des Boutons*}
  41. BUTTON(10,7,15,7,128,B1,' BOUTON GAUCHE ');
  42. BUTTON(10,9,15,7,128,B2,' BOUTON CENTRE ');
  43. BUTTON(10,11,15,7,128,B3,' BOUTON DROIT  ');
  44. BUTTON(10,22,15,7,128,B4,'   LA TAILLE DU BOUTON PEUT ETRE TRES GRANDE, LA PREUVE...  ');
  45. BUTTON(40,7,11,7,128,B5,' LA COULEUR EST MODIFIABLE ');
  46. BUTTON(40,9,15,3,128,B6,' LE FOND L''EST AUSSI ');
  47. BUTTON(10,13,15,3,128,B7,' BOUTON SENSITIF 1 ');
  48. BUTTON(10,15,15,3,128,B8,' BOUTON SENSITIF 2 ');
  49. BUTTON(40,15,15,7,128,B9,' INACTIF ');
  50.  
  51. Repeat                                          {*Boucle Principale*}
  52. If GADMSG(B0,1)=True Then Flg_Esc:=True;        {*Test Message Buttons*}
  53. If GADMSG(B1,1)=True Then Writeln(#7);
  54. If GADMSG(B2,2)=True Then Writeln(#7);
  55. If GADMSG(B3,3)=True Then Writeln(#7);
  56. If GADMSG(B4,1)=True Then Writeln(#7);
  57. If GADMSG(B5,1)=True Then Writeln(#7);
  58. If GADMSG(B6,1)=True Then Writeln(#7);
  59. If GADMSG(B7,0)=True Then Writeln(#7);
  60. If GADMSG(B8,10)=True Then Writeln(#7);
  61. Until Flg_Esc=True;                             {*Test si Sortie = Ok*}
  62.  
  63. Gotoxy(X0,Y0); TC(7); BGC(0);                   {*Restore Couleurs*}
  64. End;
  65.  
  66. {╔═══════════════════════════════════════════════════════════════════════════╗
  67.  ║                            PROGRAMME PRINCIPAL                            ║
  68.  ╚═══════════════════════════════════════════════════════════════════════════╝}
  69.  
  70. Begin
  71. CopyPage(0,3);                                  {*Save Page écran*}
  72. CursOff;                                        {*Cache le Curseur*}
  73. ShowMouse;                                      {*Affiche la Souris*}
  74. ExtendedCols;                                   {*Passe en Couleurs Etendues*}
  75.  
  76. MAIN;                                           {*Procedure Principale*}
  77.  
  78. NormalCols;                                     {*Passe en Couleurs Normales*}
  79. HideMouse;                                      {*Planque la Souris*}
  80. CursOn;                                         {*Affiche le Curseur*}
  81. CopyPage(3,0);                                  {*Restore Page écran*}
  82. End.