FiveTech Software tech support forums

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

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

... I created a xBrowse-solution. The different CHR's are seperated in groups and displayed inside a extra browser. I noticed, serching for a value, nKeys < 100 must be edit with a 0 like 063 Maybe You like it : Download : http://www.pflegeplus.com/fw_downloads/Ascview.zip http://www.pflegeplus.com/pictures/Ascview.jpg ...

Here is How to install Chinese word diaplay and input module in XP :
viewtopic.php?f=19&t=22705

Hi, //1 Only for test lost 2 bytes word input. METHOD KeyChar( nKey, nFlags ) CLASS TXBrowse ... do case ... case nKey == VK_ESCAPE memowrit("aaa.txt",::ckeychar ) ::ckeychar:="" // a temparary data 'ckeychar' add to xbrowse class ... otherwise ::cKeyChar += Chr( nKey ) ... We op...

... Syntax ORDKEYCOUNT([<cOrder> | <nPosition>], [<cIndexFile>]) --> nKeys Arguments <cOrder> | <nPosition> is the name of the order or a number representing its position in the order list. Using the order ...

... ) METHOD 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, 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 ...

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

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

... ) METHOD LostFocus( hCtlFocus ) METHOD MButtonDown( nRow, nCol, nKeyFlags ) METHOD MouseMove( nRowPix, nColPix, nKeyFlags ) METHOD MouseWheel( nKeys, nDelta, nXPos, nYPos ) METHOD MoveColumn( nColPos, nNewPos ) METHOD nAtCol( nColPix, lActual ) METHOD nAtIcon( nRow, nCol ) METHOD nColCount() ...

... method in TGet. I think it should only work on Gets with spinner. Therefore I inserted the proof for lSpinner. Regards, Otto METHOD MouseWheel( nKeys, nDelta, nXPos, nYPos ) IF ::lSpinner=.t. If nDelta > 0 Self++ Else Self-- EndIf ENDIF Return Nil //---------------------------------------------------------//

... { |nRow, 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 ...

... ! EmptyAlias( ::cAlias ) .and. ; ! ::lIconView, ::DrawSelect(),) METHOD MouseMove( nRow, nCol, nKeyFlags ) #ifndef __CLIPPER__ METHOD MouseWheel( nKeys, nDelta, nXPos, nYPos ) #endif METHOD PageUp( nLines ) METHOD PageDown( nLines ) METHOD Paint() METHOD RecAdd() INLINE If( ::bAdd != nil, Eval( ...