FiveTech Software tech support forums

Enrico, I will remember that we changed for a similar case
METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TControl
case nMsg == WM_SYSCOMMAND
return ::SysCommand( nWParam, nLoWord( nLParam ), nHiWord( nLParam ) )
Best regards,
Otto

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

... de esta forma para comprobarlo: METHOD Command( nWParam, nLParam ) CLASS TDialog local oWnd, nNotifyCode, nID, hWndCtl, oCtrl nNotifyCode = nHiWord( nWParam ) nID = nLoWord( nWParam ) hWndCtl = nLParam if nWParam == 1 MsgInfo( "IDOK" ) endif ... y verás como se muestra ese mensaje.

... ... TrackMouseEvent( ::hWnd, TME_LEAVE ) ... METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS ... if nMsg == WM_MOUSELEAVE return ::MouseLeave( nHiWord( nLParam ), nLoWord( nLParam ), nWParam ) endif ... METHOD MouseLeave( nRow, nCol, nFlags ) CLASS ... ::lMOver = .F. ::Refresh() return nil ...

... llamar a: TrackMouseEvent( ::hWnd, TME_LEAVE ) Desde el método HandleEvent( nMsg, nWParam, nLParam ) if nMsg == WM_MOUSELEAVE return ::MouseLeave( nHiWord( nLParam ), nLoWord( nLParam ), nWParam ) endif Y en MouseLeave() se restaura el color que desees. Busca por WM_MOUSELEAVE en las Classes de ...

...  2966  3004  3009  3009  3012  3316  3594 NHELPID                WINDOW.PRG      443  3710  3722 NHITTESTCODE            WINDOW.PRG      698  3672 NHIWORD()              (function  in ?)    WINDOW.PRG     1377  1381  2720  2790 NHMENU                  WINDOW.PRG      686   688  1754  1767G 1767G ...

Antonio,

There is an error here:

(nand(nHIWORD(wParam,flag)) == (flag))

it should be:

( nand( nHIWORD( wParam ),flag ) == ( flag ) )

Puedes usar las funciones nLoWord( nLParam ) y nHiWord( nLParam ) de FWH

... cLeft, cWidth, cHeight DEFAULT lDlgUnits := .F. nFactorX = If( lDlgUnits, 4 / nLoWord( GetDlgBaseUnits() ), 1 ) nFactorY = If( lDlgUnits, 8 / nHiWord( GetDlgBaseUnits() ), 1 ) ::CoorsUpdate() cTop = LTrim( Str( Int( ::nTop * nFactorX ) ) ) cLeft = LTrim( Str( Int( ::nLeft * nFactorY ) ) ) ...

... LOCAL PixelX := MulDiv( oControl:nWidth(), nLoWord( GetDlgBaseUnits() ), 4 ) LOCAL PixelY := MulDiv( oControl:nHeight(), nHiWord( GetDlgBaseUnits() ), 8 ) ... ... DEFINE IMAGE oImage FILE cImage // Tabheight-adjustment needed ! oBrush := TBrush():new( ,,,, ResizeBmp( oImage:hBitmap, ...

http://msdn.microsoft.com/en-us/library/ms645475(VS.85).aspx baseunitX = nLoWord( GetDlgBaseUnits() ) baseunitY = nHiWord( GetDlgBaseUnits() ) Therefore, to convert dialog template units to pixels, use the following formulas: pixelX = MulDiv(templateunitX, baseunitX, ...

... method METHOD New( nPort, oWnd ) CLASS TSocket if oWnd != nil oWnd:bSocket = { | nSocket, nLParam | ::HandleEvent( nSocket,; nLoWord( nLParam ), nHiWord( nLParam ) ) } WSAAsyncSelect( ::nSocket, oWnd:hWnd, WM_ASYNCSELECT,; nOr( FD_ACCEPT, FD_OOB, FD_READ, FD_CLOSE, FD_CONNECT, FD_WRITE ) ) else ...

... .and. ( ::IsKindOf( "TRADIO" ) .or. ::IsKindOf( "TCHECKBOX" ) ) ::oWnd:Refresh( .f. ) endif return ::LButtonDown( nHiWord( nLParam ), nLoWord( nLParam ), nWParam ) The changes to WM_UPDATEUISTATE and the addition of WM_LBUTTONUP are fine. Howevever, with LBUTTONDOWN ...

... .and. ::lTransparent .and. ::IsKindOf( "TRADIO" ) .or. ::IsKindOf( "TCHECKBOX" ) ::oWnd:Refresh() endif return ::LButtonDown( nHiWord( nLParam ), nLoWord( nLParam ), nWParam ) case nMsg == WM_LBUTTONUP if Valtype( ::lTransparent ) = "L" .and. ::lTransparent .and. ...

... METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TSLines If nMsg == WM_LBUTTONDOWN .and. ::lDrag Return ::LButtonDown( nHiWord( nLParam ), nLoWord( nLParam ), nWParam ) EndIf If ( ::lDrag .and. nMsg == WM_NCHITTEST ) Return DefWindowProc( ::hWnd, nMsg, nWParam, nLParam ...