Retro video games delivered to your door every month!
Click above to get retro games delivered to your door ever month!
X-Hacker.org- FiveWin 1.9.2 - January 97 - // our first window, now with control events examples and with a message bar http://www.X-Hacker.org [<<Previous Entry] [^^Up^^] [Next Entry>>] [Menu] [About The Guide]
// Our first Window, now with Control events examples and with a message bar

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local oWnd, oBrush
   
   DEFINE BRUSH oBrush FILENAME "..\bitmaps\Back1.bmp"

   DEFINE WINDOW oWnd TITLE "FiveWin" ;
      FROM 3, 6 TO 20, 70 ;
      BRUSH oBrush
      
   SET MESSAGE OF oWnd TO FWVERSION + " " + FWCOPYRIGHT // Strings defined
                                                        // inside FiveWin.ch
   ACTIVATE WINDOW oWnd ;
      ON LEFT CLICK MsgInfo( "Left Click", "Event!" ) ;
      ON RESIZE MsgAlert( "ReSize", "Event!" ) ;
      ON PAINT  oWnd:Say( 2, 2, "Hello World!" )

return nil

//----------------------------------------------------------------------------//

Online resources provided by: http://www.X-Hacker.org --- NG 2 HTML conversion by Dave Pearson