#include "FiveWeb.ch"
//----------------------------------------------------------------------------//
function Main( cParam )
SET BACKIMAGE TO "http://fiveweb.googlecode.com/svn/trunk/images/beach.jpg"
@ 80, 80 SAY "Pulldown Menu" URL hb_argv( 0 ) + "?pdmenu"
@ 140, 80 SAY "Dialog" URL hb_argv( 0 ) + "?dialog"
do case
case cParam == "pdmenu"
BuildMenu()
case cParam == "dialog"
BuildDialog()
endcase
return nil
//----------------------------------------------------------------------------//
function BuildMenu()
local oMenu
MENU oMenu
MENUITEM "Info"
MENU
MENUITEM "About..." ACTION MsgInfo( "FiveWeb power" )
ENDMENU
MENUITEM "Files"
MENU
MENUITEM "Clients"
MENUITEM "Stock"
ENDMENU
MENUITEM "Reports"
MENUITEM "Help"
ENDMENU
return nil
//----------------------------------------------------------------------------//
function BuildDialog()
local oDlg
DEFINE DIALOG oDlg TITLE "Hello FiveWeb"
ACTIVATE DIALOG oDlg NOWAIT
return nil
//----------------------------------------------------------------------------//
Antonio Linares wrote:+ Añadida la Clase TWindow para usar la ventana principal (por defecto)
+ Añadido el ejemplo samples/demo.prg
http://www.fivetechsoft.net/cgi-bin/demo
demo.prg
- Code: Select all Expand view RUN
#include "FiveWeb.ch"
//----------------------------------------------------------------------------//
function Main( cParam )
SET BACKIMAGE TO "http://fiveweb.googlecode.com/svn/trunk/images/beach.jpg"
@ 80, 80 SAY "Pulldown Menu" URL hb_argv( 0 ) + "?pdmenu"
@ 140, 80 SAY "Dialog" URL hb_argv( 0 ) + "?dialog"
do case
case cParam == "pdmenu"
BuildMenu()
case cParam == "dialog"
BuildDialog()
endcase
return nil
//----------------------------------------------------------------------------//
function BuildMenu()
local oMenu
MENU oMenu
MENUITEM "Info"
MENU
MENUITEM "About..." ACTION MsgInfo( "FiveWeb power" )
ENDMENU
MENUITEM "Files"
MENU
MENUITEM "Clients"
MENUITEM "Stock"
ENDMENU
MENUITEM "Reports"
MENUITEM "Help"
ENDMENU
return nil
//----------------------------------------------------------------------------//
function BuildDialog()
local oDlg
DEFINE DIALOG oDlg TITLE "Hello FiveWeb"
ACTIVATE DIALOG oDlg NOWAIT
return nil
//----------------------------------------------------------------------------//
function cFileNoPath( cPathMask ) // returns just the filename no path
local n
cPathMask = StrTran( cPathMask, "/", "\" )
n = RAt( "\", cPathMask )
return If( n > 0 .and. n < Len( cPathMask ),;
Right( cPathMask, Len( cPathMask ) - n ),;
If( ( n := At( ":", cPathMask ) ) > 0,;
Right( cPathMask, Len( cPathMask ) - n ),;
cPathMask ) )
function AppName()
return cFileNoPath( hb_argv( 0 ) )
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 41 guests