by kajot » Sun Jun 17, 2007 8:54 am
#include "FiveWin.ch"
static oWnd
//----------------------------------------------------------------------------//
function Main()
local oBar
SET _3DLOOK ON
DEFINE WINDOW oWnd FROM 0,0 to 200,800 pixel TITLE "Karta pracy" ;
MENU BuildMenu()
SET MESSAGE OF oWnd TO "(c) Inkom"
ACTIVATE WINDOW oWnd
// VALID MsgYesNo( "Czy koniec ?" )
return nil
//----------------------------------------------------------------------------//
function BuildMenu()
local oMenu
MENU oMenu
MENUITEM "&Karta"
MENU
MENUITEM "&Pracownicy" //Action bro01()
MENUITEM "&Zleceniobiocy"
ENDMENU
MENUITEM "&Raporty"
MENU
MENUITEM "&Karta pracy" //Action rep01()
ENDMENU
MENUITEM "&Koniec"
MENU
MENUITEM "&Koniec" ACTION oWnd:End()
ENDMENU
ENDMENU
return oMenu
//----------------------------------------------------------------------------//
procedure AppSys // XBase++ requirement
return
// -------------------