home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / dos / prg / mos / exemples / gfx_src / gadgets.pas < prev    next >
Pascal/Delphi Source File  |  1994-09-11  |  4KB  |  87 lines
  1. {╔══════════════════════════════════════════════════════════════════════════╗
  2.  ║       EXEMPLE D'UTILISATION DES FONCTIONS DE L'INTERFACE GRAPHIQUE       ║
  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 ESSAIS;                          {*Nom du Programme*}
  13.  
  14. Uses ZUUL_ASM,                           {*Gestion des Instructions ASM*}
  15.      ZUUL_MSE,                           {*Gestion de la Souris*}
  16.      ZUUL_TXT,                           {*Gestion du Texte*}
  17.      ZUUL_COL,                           {*Gestion des Couleurs*}
  18.      ZUUL_TOO,                           {*Gestion des Tools et Box*}
  19.      ZUUL_GAD;                           {*Gestion des Gadgets*}
  20.  
  21. {╔══════════════════════════════════════════════════════════════════════════╗
  22.  ║                         PROCEDURE PRINCIPALE                             ║
  23.  ╚══════════════════════════════════════════════════════════════════════════╝}
  24.  
  25. Procedure MAIN;
  26. Var But0,But1,But2,But3,But4,                 {*Type pour Gadgets Boutons*}
  27.     But5,But6,But7,But8,
  28.     But9,But10,But11,But12,
  29.     But13                    :ButG;
  30.     ExitFlg                  :Boolean;        {*Flag Sortie Programme*}
  31.  
  32. Begin
  33. ExitFlg:=False;
  34. ButtonG(200,10,240,False,But0,'GESTION DES BOUTONS POUSSOIRS');   {*Titre*}
  35.  
  36. Bevel(100,55,540,190,1,7,True,True);          {*Affiche la Boite du Centre*}
  37.  
  38. ButtonG(10,15,59,False,But0,'E_XIT');         {*Initialise les Boutons*}
  39. ButtonG(120,65,120,False,But2,'BOUTON DE GAUCHE');
  40. ButtonG(120,85,120,False,But3,'BOUTON DU CENTRE');
  41. ButtonG(120,105,120,False,But4,'BOUTON DE DROITE');
  42. ButtonG(120,165,250,False,But5,'LA TAILLE EST LIMITEE A 37 CARACTERES');
  43. ButtonG(120,145,400,False,But6,'IL PEUT ETRE TRES GRAND');
  44. ButtonG(320,65,200,False,But7,'IL EST TOUJOURS CENTRE');
  45. ButtonG(370,85,150,False,But8,'JE SUIS INACTIF');
  46. ButtonG(260,105,50,False,But9,'_BIP');
  47. ButtonG(450,105,25,True,But10,'OFF');         {*Bouton On/Off*}
  48. ButtonG(450,125,60,True,But11,'ESSAYEZ');     {*Bouton On/Off*}
  49. ButtonG(120,125,120,False,But12,'PRESSEZ CTRL _A');{*Bouton avec Access Clavier*}
  50.  
  51. DispG(350,107,Col7,'JE RESTE BLOQUE');
  52. DispG(390,127,Col7,'MOI AUSSI');
  53.  
  54. Repeat
  55. If GETMSG_BUT(But0,1)=True Then ExitFlg:=True;{*Sortie du Programme*}
  56.  
  57. If GETMSG_BUT(But2,1)=True Then Else;         {*Test des Boutons*}
  58. If GETMSG_BUT(But3,2)=True Then Else;
  59. If GETMSG_BUT(But4,3)=True Then Else;
  60. If GETMSG_BUT(But5,1)=True Then Else;
  61. If GETMSG_BUT(But6,1)=True Then Else;
  62. If GETMSG_BUT(But7,1)=True Then Else;
  63.  
  64. If GETMSG_BUT(But9,1)=True Then Beep;         {*Action = Beep*}
  65. If GETMSG_BUT(But10,1)=True Then Else;
  66. If GETMSG_BUT(But11,1)=True Then Else;
  67. If GETMSG_BUT(But12,1)=True Then Else;
  68.  
  69. Until ExitFlg=True;                           {*Sortie du Programme*}
  70. End;
  71.  
  72. {╔══════════════════════════════════════════════════════════════════════════╗
  73.  ║                           PROGRAMME PRINCIPAL                            ║
  74.  ╚══════════════════════════════════════════════════════════════════════════╝}
  75.  
  76. Begin
  77. INIT_ASM;                               {*Initialise All for Asm*}
  78. INIT_SCREEN;                            {*Initialise All for Screen*}
  79. INIT_MOUSE;                             {*Initialise All for Mouse*}
  80.  
  81. MAIN;                                   {*Execute le Programme Principal*}
  82.  
  83. DONE_MOUSE;                             {*Restore All for Mouse*}
  84. DONE_SCREEN;                            {*Restore All for Screen*}
  85. DONE_ASM;                               {*Restore All for Asm*}
  86. End.
  87.