Group error when ALT is pressed

[Maurilio Viana]

Antonio,

Using themes, when we redefine a group and press alt key
the content of group was erased. If we use transparent clause it work fine, then we change group.prg lTransparent default to .T.
I think it is the same old folder/button problem...

Regards,
Maurilio

[Antonio Linares]

Maurilio,

That was fixed recently. This change is required in source\classes\group.prg

Code: Select all  Expand view  RUN

#define WM_UPDATEUISTATE 296  // 0x0128

METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TGroup

   local nResult

   if ::lDrag .and. 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 nResult
   endif   

return Super:HandleEvent( nMsg, nWParam, nLParam )


[Maurilio Viana]

Thanks a lot, Antonio!

Best regards!
Maurilio