home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTSAY.PRG < prev    next >
Text File  |  1994-02-04  |  581b  |  24 lines
  1. #include "FiveWin.ch"
  2.  
  3. //----------------------------------------------------------------------------//
  4.  
  5. function Main()
  6.  
  7.    local oWnd, oFont
  8.  
  9.    DEFINE FONT oFont NAME "Arial" SIZE 40, 60
  10.  
  11.    DEFINE WINDOW oWnd FROM 1, 1 TO 20, 50 TITLE "Testing Method Say()"
  12.  
  13.    @ 1, 1 BUTTON " &Say " OF oWnd SIZE 60, 25 ;
  14.       ACTION oWnd:Say( 3, 3, "Hola", nRGB( 0, 0, 0 ), nRGB( 192, 192, 192 ),;
  15.                        oFont )
  16.  
  17.    ACTIVATE WINDOW oWnd
  18.  
  19.    RELEASE FONT oFont
  20.  
  21. return
  22.  
  23. //----------------------------------------------------------------------------//
  24.