On a mixed console Gui program,
how can i :
1. create a new Cmd Window ?
2. set focus to the Cmd Window ?
pls look at the ssw :
Code: Select all
#include <hmg.ch>
REQUEST HB_GT_WIN_DEFAULT && GT_WIN OR GT_GUI this make a console text mode
Function Main
Load Window Main
Main.Center
Main.Activate
Return
FUNCTION Main_OnInit()
cString := " I need two helps : " + HB_EOL() + ;
" 1. Create a New Cmd Window " + HB_EOL() + ;
" 2. Set the Cmd Window Focus " + HB_EOL() + HB_EOL() + ;
"TIA." + HB_EOL() + ;
"Best rgds, " + HB_EOL() + ;
"Chang..."
Main.Edit_1.Value := cString
RETURN NIL
FUNCTION btnNewwinWindow_Action()
IF IsWindowDefined( NewWinWindow)
MsgInfo( "NewWinWindow Defined !")
ELSE
LOAD Window NewWinWindow
NewWinWindow.Activate
ENDIF
RETURN NIL
FUNCTION btnNewWinWindowSetFocus_Action()
IF IsWindowDefined( NewWinWindow)
NewWinWindow.SetFocus
ELSE
MsgInfo( "NewWinWindow NOT defined !")
ENDIF
RETURN NIL
FUNCTION btnNewCmdWindow_Action()
MsgInfo( "Pls Help me to define NEW Cmd Window !")
RETURN NIL
FUNCTION btnCmdSetFocus_Action()
MsgInfo( "Pls help me to make the Cmd Window Focus !")
RETURN NIL
Best rgds,
Chang
PS : I love the preview feature... Thks alot...