FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Flickering from TControl
Posts: 1048
Joined: Mon Oct 24, 2005 09:54 AM
Flickering from TControl
Posted: Tue Sep 21, 2010 08:34 AM
When my Dialogs are transparent, ugly flickering is to see, if i click on radio or checkbox!
The following code in method handlevent i have commented out and all is ok.

Code (fw): Select all Collapse
 case nMsg == WM_LBUTTONDOWN
           if ::lTransparent .and. ( ::IsKindOf( "TRADIO" ) .or. ::IsKindOf( "TCHECKBOX" ) )
              ::oWnd:Refresh() 
           endif   
           return ::LButtonDown( nHiWord( nLParam ), nLoWord( nLParam ), nWParam )

      case nMsg == WM_LBUTTONUP
           if ::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 ::lTransparent .and. ( ::IsKindOf( "TRADIO" ) .or. ::IsKindOf( "TCHECKBOX" ) )
              ::oWnd:Refresh() 
           endif   
           return nResult
Regards,
Günther
---------------------------------
office@byte-one.com

Continue the discussion