FiveTech Software tech support forums

Si explicas que quieres hacer seria mas simple poder ayudarte...

METHOD MouseWheel( nKey, nDelta, nXPos, nYPos ) INLINE ;
If( ::bMouseWheel != nil, Eval( ::bMouseWheel, nKey, nDelta, nXPos, nYPos ), nil )

ese metodo de la TWindow es la clave..
prueba asi..

oWnd:bMouseWheel :={ || MsgInfo(nXPos ...

Y EL CURSO SERIA POR QUE VIA.. ( INTERNET ) O VIA CURSO ESCRITO. ??

MASTER ANTONIO,

si, al crear la ventana padre uso MDI.. asi

DEFINE WINDOW ::oWnd MDI MENU oMenu;
TITLE ::cTitulo PIXEL FROM 0, 0 TO Getsysmetrics(17), Getsysmetrics(16) BRUSH ::oBrushoWnd;
MENUINFO 0 ICON ::oIconoWnd

afecta eso en algo lo que estoy haciendo..

MASTER ANTONIO::

asi me funciona,,

DEFINE WINDOW ::oWndHija FROM 12,1 TO (Getsysmetrics(17)/16)-1, (Getsysmetrics(16)/8)-1;
VSCROLL OF ::oWnd;
TITLE ::Title; // MDICHILD ;
BORDER NONE NOMAXIMIZE

::oWndHija:SetIcon( ::oIconoWnd )

GRACIAS..

Ahora pq. no funciona de las otras tantas maneras ...

MASTER ANTONIO

HICE EL CAMBIO COMO INDICASTE Y NO FUNCIONA... que podra ser..

aca el codigo:: tengo un clase TMain, en la cual defino un window padre asi::

//-------------------
METHOD WindowMain() CLASS TMain
Local This:=Self
Local oMenu
//
MENU oMenu
ENDMENU
//

SETBALLOON(.T.)

DEFINE WINDOW ::oWnd MDI MENU oMenu;
TITLE ::cTitulo PIXEL FROM 0, 0 TO Getsysmetrics ...

MUCHAS GRACIAS MUY CLARA LA EXPLICACION

AHORA LA PREGUNTA DEL MILLON
en la clase twindow en el metodo new hay esta linea::

#ifdef __CLIPPER__
if oIcon != nil
::SendMsg( WM_SETICON, 0, oIcon:hIcon )
endif
#endif

esto quiere decir que ::SendMsg( WM_SETICON, 0, oIcon:hIcon ) solo se ejecutara ...

en la clase TWindow

en metodo NEW, se encuentra esta linea.

#ifdef __CLIPPER__
if oIcon != nil
::SendMsg( WM_SETICON, 0, oIcon:hIcon )
endif
#endif

a que se refiere el Ifdef --- y porque

lo que quieres hacer es un Tooltips...

deberias primero usar un oGet distinto para cada objeto..

DEFINE DIALOG oDlg FROM 0, 5 TO 20, 40 TITLE "A Dialog Box"
@ 1, 2 GET oGet1 VAR cName SIZE 50, 12 OF oDlg UPDATE
@ 2, 2 GET oGet2 VAR cFecha SIZE 50, 12 OF oDlg PICTURE "@d" UPDATE

oGet1:cToolTip ...

...

Master Antonio :: porque se pintan mal los bordes....

.. alguna idea