home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTCURS.PRG < prev    next >
Text File  |  1994-05-21  |  1KB  |  47 lines
  1. // Testing Cursors !!!
  2.  
  3. #include "FiveWin.ch"
  4.  
  5. //----------------------------------------------------------------------------//
  6.  
  7. function Main()
  8.  
  9.    local oWnd, oBrush, oBar
  10.    local oCrsArrow, oCrsLogo, oCrsFW, oCrsHand
  11.  
  12.    DEFINE BRUSH oBrush RESOURCE "SoftYello"
  13.  
  14.    DEFINE CURSOR oCrsArrow RESOURCE "OS2"
  15.    DEFINE CURSOR oCrsLogo  RESOURCE "OS2Logo"
  16.    DEFINE CURSOR oCrsFW    RESOURCE "FiveWin"
  17.    DEFINE CURSOR oCrsHand  RESOURCE "Hand"
  18.  
  19.    DEFINE WINDOW oWnd FROM 5, 5 TO 20, 60 ;
  20.       TITLE "OS2 Look-Alike..." ;
  21.       BRUSH  oBrush ;
  22.       CURSOR oCrsArrow
  23.  
  24.    DEFINE BUTTONBAR oBar OF oWnd ;
  25.       CURSOR oCrsHand
  26.  
  27.    DEFINE BUTTON OF oBar ACTION oWnd:oCursor := oCrsArrow ;
  28.       MESSAGE "Use OS2 style cursor..."
  29.  
  30.    DEFINE BUTTON OF oBar ACTION oWnd:oCursor := oCrsLogo ;
  31.       MESSAGE "Use OS2 Logo cursor..."
  32.  
  33.    DEFINE BUTTON OF oBar ACTION oWnd:oCursor := oCrsFW ;
  34.       MESSAGE "Use FiveWin style cursor..."
  35.  
  36.    @ 4, 2 BUTTON "&Hide" SIZE 80, 25 OF oWnd ACTION oBar:Hide()
  37.  
  38.    @ 7, 2 BUTTON "&Show" SIZE 80, 25 OF oWnd ACTION oBar:Show()
  39.  
  40.    SET MESSAGE OF oWnd TO "Changing cursors on the fly!!!"
  41.  
  42.    ACTIVATE WINDOW oWnd
  43.  
  44. return nil
  45.  
  46. //----------------------------------------------------------------------------//
  47.