topic-29462

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

Un Saludo,

Joaquín Martínez

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: New FWH 14.09
Posted: Tue Oct 21, 2014 11:36 PM

Joaquín,

gracias! :-)

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

fraxzi

Posts: 811

Joined: Tue May 06, 2008 04:28 AM

Re: New FWH 14.09
Posted: Wed Oct 22, 2014 03:41 AM

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

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

Kind Regards,

Frances

Fivewin for xHarbour v18.07

xHarbour v1.2.3.x

BCC 7.3 + PellesC8 ( Resource Compiler only)

ADS 10.1 / MariaDB

Crystal Reports 8.5/9.23 DE

xMate v1.15

richard-service

Posts: 866

Joined: Tue Oct 16, 2007 08:57 AM

Re: New FWH 14.09
Posted: Wed Oct 22, 2014 03:57 AM

Antonio,

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

Best Regards,

Richard

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: New FWH 14.09
Posted: Wed Oct 22, 2014 05:16 AM

Maurizio,

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

Code (fw): Select all Collapse

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: New FWH 14.09
Posted: Wed Oct 22, 2014 06:25 AM

Already published a new build

FWH 14.09 (third build)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Rick Lipkin

Posts: 2706

Joined: Fri Oct 07, 2005 01:50 PM

Re: New FWH 14.09
Posted: Wed Oct 22, 2014 01:41 PM

Antonio

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

Thanks
Rick Lipkin

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: New FWH 14.09
Posted: Wed Oct 22, 2014 03:42 PM

Rick,

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

Code (fw): Select all Collapse

#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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Rick Lipkin

Posts: 2706

Joined: Fri Oct 07, 2005 01:50 PM

Re: New FWH 14.09
Posted: Wed Oct 22, 2014 06:36 PM

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

Posts: 1467

Joined: Mon Oct 10, 2005 11:26 AM

Re: New FWH 14.09
Posted: Wed Oct 22, 2014 09:06 PM

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.

Regards,

Michel D.
Genk (Belgium)

_____________________________________________________________________________________________

I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773

fraxzi

Posts: 811

Joined: Tue May 06, 2008 04:28 AM

Re: New FWH 14.09
Posted: Wed Oct 22, 2014 11:54 PM

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

Rick,

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

Kind Regards,

Frances

Fivewin for xHarbour v18.07

xHarbour v1.2.3.x

BCC 7.3 + PellesC8 ( Resource Compiler only)

ADS 10.1 / MariaDB

Crystal Reports 8.5/9.23 DE

xMate v1.15

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: New FWH 14.09
Posted: Thu Oct 23, 2014 03:37 AM

Rick,

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

Code (fw): Select all Collapse

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: New FWH 14.09
Posted: Thu Oct 23, 2014 03:39 AM

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.

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums