New FWH 14.09

New FWH 14.09

Postby Antonio Linares » Tue Oct 21, 2014 4:39 am

regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42099
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: New FWH 14.09

Postby Maurizio » Tue Oct 21, 2014 2:55 pm

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
User avatar
Maurizio
 
Posts: 824
Joined: Mon Oct 10, 2005 1:29 pm

Re: New FWH 14.09

Postby jmartial » Tue Oct 21, 2014 5:03 pm

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
jmartial
 
Posts: 458
Joined: Tue Mar 14, 2006 7:26 pm

Re: New FWH 14.09

Postby Antonio Linares » 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
User avatar
Antonio Linares
Site Admin
 
Posts: 42099
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: New FWH 14.09

Postby fraxzi » Wed Oct 22, 2014 3: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
User avatar
fraxzi
 
Posts: 811
Joined: Tue May 06, 2008 4:28 am
Location: Philippines

Re: New FWH 14.09

Postby richard-service » Wed Oct 22, 2014 3:57 am

Antonio,

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

Richard

Harbour 3.2.0dev (r2402101027) => Borland C++ v7.7 32bit
MySQL v8.0 /ADS v10
Harbour 3.2.0dev (r2011030937) => Borland C++ v7.4 64bit
User avatar
richard-service
 
Posts: 803
Joined: Tue Oct 16, 2007 8:57 am
Location: New Taipei City, Taiwan

Re: New FWH 14.09

Postby Antonio Linares » Wed Oct 22, 2014 5:16 am

Maurizio,

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

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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42099
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: New FWH 14.09

Postby Antonio Linares » Wed Oct 22, 2014 6:25 am

Already published a new build

FWH 14.09 (third build)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42099
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: New FWH 14.09

Postby Rick Lipkin » Wed Oct 22, 2014 1:41 pm

Antonio

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

Thanks
Rick Lipkin
User avatar
Rick Lipkin
 
Posts: 2665
Joined: Fri Oct 07, 2005 1:50 pm
Location: Columbia, South Carolina USA

Re: New FWH 14.09

Postby Antonio Linares » Wed Oct 22, 2014 3:42 pm

Rick,

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

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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42099
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: New FWH 14.09

Postby Rick Lipkin » Wed Oct 22, 2014 6: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
Image
User avatar
Rick Lipkin
 
Posts: 2665
Joined: Fri Oct 07, 2005 1:50 pm
Location: Columbia, South Carolina USA

Re: New FWH 14.09

Postby driessen » Wed Oct 22, 2014 9: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. 24.07 - Harbour 3.2.0 (February 2024) - xHarbour Builder (January 2020) - Bcc773
User avatar
driessen
 
Posts: 1422
Joined: Mon Oct 10, 2005 11:26 am
Location: Genk, Belgium

Re: New FWH 14.09

Postby fraxzi » 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
Image



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
User avatar
fraxzi
 
Posts: 811
Joined: Tue May 06, 2008 4:28 am
Location: Philippines

Re: New FWH 14.09

Postby Antonio Linares » Thu Oct 23, 2014 3:37 am

Rick,

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

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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42099
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: New FWH 14.09

Postby Antonio Linares » Thu Oct 23, 2014 3: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
User avatar
Antonio Linares
Site Admin
 
Posts: 42099
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Next

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 56 guests