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 que probe N...

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(17), Getsysm...

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 si oIcon ...

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 o...

...

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

.. alguna idea