TGet Spinner bug 2

[Ugo]

Hi Fwh's

Another little bug in my exe FWH 32bit:
is not visible the number TGet when Right, Spinner and WHEN .F. clauses are declared.

In FW 2.5 (16 bit) is not present, I do not test the Feb06 version.

Test this:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   LOCAL oDlg, oGet, nVal0 := 0, nVal1 := 0

   DEFINE DIALOG oDlg
   @ 1,1 GET oGet VAR nVal0 OF oDlg SIZE 50, 8 PICTURE "99999.99" SPINNER RIGHT
   @ 3,1 GET oGet VAR nVal1 OF oDlg SIZE 50, 8 PICTURE "99.99" SPINNER WHEN .F. RIGHT

   ACTIVATE DIALOG oDlg

   RETURN Nil

Thank you for the help.

[Enrico Maria Giordano]

This is a possible fix (TGet:Paint() method):

Code: Select all  Expand view

#define SM_CYHSCROLL          3

      do case
         case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_CENTER )
              SetTextAlign( ::hDC, TA_CENTER )
              ExtTextOut( ::hDC, 1, ( ::nWidth() - 7 - GetSysMetrics( SM_CYHSCROLL ) ) / 2,;
                { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) )
             
         case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_RIGHT )
              SetTextAlign( ::hDC, TA_RIGHT )
              ExtTextOut( ::hDC, 1, ::nWidth() - 7 - GetSysMetrics( SM_CYHSCROLL ),;
                { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) )
             
         otherwise
              SetTextAlign( ::hDC, TA_LEFT )
              ExtTextOut( ::hDC, 1, 0,;
                { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) )
      endcase

EMG

[Ugo]

This is a possible fix (TGet:Paint() method):
EMG

Dear Enrico,

your fix work perfectly!

Thank you.

[Antonio Linares]

Enrico,

Thanks!

[Enrico Maria Giordano]

Please note that I haven't tried with the CENTER option.

EMG

[Antonio Linares]

Enrico,

But that fix should check if Spinner is used, right ?

[Enrico Maria Giordano]

Enrico,

But that fix should check if Spinner is used, right ?

Ops! Right.

EMG

[Antonio Linares]

Enrico,

I have added a new DATA lSpinner, to use it at Method Paint()

[Antonio Linares]

Code: Select all  Expand view

...
      do case
         case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_CENTER )
              SetTextAlign( ::hDC, TA_CENTER )
              if ::lSpinner
                 ExtTextOut( ::hDC, 1, ( ::nWidth() - 7 - GetSysMetrics( SM_CYHSCROLL ) ) / 2,;
                    { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) )
              else     
                 ExtTextOut( ::hDC, 0, ::nWidth() / 2,;
                   { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) )
              endif     
             
         case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_RIGHT )
              SetTextAlign( ::hDC, TA_RIGHT )
              if ::lSpinner
                 ExtTextOut( ::hDC, 1, ::nWidth() - 7 - GetSysMetrics( SM_CYHSCROLL ),;
                    { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) )
              else     
                 ExtTextOut( ::hDC, 0, ::nWidth() - 4,;
                    { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) )
              endif     
...


[Enrico Maria Giordano]

Thank you.

EMG