FiveTech Software tech support forums

... fact I already got the events as strings with THActiveX too but I am not sure if it is doing it right. Please try this: oCalex = THActiveX():New( oWndChild, "Codejock.CalendarControl.15.0.2" ) AEVal( oCalex:aEvents, { | c | MsgInfo( c[ 1 ] ) } ) As you see, we have the names but I am ...

Francisco,
It works with the changed VALID

ACTIVATE DIALOG oDlg NOWAIT ;
VALID ( oWndChild:End(), .t. ) ;
ON INIT oDlg:Move(0,0)

// VALID if(!GetKeyState(VK_ESCAPE), ( oWndChild:End(), .t. ), .F.)

Best Regards
Uwe

Francisco Consider this code .. notice the the variable lClosed is the key in trapping the valid close. Note that oWndChild:End() trips the valid close just like X on the window close. Rick Lipkin Local lCLosedLocal lOklCLosed := .f.lOk       := .f.cTITLE := "System Params ...

BYRON, Compila y ejecuta este ejemplo: checa la sig. linea de codigo: DEFINE DIALOG oDlg FROM 0, 0 TO 30, 70 ; STYLE WS_CHILD OF oWndChild TRANSPARENT prueba con y sin TRANSPARENT Con transparent me sale diferente el degradado pasa eso contigo ? saludos. // This is an example of how to ...

... with dialogs on them. Timer is checking serial port for data from barcode scanner. One more question : when i open MDI Child DEFINE WINDOW oWndChild MDICHILD OF oWnd ; FROM 5,5 TO 6,6; COLOR "N/W" ; TITLE " New Sale " ; border none nomaximize nominimize oWnd is in static ...

... When you use MDI ( non-modal ) and non-modal dialogs( winchild ) , valid is always evaluated when you close a window either by oWnd:CLose(), oWndChild:CLose() or by x'ing out of the application. YES, you can have a non-modal dialog ( nowait ), but if the dialog is not a MdiChild of the MDI ...

Hi, a very stupid question ,what is the different between no wait dialog of mdichild vs pure no wait dialog ? DEFINE WINDOW oWndChild MDICHILD OF oWnd FROM 5,5 TO 6,6 define dialog odlg of owndchild resource "aaa" redefine get var1 id 101 of odlg ... activate dialog odlg no ...

... nComm2, nStatus, cMod ) ************************************************************ local cBuffer:=Space( 20 ),nleitor:=0 if empty(ncgetme) .and. oWndChild==Nil ReadComm( nComm2, @cBuffer ) ... endif return nil ************************************************************* static function InitModem(TBitsSeg,TPortcom,lComClose) ...

... In case You don't want a Border, it is a bit more complicated : You must define 2 Childs : a NON visible < oWndChild > with NOSYSMENU NOICONIZE BORDER NONE NOCAPTION A second < oWndSelect > For painting NOSYSMENU NOICONIZE You define the MDI-child ...

... COLOR nRGB( 51,51,51 ), nRGB( 51,51,51 ); MENU FrameMenu() TITLE cTitle; ICON oIcon; MDI Y las ventanas hijas: DEFINE WINDOW oWndPClie MDICHILD OF oWndChild; FROM 0,0 TO nWHeight, nWWidth; PIXEL COLOR GetSysColor(15), GetSysColor(15); TITLE "Tabla de Géneros"; NOSYSMENU Espero que te ...

... 3 #Define GRAPH_TYPE_PIE 4 #Define GRAPH_TYPE_ALL 5 #Define POINT_TYPE_1 1 #Define POINT_TYPE_2 2 #Define POINT_TYPE_3 3 Function z() local oWndChild,oGraph oWndChild := TMdiChild():New(,,,, "Test de TGraph",,,,, .F.,,,,, .F., .F.,,, !.F., !.F., !.F., !.F., ) oGraph:=TGraph():New(0, ...

Carlos,

Despues de crear la ventana MdiChild haz esto:

DEFINE SCROLLBAR oWndChild:oVScroll VERTICAL OF oWndChild

Con eso debe desaparecer ese error

Carlos,

Cambia esta línea así:

DEFINE WINDOW oWndChild MDICHILD OF oWnd STYLE nOr( WS_DLGFRAME, WS_VSCROLL )

funciona bien

... haciendo pruebas y he compilado tu ejemplo y funciona perfectamente el ENTER, pero simplemente he puesto NOCAPTION en la linea: DEFINE WINDOW oWndChild MDICHILD OF oWnd y ya no me funciona el ENTER, haz tu la prueba. He probado con: STYLE nOr(WS_DLGFRAME) STYLE nOr(WS_BORDER) y pasa lo mismo. ...

Carlos,

Te refieres a que lo haces asi ?

DEFINE WINDOW oWndChild MDICHILD OF oWnd STYLE nOr(WS_DLGFRAME)