home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / dos / prg / mos / exemples / gfx_src / ligh_box.pas < prev    next >
Pascal/Delphi Source File  |  1994-09-11  |  3KB  |  70 lines
  1. {╔══════════════════════════════════════════════════════════════════════════╗
  2.  ║       EXEMPLE D'UTILISATION DES FONCTIONS DE L'INTERFACE GRAPHIQUE       ║
  3.  ╠══════════════════════════════════════════════════════════════════════════╣
  4.  ║                        GESTION DES BOUTONS RADIOS                        ║
  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_MSE,                           {*Gestion de la Souris*}
  15.      ZUUL_ASM,                           {*Gestion des Instructions ASM*}
  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.      Graph;
  21.  
  22. {╔══════════════════════════════════════════════════════════════════════════╗
  23.  ║                         PROCEDURE PRINCIPALE                             ║
  24.  ╚══════════════════════════════════════════════════════════════════════════╝}
  25.  
  26. Procedure MAIN;
  27. Var But0,But1                :ButG;           {*Type pour Gadgets Prédéfinit*}
  28.     ExitFlg                  :Boolean;        {*Flag Sortie Programme*}
  29.     Lb1:LightB;
  30.     ES:String;
  31.  
  32. Begin
  33. ExitFlg:=False;
  34. Bevel(10,105,300,135,1,Col7,True,True);       {*Affiche la Boite*}
  35. ButtonG(200,10,240,False,But0,'GESTION DES LIGHT-BOX');   {*Titre*}
  36. ButtonG(10,15,59,False,But1,'E_XIT');          {*Initialise les Boutons*}
  37. DispG(20,110,Col7,'COORDONEE X1:          COORDONEE X2:');
  38. DispG(20,120,Col7,'COORDONEE Y1:          COORDONEE Y2:');
  39.  
  40. Repeat
  41. If GETMSG_BUT(But1,1)=True Then ExitFlg:=True;{*Sortie du Programme*}
  42.  
  43. If LIGHT_BOX(Lb1,1)=True Then                 {*Gestion Light_Box*}
  44.    Begin
  45.    SetColor(Col0);
  46.    Str(LB1.X1,ES); DispG(104,110,Col7,ES+'   ');
  47.    Str(LB1.Y1,ES); DispG(104,120,Col7,ES+'   ');
  48.    Str(LB1.X2,ES); DispG(240,110,Col7,ES+'   ');
  49.    Str(LB1.Y2,ES); DispG(240,120,Col7,ES+'   ');
  50.    End;
  51.  
  52. Until ExitFlg=True;                           {*Sortie du Programme*}
  53. End;
  54.  
  55. {╔══════════════════════════════════════════════════════════════════════════╗
  56.  ║                           PROGRAMME PRINCIPAL                            ║
  57.  ╚══════════════════════════════════════════════════════════════════════════╝}
  58.  
  59. Begin
  60. INIT_ASM;                               {*Initialise All for Asm*}
  61. INIT_SCREEN;                            {*Initialise All for Screen*}
  62. INIT_MOUSE;                             {*Initialise All for Mouse*}
  63.  
  64. MAIN;                                   {*Execute le Programme Principal*}
  65.  
  66. DONE_MOUSE;                             {*Restore All for Mouse*}
  67. DONE_SCREEN;                            {*Restore All for Screen*}
  68. DONE_ASM;                               {*Restore All for Asm*}
  69. End.
  70.