...
case nMsg == WM_LBUTTONDOWN
if ::lTransparent .and. ::IsKindOf( "TRADIO" ) .or. ::IsKindOf( "TCHECKBOX" )
::oWnd:Refresh()
endif
return Super:LButtonDown( nHiWord( nLParam ), nLoWord( nLParam ), nWParam )
case nMsg == WM_LBUTTONUP
if ::lTransparent .and. ::IsKindOf( "TRADIO" ) .or. ::IsKindOf( "TCHECKBOX" )
::oWnd:Refresh()
endif
return Super:LButtonUp( nHiWord( nLParam ), nLoWord( nLParam ), nWParam )
case nMsg == WM_UPDATEUISTATE // buttons, radios and checkboxes were erased when pressing ALT
nResult = Super:HandleEvent( nMsg, nWParam, nLParam )
if ::lTransparent .and. ::IsKindOf( "TRADIO" ) .or. ::IsKindOf( "TCHECKBOX" )
::oWnd:Refresh()
endif
return nResult
endcase
Application
===========
Path and name: C:\FWH\samples\testqck.exe (32 bits)
Size: 1,673,216 bytes
Time from start: 0 hours 0 mins 2 secs
Error occurred at: 07/14/10, 18:18:12
Error description: Error BASE/1066 Argument error: conditional
Args:
[ 1] = U
Stack Calls
===========
Called from: c:\fwh\source\classes\CONTROL.prg => TCONTROL:HANDLEEVENT(1485)
Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:HANDLEEVENT(956)
Called from: c:\fwh\source\classes\WINDOW.prg => _FWH(3391)
//revisando problemas de transparencia ..
case nMsg == WM_LBUTTONDOWN
if Valtype( ::lTransparent ) = "L" .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. ::IsKindOf( "TRADIO" ) .or. ::IsKindOf( "TCHECKBOX" )
::oWnd:Refresh()
endif
return ::LButtonUp( nHiWord( nLParam ), nLoWord( nLParam ), nWParam )
case nMsg == WM_UPDATEUISTATE // buttons, radios and checkboxes were erased when pressing ALT
nResult = Super:HandleEvent( nMsg, nWParam, nLParam )
if Valtype( ::lTransparent ) = "L" .and. ::lTransparent .and. ::IsKindOf( "TRADIO" ) .or. ::IsKindOf( "TCHECKBOX" )
::oWnd:Refresh()
endif
return nResult
REDEFINE GROUP ID 301 OF oDlg
REDEFINE GROUP ID 302 OF oDlg
para su analisis
Antonio Linares wrote:Patricio,
Este es un error que hemos corregido varias veces y que luego, por varias razones hemos pensado que no era necesario. Pero samples\GradBrus.prg claramente demuestra que si hace falta solucionarlo.
Hay que añadir estas líneas a la Clase TControl en source\classes\control.prg
- Code: Select all Expand view RUN
...
case nMsg == WM_LBUTTONDOWN
if ::lTransparent .and. ::IsKindOf( "TRADIO" ) .or. ::IsKindOf( "TCHECKBOX" )
::oWnd:Refresh()
endif
return Super:LButtonDown( nHiWord( nLParam ), nLoWord( nLParam ), nWParam )
case nMsg == WM_LBUTTONUP
if ::lTransparent .and. ::IsKindOf( "TRADIO" ) .or. ::IsKindOf( "TCHECKBOX" )
::oWnd:Refresh()
endif
return Super:LButtonUp( nHiWord( nLParam ), nLoWord( nLParam ), nWParam )
case nMsg == WM_UPDATEUISTATE // buttons, radios and checkboxes were erased when pressing ALT
nResult = Super:HandleEvent( nMsg, nWParam, nLParam )
if ::lTransparent .and. ::IsKindOf( "TRADIO" ) .or. ::IsKindOf( "TCHECKBOX" )
::oWnd:Refresh()
endif
return nResult
endcase
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 105 guests