home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTICON.PRG < prev    next >
Text File  |  1994-04-09  |  2KB  |  53 lines
  1. //----------------------------------------------------------------------------//
  2. //  FiveWin 1.0 - Ejemplos
  3. //  (c) A.Linares, F.Pulpón 1993
  4. //----------------------------------------------------------------------------//
  5.  
  6. // Jugando con iconos...
  7.  
  8. #include "FiveWin.ch"
  9.  
  10. static oWnd
  11.  
  12. //----------------------------------------------------------------------------//
  13.  
  14. function Main()
  15.  
  16.    local oBrush
  17.  
  18.    DEFINE BRUSH oBrush STYLE TILED
  19.  
  20.    DEFINE WINDOW oWnd FROM 1, 1 TO 20, 44 ;
  21.       TITLE OemToAnsi( "Visualizando Iconos desde Disco" ) ;
  22.       BRUSH oBrush
  23.  
  24.    ACTIVATE WINDOW oWnd ;
  25.       ON INIT SomeIcons( oWnd )
  26.  
  27. return
  28.  
  29. //----------------------------------------------------------------------------//
  30.  
  31. function SomeIcons( oWnd )
  32.  
  33.    @ 2, 2 ICON FILENAME "..\icons\fred.ico" OF oWnd ;
  34.       ON CLICK MsgInfo( "Hola, soy Pedro Picapiedra" )
  35.  
  36.    @ 5, 2 ICON FILENAME "..\icons\basic.ico" BORDER OF oWnd ;
  37.       ON CLICK MsgInfo( OemToAnsi( "FiveWin - La revolución xBase" ) )
  38.  
  39.    @ 8, 2 ICON FILENAME "..\icons\fw.ico" OF oWnd ;
  40.       ON CLICK MsgInfo( OemToAnsi( "¿ Que te parece FiveWin ?" ) )
  41.  
  42.    @ 11, 2 ICON FILENAME "..\icons\FiveWin.ico" OF oWnd ;
  43.       ON CLICK MsgInfo( OemToAnsi( "¿ No te gusta este menú basado en Iconos ?" ) )
  44.  
  45.    @  3, 7 SAY "Seleccione Pedro PicaPiedra" OF oWnd
  46.    @  6, 7 SAY OemToAnsi( "Programación Estructurada" ) OF oWnd
  47.    @  9, 7 SAY "FiveWin es Clipper, Windows y OOPS" OF oWnd
  48.    @ 12, 7 SAY OemToAnsi( "(c) A.Linares y F.Pulpón, 1993" ) OF oWnd
  49.  
  50. return
  51.  
  52. //----------------------------------------------------------------------------//
  53.