home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTMETR.PRG < prev    next >
Text File  |  1994-01-16  |  814b  |  33 lines
  1. #include "FiveWin.ch"
  2.  
  3. //----------------------------------------------------------------------------//
  4.  
  5. function Main()
  6.  
  7.    DEFINE WINDOW oWnd FROM 1, 1 TO 10, 44 ;
  8.       TITLE OemToAnsi( "Probando los nuevos controles 'Meter'" )
  9.  
  10.    ACTIVATE WINDOW oWnd ;
  11.       ON INIT ShowControls( oWnd )
  12.  
  13. return
  14.  
  15. //----------------------------------------------------------------------------//
  16.  
  17. function ShowControls( oWnd )
  18.  
  19.    local nActual := 0
  20.    local oMeter
  21.  
  22.    @ 2, 2 METER oMeter VAR nActual TOTAL 50 OF oWnd
  23.  
  24.    @ 6,  8 BUTTON "&Disminuye" OF oWnd SIZE 90, 25 ;
  25.       ACTION oMeter:Set( nActual - 1 )
  26.  
  27.    @ 6, 27 BUTTON "&Aumenta"   OF oWnd SIZE 90, 25 ;
  28.       ACTION oMeter:Set( nActual + 1 )
  29.  
  30. return
  31.  
  32. //----------------------------------------------------------------------------//
  33.