home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTBTN.PRG < prev    next >
Text File  |  1994-01-16  |  936b  |  37 lines
  1. #include "FiveWin.ch"
  2.  
  3. static oWnd
  4.  
  5. //----------------------------------------------------------------------------//
  6.  
  7. function Main()
  8.  
  9.    local oBar
  10.    local oBrush
  11.  
  12.    DEFINE BRUSH oBrush COLOR nRGB( 12, 129, 87 )
  13.  
  14.    DEFINE WINDOW oWnd FROM 1, 10 TO 20, 60 ;
  15.       TITLE "Testing Buttons from disk" ;
  16.       BRUSH oBrush
  17.  
  18.    DEFINE BUTTONBAR oBar OF oWnd
  19.  
  20.    DEFINE BUTTON OF oBar FILE "Btn1.bmp" ACTION MsgInfo( "FiveWin 1.2" ) ;
  21.       MESSAGE "You can place..."
  22.  
  23.    DEFINE BUTTON OF oBar FILE "Open.bmp" GROUP ;
  24.       ACTION MsgInfo( "FiveWin 1.2" ) ;
  25.       MESSAGE "Any BMP File here..."
  26.  
  27.    DEFINE BUTTON OF oBar FILE "Cut.bmp" ACTION MsgInfo( "FiveWin 1.2" ) ;
  28.       MESSAGE "Reading it from disk !!!"
  29.  
  30.    SET MESSAGE OF oWnd TO "FiveWin 1.2 - The Magic of Windows & Clipper 5"
  31.  
  32.    ACTIVATE WINDOW oWnd
  33.  
  34. return
  35.  
  36. //----------------------------------------------------------------------------//
  37.