topic-28093

Posts: 1048

Joined: Mon Oct 24, 2005 09:54 AM

TGet; little correction
Posted: Mon Feb 17, 2014 10:02 AM

In paint of Tget should adapted the ES_CENTER with the option for ::bAction to show correct alignment in this (disabled get) case.

Code (fw): Select all Collapse

do case
         case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_CENTER )
              SetTextAlign( ::hDC, TA_CENTER )
              if ::lSpinner
                 ExtTextOut( ::hDC, vPos , ( ::nWidth() - 3 - GetSysMetrics( SM_CYHSCROLL ) ) / 2,;
                    { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ), ::nTxtStyle )
              else
                  if ValType( ::bAction ) == "B"   ////NEW!!
                      ExtTextOut( ::hDC,vPos, (::nWidth() - 7 - ::nHeight)/2,;
                    { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ), ::nTxtStyle )
                 else
                    ExtTextOut( ::hDC, vPos, ( ::nWidth() - 3 ) / 2,;
                     { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ), ::nTxtStyle )
             endif
              endif

Regards,
Günther
---------------------------------
office@byte-one.com

byte-one

Posts: 1048

Joined: Mon Oct 24, 2005 09:54 AM

Re: TGet; little correction
Posted: Tue May 20, 2014 11:48 AM

Antonio, this little should inserted in new Version as the look in disabled gets with ACTION not so good!

Regards,
Günther
---------------------------------
office@byte-one.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: TGet; little correction
Posted: Tue May 20, 2014 10:43 PM

Günther,

Many thanks,

We plan to publish FWH 14.04 tonight, thus it is impossible to include it without having tested it in deep and check that there are no side effects.

So we will include it for next FWH 14.06, thanks :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: TGet; little correction
Posted: Tue May 20, 2014 10:44 PM

Günther,

Could you please post a screenshot of how it looks before and after ?

many thanks

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: TGet; little correction
Posted: Wed May 21, 2014 06:18 PM

Günther,

This source code line already exists:

              if ValType( ::bAction ) == &quot;B&quot;   ////NEW!!

what FWH version are you using ? thanks

regards, saludos

Antonio Linares
www.fivetechsoft.com

byte-one

Posts: 1048

Joined: Mon Oct 24, 2005 09:54 AM

Re: TGet; little correction
Posted: Wed May 21, 2014 08:26 PM

Antonio, excuse my delay! I use 13.6! Maybe you have insert this but i have no received any message!?

Regards,
Günther
---------------------------------
office@byte-one.com

FiveTech Support Forums

Continue the discussion