FiveTech Software tech support forums

... 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 una CLASE y no ...

... := 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 // ----------------------- ...

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

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

...                      WINDOW.PRG      845   846 NXPOS                  WINDOW.PRG      715   716 NY                      WINDOW.PRG      845   846 NYPOS                  WINDOW.PRG      715   716 NZIPINFO                WINDOW.PRG      884   885 O                      WINDOW.PRG      888   888 ...

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

... 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() // Esteban ...

... 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( aFiles[ nItem ...

... ; 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__ oMeta2 := ...

... 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 > 0 ::GoLeft() ...

Darrell,

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

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

... CheckKey() e potrebbe benissimo essere tolto. Magari Antonio l'ha lasciato lì come segnaposto per eventuali esigenze future. le variabile NXPOS e NYPOS mi dice " declared but not used in function checkmousewheel" Stesso discorso per i parametri nXPos e nYPos del metodo CheckMouseWheel(). EMG

... esempio non riesco a spuntarla con il Rpreview.prg la variabile Nflag mi dice " declared but not used in function checkkey" le variabile NXPOS e NYPOS mi dice " declared but not used in function checkmousewheel" con il w2 non si compilano se torlgo il warning si compila tutto Hai qualche idea ...

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