home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / dos / prg / mos / exemples / gfx_src / selector.pas < prev    next >
Pascal/Delphi Source File  |  1994-09-11  |  4KB  |  69 lines
  1. {╔══════════════════════════════════════════════════════════════════════════╗
  2.  ║       EXEMPLE D'UTILISATION DES FONCTIONS DE L'INTERFACE GRAPHIQUE       ║
  3.  ╠══════════════════════════════════════════════════════════════════════════╣
  4.  ║                      OBTENTION D'UN FILE REQUESTER                       ║
  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.      ZUUL_DIR;                           {*Gestion des Directories*}
  21.  
  22. {╔══════════════════════════════════════════════════════════════════════════╗
  23.  ║                         PROCEDURE PRINCIPALE                             ║
  24.  ╚══════════════════════════════════════════════════════════════════════════╝}
  25.  
  26. Procedure MAIN;
  27. Var But0,But1,But2           :ButG;           {*Type pour Gadgets Prédéfinit*}
  28.     ExitFlg                  :Boolean;        {*Flag Sortie Programme*}
  29.     DirSel,FilSel            :String;         {*Nom du directory et Fichier Sélectionnés*}
  30.     Size                     :Longint;        {*Taille Fichier Sélectionné*}
  31.     ES                       :String;
  32.  
  33. Begin
  34. ExitFlg:=False;
  35. ButtonG(200,10,240,False,But0,'OBTENTION D''UN FILE REQUESTER'); {*Titre*}
  36. ButtonG(10,15,59,False,But1,'E_XIT');         {*Initialise les Boutons*}
  37. ButtonG(10,35,89,False,But2,'GET _DIRECTORY');
  38. Bevel(10,105,420,135,1,Col7,True,True);       {*Affiche la Boite*}
  39. DispG(20,110,Col7,'VOUS AVEZ SELECTIONNE .......');
  40. DispG(20,120,Col7,'TAILLE DU FICHIER ..............');
  41.  
  42. Repeat
  43. If GETMSG_BUT(But1,1)=True Then ExitFlg:=True;{*Sortie du Programme*}
  44.  
  45. If GETMSG_BUT(But2,1)=True Then Begin         {*File Requester*}
  46.    GET_FILEDIR(50,30,280,'SELECT A FILE','_OK','*.*',0,DirSel,FilSel,Size);
  47.    DispG(184,110,Col7,DirSel+FilSel+'    ');  {*Display Dir+Name*}
  48.    Str(Size,ES); DispG(184,120,Col7,ES+'     ');{*Display Length*}
  49.    End;
  50.  
  51. Until ExitFlg=True;                           {*Sortie du Programme*}
  52. End;
  53.  
  54. {╔══════════════════════════════════════════════════════════════════════════╗
  55.  ║                           PROGRAMME PRINCIPAL                            ║
  56.  ╚══════════════════════════════════════════════════════════════════════════╝}
  57.  
  58. Begin
  59. INIT_ASM;                               {*Initialise All for Asm*}
  60. INIT_SCREEN;                            {*Initialise All for Screen*}
  61. INIT_MOUSE;                             {*Initialise All for Mouse*}
  62.  
  63. MAIN;                                   {*Execute le Programme Principal*}
  64.  
  65. DONE_MOUSE;                             {*Restore All for Mouse*}
  66. DONE_SCREEN;                            {*Restore All for Screen*}
  67. DONE_ASM;                               {*Restore All for Asm*}
  68. End.
  69.