New FWH 14.09

[Antonio Linares]

viewtopic.php?p=166420#p166420

[Maurizio]

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

[jmartial]

Antonio,

Todavía no he bajado la nueva versión, pero eso de parpadear no era el cambio definitivo, el que funcionaba perfectamente, es sólo cambiando
el método default.

Ahí está la modificación que funcionaba:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=29388&p=166220&hilit=Tfolderex#p166208

[Antonio Linares]

Joaquín,

gracias!

Se me pasó incluirla. La incluyo y publico un nuevo build

[fraxzi]

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

I'd like to confirm this too.. going back to 14.08 for now

[richard-service]

Antonio,

Unicode work fine for Edit data, XP Theme and control key(Backspace,left,right)??

[Antonio Linares]

Maurizio,

Please comment this line from Class TFolderEx Method Paint():

Code: Select all  Expand view  RUN

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

[Antonio Linares]

Already published a new build

FWH 14.09 (third build)

[Rick Lipkin]

Antonio

Were you able to include the fix for the Group paint with the xp manifest ?

Thanks
Rick Lipkin

[Antonio Linares]

Rick,

I built this example and worked fine. Could you please test it there ? thanks

Code: Select all  Expand view  RUN

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

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

[driessen]

Antonio,

A few months ago I asked you to add a build number to the downloadsite. So we know if we have downloaded the latest build.

I noticed that this number disappeared.

Please could you add that again in the future?

Thanks.

[fraxzi]

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

Rick,

If you resize the above dialog/window does it flicker? I mean the group object?... I have this annoying problem.

[Antonio Linares]

Rick,

Please uncomment this line from Class TGroup Method Paint():

Code: Select all  Expand view  RUN

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

[Antonio Linares]

Michel,

You are right, my mistake.

I am waiting for Rick confirmation for the groups painting bug so then we will publish the fourth FWH 14.09 build and I will update the website accordingly.