www.FiveTechSoft.com
http://forums.fivetechsoft.com/
Code: Select all
#include "Fivewin.ch"
Static oWnd
function Main()
Local nVal := 300
//StartFWLog( nTop, nLeft, nHeight, nWidth, lDown, lLines, lCouple, cTitle )
StartFWLog( , , 622, 590, .F., .T., , ) //.F.
// Use FWINLOG command or MsgLog function
// When MsgLog is invoked, show window "debug"
DEFINE WINDOW oWnd FROM 0, 0 TO 750, 1365 PIXEL ;
TITLE "FWH Test FWINLOG - " + FWVERSION MENU BuildMenu()
FWINLOG nVal
ACTIVATE WINDOW oWnd MAXIMIZED
return nil
//----------------------------------------------------------------------------//
Static Function BuildMenu()
local oMnu
MENU oMnu
MENUITEM "Options"
MENU
MENUITEM "Option - 1" ACTION MsgLog( { CRLF, oWnd:nHeight, oWnd:nWidth } )
SEPARATOR
MENUITEM "Exit" ACTION oWnd:End()
ENDMENU
MENUITEM "Others"
MENU
MENUITEM "Others - 1" ACTION MsgLog( { CRLF, Len( oMnu:aMenuItems ) } )
SEPARATOR
MENUITEM "Others - 2"
ENDMENU
ENDMENU
Return oMnu
//----------------------------------------------------------------------------//