FiveTech Software tech support forums

... method.

9. **`MouseWheel()`**
- **Description**: Handles mouse wheel events for scrolling the list.
- **Parameters**: `nKeys`, `nDelta`, `nXPos`, `nYPos`.
- **Returns**: None.

10. **`SetList()`**
- **Description**: Sets the data source and field for the list.
- **Parameters ...

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

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

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

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

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

... 866
867 1372 1378 1381 1382 1394 1409 1412 2716 2719
2720 2786 2789 2790 2841 2869 2896 2897 2900 2900
3827! 3836

NX
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 888 889 889 ...

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) }

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

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

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

Darrell,

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

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

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

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