home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 25 / IOPROG_25.ISO / SOFT / C5FOLDEE.ZIP / SAMPLES / PP.PRG < prev    next >
Encoding:
Text File  |  1998-03-19  |  1.3 KB  |  55 lines
  1. #include "fivewin.ch"
  2. #include "ch\c5flddi.ch"
  3.  
  4.  
  5. function main()
  6.  
  7. local oDlg, oFld
  8.  
  9. Local oGet1,  oGet2,  oGet3
  10. Local oGet21, oGet22, oGet23
  11.  
  12. LOCAL oBtn
  13. local oBtn1, oBtn2, oBtn21, oBtn22
  14.  
  15. local cVar1 := space(10)
  16. local cVar2 := space(10)
  17. local cVar3 := 10
  18.  
  19. local cVar21 := space(20)
  20. local cVar22 := 20
  21. local cVar23 := ctod("11-11-11")
  22.  
  23.  
  24. DEFINE DIALOG oDlg NAME "DIALOG_1"
  25.  
  26.        REDEFINE FOLDERDI oFld ID 101 OF oDlg ;
  27.              DIALOGS "DIALOG_2","DIALOG_3"   ;
  28.              PROMPTS "Una","Dos"
  29.  
  30.       REDEFINE BUTTON oBtn        ID 102 OF oDlg
  31.  
  32.       REDEFINE GET oGet1  VAR cVar1  ID 101 OF oFld:aDialogs[ 1 ]
  33.       REDEFINE GET oGet2  VAR cVar2  ID 102 OF oFld:aDialogs[ 1 ]
  34.       REDEFINE GET oGet3  VAR cVar3  ID 103 OF oFld:aDialogs[ 1 ]
  35.  
  36.  
  37.       REDEFINE BUTTON oBtn1      ID 104 OF oFld:aDialogs[ 1 ]
  38.       REDEFINE BUTTON oBtn2      ID 105 OF oFld:aDialogs[ 1 ]
  39.  
  40.       REDEFINE GET oGet21 VAR cVar21  ID 101 OF oFld:aDialogs[ 2 ]
  41.       REDEFINE GET oGet22 VAR cVar22  ID 102 OF oFld:aDialogs[ 2 ]
  42.       REDEFINE GET oGet23 VAR cVar23  ID 103 OF oFld:aDialogs[ 2 ]
  43.  
  44.  
  45.       REDEFINE BUTTON oBtn21      ID 104 OF oFld:aDialogs[ 2 ]
  46.       REDEFINE BUTTON oBtn22      ID 105 OF oFld:aDialogs[ 2 ]
  47.  
  48.  
  49. ACTIVATE DIALOG oDlg
  50.  
  51. return nil
  52.  
  53.  
  54.  
  55.