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

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

... ::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 Lo único que como son ...

... ::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 FWH y verás como lo ...

...                   2349  3387  3394  3396  3397  3399  3401  3402  4020  4025                   4027 NLENTOOLTIP            WINDOW.PRG     3592 NLOWORD()              (function  in ?)    WINDOW.PRG     1379  1382  2719  2789 NLPARAM                WINDOW.PRG      499   517   541   541   637 ...

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

... local cPrg := "" local nFactorX, nFactorY local cTop, 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 ...

... Image ( JPG ) : http://www.pflegeplus.com/pictures/SFBrush2.jpg LOCAL PixelX := MulDiv( oControl:nWidth(), nLoWord( GetDlgBaseUnits() ), 4 ) LOCAL PixelY := MulDiv( oControl:nHeight(), nHiWord( GetDlgBaseUnits() ), 8 ) ... ... DEFINE IMAGE oImage FILE cImage ...

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

... tsocket.prg in this 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, ...

... ::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 I'm having to double ...

... .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. ::IsKindOf( "TRADIO" ...

... 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 ) EndIf Return Super:HandleEvent( ...

... NextDlgTabItem() nExtMem() nFileCrc() nGetBackRgb() nGetFileFilter() nGetFilter32() nGetForeRGB() nHex() nHiByte() nHiWord() nIcons() nLoByte() nLoWord() nMakeLong() nMciOpen() nMciPlay() nMciWindow() nMidiDevices() nMsgBox() nNot() nOr() nRandom() nRGB() nRGBBlue() nRGBGreen() nRGBRed() nSerialA() ...