FiveTech Software tech support forums

... código que limpiar y optimizar, pero ya es funcional 100%. Solo he tenido que incluir una DATA en la clase BITMAP y el METHOD MouseWheel( nKeys, nDelta, nXPos, nYPos ) CLASS TBitmap , que no estaba en mi versión 6.12 (gracias de nuevo Antonio si me lees) Creo que lo mejor sería convertirlo en ...

... 1600 oMetro:nMetroMargin := 200 oMetro:nBtnSize = 140 ELSE oMetro:nMetroMargin := 220 oMetro:nBtnSize = 160 ENDIF oWnd:bMouseWheel = { | nKey, nDelta, nXPos, nYPos | oMetro:MouseWheel( nKey, nDelta, nXPos, nYPos ) } oMetro:bRClicked := { |Row,Col| oWnd:End() } // Background-function // ----------------------- ...

... This program is quite normal increases/decreases the image oImg:=TImage():New(...) oImg:Progress(.F.) oImg:Cargo:=0 oImg:bMouseWheel = {| nKey, nDelta, nXPos, nYPos | Test()} procedure Test(nDelta) local cnt local nWidth, nHeight // The sizes TImage on dialog local hDC if (nDelta<0.and.oImg:Cargo-1>=0).or. ...

... := .F. oMetro1:nMetroTop = 160 oMetro1:nMetroMargin := 50 oMetro1:nBtnSize = 80 oMetro1:nMetroRows := 8 oWnd:bMouseWheel = { | nKey, nDelta, nXPos, nYPos | oMetro1:MouseWheel( nKey, nDelta, nXPos, nYPos ) } oBrush := WD_BACKGRD( oMetro1, nWStyle, nWColorF, nWColorB, lWDirect, nWGradPos, ...

... In order to re-direct the mousewheel event to the dialog my combo-box scroll method looks like below. This works great. METHOD ComboWheel( nKeys, nDelta, nXPos, nYPos) CLASS TDComboBox LOCAL RETVAL, X LOCAL ODLG := SELF:OWND RETVAL := EVAL( ODLG:BMOUSEWHEEL, nKeys, nDelta, nXPos, nYPos ) RETURN ...

...    814   814   814   827  3040  3305  3306  3315  3327  3366                   3367 NCPAINT()              (function  in ?)    WINDOW.PRG      724 NDELTA                  WINDOW.PRG      715   716 NDEVICE                WINDOW.PRG      519  3694  3697 NEVENT                  WINDOW.PRG      579 ...

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

Simple amigo un poco de ingenio. oWnd:bMouseWheel :={ | ,nDelta | MouseWheel( nDelta ) } // Siendo oWnd la ventana padre. Ojo:: que las variables oWnd y oRbar deben ser visibles en la function adaptalo a lo tuyo /------------------- Function MouseWheel( ...

... HScroll( nType, lPage, nSteps ) METHOD SetOrg1( nX, nY ) METHOD SetOrg2( nX, nY ) METHOD CheckKey( nKey, nFlags ) METHOD CheckMouseWheel( nKeys, nDelta, nXPos, nYPos ) METHOD SetFactor( nValue ) METHOD PrintPage() METHOD PrintPrv( oDlg, nOption, nPageIni, nPageEnd ) // Esteban METHOD CambiaPrinter() ...

... := {| nRow, nCol, nFlags| ShowP( nRow, nCol, oGet ) } // Impedir que se abra el menú contextual de la ventana get oGet:bMouseWheel = { | nKey, nDelta, nXPos, nYPos | MouseWheel( nKey, nDelta, nXPos, nYPos, oGet ) } // Rueda del raton if lFile cFileDisc := aFiles[ nItem ] //cText := Memoread( ...

... nCol, nKeyFlags| ; SetOrg1( nCol, nRow, nKeyFlags ) } oMeta1:bKeyDown := {|nKey,nFlags| CheckKey(nKey,nFlags)} oMeta1:bMouseWheel := { | nKeys, nDelta, nXPos, nYPos | ; CheckMouseWheel( nKeys, nDelta, nXPos, nYPos ) } #ifndef __XPP__ // XBPP bug. Warning: don't change this into #ifdef __CLIPPER__ ...

... scrolls left or right instead This has been irritating me for a long time. The following seems to be the offending code: METHOD MouseWheel( nKeys, nDelta, nXPos, nYPos ) CLASS TWBrowse local aPos := { nYPos, nXPos } aPos := ScreenToClient( ::hWnd, aPos ) if aPos[ 1 ] > ::nHeight * 0.80 if nDelta ...

Darrell,

In the class where you want to disable it, include this method:

METHOD MouseWheel( nKey, nDelta, nXPos, nYPos ) VIRTUAL

Darrell,

You have to modify fwh\source\classes\wbrowse.prg this way:

METHOD MouseWheel( nKeys, nDelta, nXPos, nYPos ) VIRTUAL

and comment its source code in the same PRG

Darrell,

On what controls do you want to disable the mouse wheel support ?

You can disable it for any control, including this in the desired class:

METHOD MouseWheel( nKeys, nDelta, nXPos, nYPos ) VIRTUAL