FiveTech Software tech support forums

... VarPut(uVal)`**: Sets the value of the control.
- **`VarGet()`**: Gets the value of the control.

#### **System Commands**
- **`SysCommand(nType, nLoWord, nHiWord)`**: Handles system commands like Alt+key combinations.
- **`HandleEvent(nMsg, nWParam, nLParam)`**: Handles various Windows messages ...

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

... FIVEHX.LIB|DDE
Error: Unresolved external '_HB_FUN_MSGALERT' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DDE
Error: Unresolved external '_HB_FUN_NLOWORD' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DDE
Error: Unresolved external '_HB_FUN_DDEGETCOMMAND' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB ...

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

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

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

... PRG 2198 2201 2203 2209 2211 2212 2218 2343 2346 2348
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 638 655 737 738 807
808 864 866 867 1352 1355 1372 ...

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

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

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

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

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

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