FiveTech Software tech support forums

Quique,

Esta forma te sirve mientras una ventana MdiChold esté abierta:

oWnd:bLostFocus = { | o, hWnd | If( GetFocus() != oWnd:oWndClient:hWnd, MsgBeep(),) }

... ( uno encima y otro debajo) Hasta aqui perfecto Para hacer unas pruebas quería poner un xbrowse con un array en la parte derecha sobre la oApli:oWndClient Compilacion perfecta Ejecucion: fallo en el ::Create del xbrowse Después de muchas vueltas, pruebas y horas, se me ocurrió poner oBrw:lRegisterd ...

... que cambiar a quien le pertenece: DEFINE WINDOW ::oWndHija FROM 12,1 TO (Getsysmetrics(17)/16)-1, (Getsysmetrics(16)/8)-1; VSCROLL OF ::oWnd:oWndClient ; TITLE ::Title; // MDICHILD ; ICON ::oIconoWnd ; BORDER NONE Ya que la ventana MDI contiene una ventana invisible (oWndClient) que controla ...

... oMWnd TITLE "FiveMDbu" MDI MENU BuildMenu() STYLE nOr( WS_POPUP, WS_MAXIMIZE ) ; COLOR CLR_WHITE, CLR_GREEN oMetro := MPANEL( oMWnd:oWndClient, oMetro ) .... .... // -------------------------- static function MPANEL( oWnd, oMetro ) local oBtn[11] DEFINE METROPANEL oMetro OF oWnd ...

Enrico, Yes, tested with the same Result : nothing happens. oWnd:oWndClient:bResized := {|| Msgalert ( "Test" ) } I can use ON RESIZE ( that works ), but a called function is executed twice. I noticed it, because of a forgotten logical var. The ...

... nRow, nCol,, ,.T.), NIL ), ; // Width and height <   nMTop := nRow, nMLeft := nCol, oWnd:Refresh() ) }    ELSE   oWnd:oWndClient:bRClicked := {| nRow,nCol | ( IIF( nCol + 590 > nSWidth .and. nRow <= nSHeight, ;          oDlg:Move( ...

Riaz,

Please try this change in my example:

DEFINE TIMER oTimer ACTION oWnd:oWndClient:Say( 2, 2, Time() )

... PROMPT "Test"; ADJUST NOBORDER; ACTION uCustBrow( oWnd ) @ 0,0 XBROWSE oBrow1 SIZE 900,400 PIXEL OF oWnd:oWndClient ; AUTOCOLS AUTOSORT oBrow1:cAlias := 'cust' oBrow1:CreateFromCode() ACTIVATE WINDOW oWnd MAXIMIZED; return nil //------------------------------------------------------------------------------ ...

... PROMPT "Test"; ADJUST NOBORDER; ACTION uCustBrow( oWnd ) @ 5,5 XBROWSE oBrow1 SIZE 700,400 PIXEL OF oWnd:oWndClient ; AUTOCOLS AUTOSORT oBrow1:cAlias := 'cust' oBrow1:CreateFromCode() ACTIVATE WINDOW oWnd MAXIMIZED; // ON INIT ( oWnd:oClient := oBrow1, ...

... RETURN NIL //-----------------------------------------// STATIC FUNCTION PongaBmp( hDC, oBmp, oWnd ) PalBmpDraw( hDC, 0, 0,oBmp:hBitmap,, oWnd:oWndClient:nWidth, oWnd:oWndClient:nHeight,, .t.) return nil Espero te sirva de guía. Saludos.

... //-----------------------------------------// STATIC FUNCTION PongaBmp( hDC, oBmp, oWnd ) PalBmpDraw( hDC, 0, 0,oBmp:hBitmap,, oWnd:oWndClient:nWidth, oWnd:oWndClient:nHeight,, .t.) return nil //---------------------------------- Function CambiaImagen( oBmp, oWnd ) local cImage if ...

Hi,
I only need to disable the main menu because I don't need to create a MDI window I'm using directly oWnd:oWndClient to operate on the MDI.
So it's going well for my case.

... from start: 0 hours 0 mins 0 secs Error occurred at: 04/23/11, 11:01:37 Error description: Error BASE/1004 Class: 'NIL' has no exported method: OWNDCLIENT Args: [ 1] = U Any ideas ? Thanks in advance

... oWnd /* Degradado en una ambiente MDI. Ventana Padre. Fijate como en un Ambiente MDI,la padre ,debemos pasarle a la funcion del degradado , oWnd:oWndClient. */ Function Main() Local nColor := 73647364737 /ESTE CODIGO DE DONDE SALE DEFINE WINDOW oWnd MDI TITLE "Pasate por http://www.getex.net/gentefive" ...

... menu que tiene por defecto 2.- con NOSYSMENU deberia no mostrar el menu pero si esta PIXEL da error base/1004 class: nil has no exported method: OWNDCLIENT entonces como determinar el centro con coordenadas de texto?