home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTCLR.PRG < prev    next >
Text File  |  1994-05-16  |  600b  |  25 lines
  1. #include "FiveWin.ch"
  2.  
  3. //----------------------------------------------------------------------------//
  4.  
  5. function Main()
  6.  
  7.    local oWnd, oFont
  8.    local cText := "Hello World!"
  9.  
  10.    DEFINE WINDOW oWnd FROM 1, 1 TO 20, 70 TITLE "Testing Colored Gets"
  11.  
  12.    DEFINE FONT oFont NAME "Arial" SIZE 20, 20
  13.  
  14.    @ 2, 2 GET cText OF oWnd SIZE 400, 50 ;
  15.       COLOR "W+/B" FONT oFont
  16.  
  17.    @ 7, 2 GET cText OF oWnd SIZE 400, 50 ;
  18.       COLOR CLR_WHITE, CLR_GREEN FONT oFont
  19.  
  20.    ACTIVATE WINDOW oWnd
  21.  
  22. return nil
  23.  
  24. //----------------------------------------------------------------------------//
  25.