FiveTech Software tech support forums

... hDlg`: Handle to the dialog.

4. **`HandleEvent( nMsg, nWParam, nLParam )`**
- **Description:** Handles window messages, particularly `WM_UPDATEUISTATE` to refresh the button when necessary.
- **Parameters:**
- `nMsg`: Message ID.
- `nWParam`, `nLParam`: Message parameters.

5. **`KeyDown ...

... 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 click the checkboxes. Also setting the default to ...

METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TControl

/* Cambios propuestos por A. Linares y Patricio Avalos Aguirre*/
case nMsg == WM_UPDATEUISTATE // buttons, radios and checkboxes were erased when pressing ALT
nResult = Super:HandleEvent( nMsg, nWParam, nLParam )
if Valtype ...

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

Antonio, Enrico,

by first testing the problem seems to be solved

case nMsg == WM_UPDATEUISTATE // buttons, radios and checkboxes were erased when pressing ALT
nResult = Super:HandleEvent( nMsg, nWParam, nLParam )
if Upper( ::ClassName() ) == "TBTNBMP"
::Refresh()
endif
// ::oWnd:Refresh ...

I just tried to remove WM_UPDATEUISTATE handling and found that the sample I already provided at that time works just fine now:

#include "Fivewin.ch"FUNCTION MAIN() LOCAL oWnd DEFINE WINDOW oWnd DEFINE BUTTONBAR OF oWnd 2007 DEFINE BUTTON; OF oWnd:oBar; FILE "C:\FWH\BITMAPS\OPEN.BMP"; ACTION ...

... wParam, LPARAM lParam )
{
if( uMsg == WM_ERASEBKGND )
{
return 1;
}

else if( uMsg == 0x0128 ) // SAYs were erased when pressing ALT WM_UPDATEUISTATE
{
LONG lResult = CallWindowProc( ( FARPROC ) GetProp( hWnd, "__FWTRANS" ), hWnd, uMsg, wParam, lParam );
InvalidateRect( hWnd, NULL, TRUE ...

Thanks Gunther

I am still missing the define for WM_UPDATEUISTATE

Can you post it here ?

TIA

Richard

... menor en la función WBrwLine() de la clase TWBrowse.

* Mejora: En la clase TControl, en el método HandleEvent() se ha añadido el mensaje WM_UPDATEUISTATE para soportar la colocación de controles
TBtnBmp en barras de botones.

* Mejora: En la clase TTrayIcon nuevo DATA lSuccess para comprobar ...

... TActiveX.prg

* Fix: Minor change in Class TWBrowse function WBrwLine().

* Enhancement: Class TControl Method HandleEvent() message WM_UPDATEUISTATE, added support for controls TBtnBmp when placed on button bars.

* Enhancement: CLASS TTrayIcon new DATA lSuccess to check if the tray icon ...

... para las opciones de los "menuitems".

* Corrección: La clase TControl ha sido modificada para procesar apropiadamente el mensaje WM_UPDATEUISTATE. Esto causaba que algunos controles no se visualizaban al pulsar la tecla "Alt" en Vista.

* Nuevo: Soporte para los ficheros de ayuda CHM ...

... Class TWindow Method MeasureItem() returns wider sizes for menuitems.

* Fix: Class TControl has been modified to properly process WM_UPDATEUISTATE message. This was causing some controls not to be seen when pressing Alt in Vista.

* New: Help CHM files support, using the same syntax and ...

... oGroup ID 501 COLOR CLR_VERMELHO, CLR_AMARELO OF oDlg ;
FONT oFnt TRANSPARENT
//

Ya modifique la classe GROUP.PRG, mas...

//

#define WM_UPDATEUISTATE 296 // 0x0128

//

METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TGroup

local nResult

if ::lDrag .and. nMsg == WM_NCHITTEST // To ...

... nMsg == WM_NCHITTEST // To have a standard behavior on Clicks
return DefWindowProc( ::hWnd, nMsg, nWParam, nLParam )
endif

if nMsg == WM_UPDATEUISTATE // Groups and contained controls were erased when pressing ALT
nResult = Super:HandleEvent( nMsg, nWParam, nLParam )
::oWnd:Refresh()
return ...

//-> Change in your class GROUP.PRG

#define WM_UPDATEUISTATE 296 // 0x0128