FiveTech Software tech support forums

... nWParam, nLParam ) CLASS TDialog local oWnd, nNotifyCode, nID, hWndCtl #ifdef __CLIPPER__ nNotifyCode = nHiWord( nLParam ) nID = nWParam hWndCtl = nLoWord( nLParam ) #else nNotifyCode = nHiWord( nWParam ) nID = nLoWord( nWParam ) hWndCtl = nLParam #endif do case case ::oPopup != nil ::oPopup:Command( ...

... is what I noticed. I added to METHOD HandleEvent() if nMsg == WM_MOUSEMOVE if RawGetHandle( nLParam ) == ::hMouse ::MouseMove( nHiWord( nLParam ), nLoWord( nLParam ), nWParam ) return nil else return nil endif endif And also added to the window- oWnd:OnMouseMove:= {|SELF,X,Y,FLAGS|(oWnd:SetText( ...

... ) ) If ( ::lIsV22 := CheckBmpPal() ) ::bBitMapH := &( "{|oBmp|If(oBmp!=Nil,oBmp:hBitMap,0)}" ) Else ::bBitMapH := &( "{|oBmp|If(oBmp!=Nil,nLoWord(oBmp:hBmpPal),0)}" ) EndIf ::lIsDbf := ! EmptyAlias( ::cAlias ) .and. ::cAlias != "ARRAY" .and. ; ! ( "TEXT_" $ ::cAlias ) .and. ::cAlias != ...

... solo lo hace en un caso es un bug o me parece METHOD VScroll( nWParam, nLParam ) CLASS TXBrowse local nScrHandle := nLParam local nScrollCode := nLoWord( nWParam ) local nPos := nHiWord( nWParam ) local nRow, nBook if GetFocus() != ::hWnd SetFocus( ::hWnd ) endif if nScrHandle == 0 .and. ::oVScroll ...

And nLoWord() source code seems to be fine.

We have a mistery

... horizontal position yPos = (int) HIWORD(lParam); // vertical position And this is the FWH code: case nMsg == WM_MOVE return ::Moved( nLoWord( nLParam ), nHiWord( nLParam ) ) Lets double check nLoWord() source code...

Rafael,

Try it this way:

nLoWord( nNumber ) + ( 256 * nHiWord( nNumber ) )

or doing:

nHiWord( nNumber ) + ( 256 * nLoWord( nNumber ) )

It depends on the bytes storage order

Rafael,

Prueba con nLoWord( nNumero ) + ( 256 * nHiWord( nNumero ) )

ó con:

nHiWord( nNumero ) + ( 256 * nLoWord( nNumero ) )

Depende del orden en el que esté guardado

Bueno, o así para que no devuelva ceros delante:

function l2hex(nvar)
local cRet := i2Hex( nhiword(nvar) )+ i2hex(nloword(nvar))
do while substr(cRet,1,1) = '0'
cRet := substr(cRet,2)
enddo
return cRet

Debe ser un error de OR.C, si no lo solucionas de otro modo, prueba a crear tu propia funcion L2hex(), así:

function l2hex(nvar)
return i2Hex( nhiword(nvar) )+ i2hex(nloword(nvar))

Saludos

... o caso que descreví ? pois da forma que fiz não funcionou. > You have to use GetDialogBaseUnits() as we told you: nDlgHeight = nLogHeight * nLoWord( GetDlgBaseUnits() ) / 4 nDlgWidth = nLogWidth * nHiWord( GetDlgBaseUnits() ) / 8 where nLogHeight and nLogWidth are the logical dimensions ...

... [ := \{ | nRow,nCol | <uMove> \} ], ; 2) Comparing two methods : case nMsg == WM_LBUTTONDOWN return ::LButtonDown( nHiWord( nLParam ), nLoWord( nLParam ),; METHOD LButtonDown( nRow, nCol, nKeyFlags ) case nMsg == WM_MOVE return ::Moved( nLoWord( nLParam ), nHiWord( nLParam ) ) METHOD ...

... := "",nLen := 0,cNewMem := "",nPos1 := 1 // Get existing text... cOld = ::VarGet() nLen := LEN(cOld) // Get cursor pos where to insert... ::nPos = nLoWord( ::SendMsg( EM_GETSEL ) ) // Copy text to cNewMem out to position of newly inserted char... cNewMem := SubStr( cOld, 1, ::nPos ) // Now add ...

... de ambos o restando 65536 antes o después de aplicar las funciones. Pero nada de nada. Por fortuna FreeImage me dió la idea de utilizar: hBmp = nLoWord( WOWHandle16(hBmp, 8 ) ) ¡Y funciona! El problema es que no lee ni la mitad de gráficos que con nViewl16. Utilizaría nViewl16, lo que pasa es ...

... de ambos o restando 65536 antes o después de aplicar las funciones. Pero nada de nada. Por fortuna FreeImage me dió la idea de utilizar: hBmp = nLoWord( WOWHandle16(hBmp, 8 ) ) ¡Y funciona! El problema es que no lee ni la mitad de gráficos que con nViewl16. Utilizaría nViewl16, el problema es ...