Page 1 of 1

Group error when ALT is pressed

Posted: Mon Mar 13, 2006 2:45 pm
by 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

Posted: Mon Mar 13, 2006 8:43 pm
by Antonio Linares
Maurilio,

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

Code: Select all

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

Posted: Tue Mar 14, 2006 10:04 pm
by Maurilio Viana
Thanks a lot, Antonio!

Best regards!
Maurilio