home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTBAR2.PRG < prev    next >
Text File  |  1994-05-14  |  838b  |  33 lines
  1. #include "FiveWin.ch"
  2.  
  3. //----------------------------------------------------------------------------//
  4.  
  5. function Main()
  6.  
  7.    local oWnd, oBar
  8.  
  9.    DEFINE WINDOW oWnd FROM 1, 1 TO 20, 70 ;
  10.       TITLE "New Bar features..." COLOR "W+/RB"
  11.  
  12.    DEFINE BUTTONBAR oBar ADJUST OF oWnd
  13.  
  14.    DEFINE BUTTON FILE "..\bitmaps\BarLeft.bmp"  OF oBar ;
  15.       ACTION oBar:LeftMode()
  16.  
  17.    DEFINE BUTTON FILE "..\bitmaps\BarTop.bmp"   OF oBar ;
  18.       ACTION oBar:TopMode()
  19.  
  20.    DEFINE BUTTON FILE "..\bitmaps\BarRight.bmp" OF oBar ;
  21.       ACTION oBar:RightMode()
  22.  
  23.    DEFINE BUTTON FILE "..\bitmaps\BarAdj.bmp" OF oBar ;
  24.       ACTION oBar:AdjMode()
  25.  
  26.    SET MESSAGE OF oWnd TO "More power to your applications!"
  27.  
  28.    ACTIVATE WINDOW oWnd
  29.  
  30. return nil
  31.  
  32. //----------------------------------------------------------------------------//
  33.