home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 25 / IOPROG_25.ISO / SOFT / C5FOLDEE.ZIP / SAMPLES / FROMCODE.PRG < prev    next >
Encoding:
Text File  |  1998-03-12  |  2.5 KB  |  108 lines
  1. #include "fivewin.ch"
  2. #include "ch\c5fld95.ch"
  3.  
  4. static oDlg
  5.  
  6. function main()
  7.  
  8. Local cVar1 := "Texto                    ", ;
  9.       cVar2 := "Primera"
  10.  
  11. Local oFld1  , ;
  12.       oSay1  , ;
  13.       oGet1  , ;
  14.       oBoton1, ;
  15.       oLbx1  , ;
  16.       oBoton2, ;
  17.       oBoton3
  18.  
  19.  
  20.  
  21. DEFINE DIALOG oDlg ;
  22.        FROM   90,  134 TO  357,  544 PIXEL ;
  23.        TITLE "Dißlogo -2" ;
  24.        COLOR CLR_BLACK, CLR_WHITE
  25.  
  26.  
  27.  
  28.  
  29.         @ 24, 32 FOLDER95 oFld1 ;
  30.                        OF oDlg ;
  31.                        ITEMS "Uno", ;
  32.                              "Dos", ;
  33.                              "Tres" ;
  34.                        PIXEL ;
  35.                        COLOR CLR_BLACK, CLR_HGRAY ;
  36.                        OPTION 3 ;
  37.                        SIZE  328,  184
  38.  
  39.  
  40.  
  41.  
  42.  
  43.         @ 20, 16 SAY oSay1 ;
  44.                        PROMPT "Texto                    " ;
  45.                        OF oFld1:aDialogs[1] ;
  46.                        PIXEL ;
  47.                        COLOR CLR_BLACK, CLR_HGRAY ;
  48.                        SIZE   44,    8
  49.  
  50.  
  51.  
  52.         @ 16,  64 GET oGet1 ;
  53.                        VAR cVar1 ;
  54.                        OF oFld1:aDialogs[1] ;
  55.                        COLOR CLR_BLACK, CLR_WHITE ;
  56.                        SIZE   40,   12 ;
  57.                        PIXEL
  58.  
  59.  
  60.  
  61.         @ 57, 76 BUTTON oBoton1 ;
  62.                        PROMPT "&Boton" ;
  63.                        SIZE   36,   12 ;
  64.                        OF oFld1:aDialogs[1] ;
  65.                        HELPID        100 ;
  66.                        PIXEL
  67.  
  68.  
  69.  
  70.         @  8, 40 LISTBOX oLbx1 ;
  71.                        VAR cVar2 ;
  72.                        ITEMS {"Primera", ;
  73.                              "Segunda", ;
  74.                              "Tercera", ;
  75.                              "Cuarta", ;
  76.                              "Quinta"} ;
  77.                        SIZE   48,   44 ;
  78.                        OF oFld1:aDialogs[2] ;
  79.                        COLOR CLR_BLACK, CLR_WHITE ;
  80.                        PIXEL
  81.  
  82.  
  83.  
  84.         @ 24, 104 BUTTON oBoton2 ;
  85.                        PROMPT "&Boton" ;
  86.                        SIZE   36,   16 ;
  87.                        OF oFld1:aDialogs[2] ;
  88.                        HELPID        100 ;
  89.                        PIXEL
  90.  
  91.  
  92.  
  93.         @ 24, 100 BUTTON oBoton3 ;
  94.                        PROMPT "&Boton" ;
  95.                        SIZE   36,   16 ;
  96.                        OF oFld1:aDialogs[3] ;
  97.                        HELPID        100 ;
  98.                        PIXEL
  99.  
  100.  
  101. ACTIVATE DIALOG oDlg ;
  102.          CENTER
  103.  
  104.  
  105. Return nil
  106.  
  107.  
  108.