FiveTech Software tech support forums

Maurizio wrote:Antonio ,
about : * Fix: Class TFolderEx was not properly repainting the current selected dialog when the container was resized. Now it is ok:


now if I move the mouse over the tabs the dialog blinked
samples\testfx3.prg

Regards Maurizio
http://www.nipeservice.com

Code: Select all  Expand view

METHOD Paint() CLASS TFolderEx

   LOCAL aInfo

   IF ::lWorking
      RETURN NIL
   ENDIF

   aInfo   := ::DispBegin()

   IF ::nLayOut == LAYOUT_TOP .OR. ::nLayOut == LAYOUT_BOTTOM
      ::PaintTB()
   ELSE
      ::PaintLR()
   ENDIF

   ::DispEnd( aInfo )

   // ::aDialogs[ ::nOption ]:Refresh()   This one !!!!

RETURN NIL

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg

   SetDlgGradient( { { 1, RGB( 199, 216, 237 ), RGB( 237, 242, 248 ) } } )
   
   DEFINE DIALOG oDlg SIZE 300, 300

   @ 1, 1 GROUP TO 4, 12 PROMPT "First" OF oDlg

   @ 5, 1 GROUP TO 8, 12 PROMPT "Second" OF oDlg

   ACTIVATE DIALOG oDlg CENTERED

return nil

Rick Lipkin wrote:Antonio

Add the Windows manifest to your code and you will get this result.... notice the first group text is transparent .. the second is not.

Thanks
Rick Lipkin

Rick Lipkin

Code: Select all  Expand view

METHOD Paint() CLASS TGroup

   local aSize, hOldFont, oFont

   CallWindowProc( ::nOldProc, ::hWnd, WM_PAINT, ::hDC, 0 )

   if IsAppThemed()
      oFont = If( ::oFont != nil, ::oFont, ::oWnd:oFont )
      ASize = GetLabelDim( ::hWnd, ::cCaption, oFont:hFont )
      hOldFont = SelectObject( ::hDC, oFont:hFont )
      SetBrushOrgEx( ::hDC, nBmpWidth( ::oBrush:hBitmap ) - ::nLeft, nBmpHeight( ::oBrush:hBitmap ) - ::nTop )
      FillRect( ::hDC, { 0, 7, aSize[ 2 ] + 2, aSize[ 1 ] + 11 }, ::oBrush:hBrush )   // this one !!!!!!!!!!!!!!!!!!!!!!
      SetBkMode( ::hDC, 1 )
      TextOut( ::hDC, 0, 9, ::cCaption, Len( ::cCaption ) )
      SelectObject( ::hDC, hOldFont )
   endif  

return 1