// prueba
#include "FiveWin.ch"
static oWnd
//----------------------------------------------------------------------------//
function Main()
local oWndEdit, oBar, oIcon, oImage
local cName := "FiveWin power"
local oFont
SetResDebug(.t.)
DEFINE FONT oFont NAME "Arial" SIZE 10, 16
DEFINE ICON oIcon RESOURCE "test"
DEFINE WINDOW oWnd FROM 1, 1 TO 20, 70 TITLE "I am the MDI Frame" ;
MDI ;
MENU BuildMenu() ; // COLOR "GR+*/RB"
ICON oIcon
SET MESSAGE OF oWnd TO "Main Window"
DEFINE WINDOW oWndEdit MDICHILD OF oWnd FROM 2, 2 TO 20, 50 ;
TITLE "I am a MDI Child" COLOR "W+/R"
@ 4, 2 GET cName OF oWndEdit SIZE 170, 25 COLOR "BG+/B"
DEFINE BUTTONBAR oBar _3D OF oWndEdit
DEFINE BUTTON OF oBar
SET MESSAGE OF oWndEdit TO "Child Window"
ACTIVATE WINDOW oWndEdit
ACTIVATE WINDOW oWnd MAXIMIZED ;
VALID MsgYesNo( "Want to End ?" )
RELEASE FONT oFont
CHECKRES()
return nil
//----------------------------------------------------------------------------//
function BuildMenu()
local oMenu
MENU oMenu
MENUITEM "&Information"
MENU
MENUITEM "&About..." ACTION MsgAbout( "FiveWin", "FiveTech" )
SEPARATOR
MENUITEM "&End..." ACTION oWnd:End()
ENDMENU
MENUITEM "&Child Windows"
MENU
MENUITEM "&Tiled" ACTION oWnd:Tile()
MENUITEM "&Cascade" ACTION oWnd:Cascade()
ENDMENU
ENDMENU
return oMenu
//----------------------------------------------------------------------------//
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Antonio Linares, Google [Bot] and 28 guests