GET with ACTION Wrong!

[JC]

I try to use the GET with ACTION clausule, but the right align still wrong

The value still behind the button! Very ugly!

[ukoenig]

Hello JC,

There was a topic in the forum < Button in Get problem >,
a few days ago, about this problem.

Regards
Uwe

[Antonio Linares]

Júlio,

We are currently working on it, to solve that problem and also the horizontal scrolling issue.

[JC]

Júlio,

We are currently working on it, to solve that problem and also the horizontal scrolling issue.

Ok! Thanks for your answer!

[demont frank]

Júlio,

We are currently working on it, to solve that problem and also the horizontal scrolling issue.

Is it solved in 8.9 ?

Frank

[Antonio Linares]

Frank,

No, not yet.

We plan to have it ready in a few days.

[Max HK]

Has this problem been fixed in 8.10?

Thks.

[Antonio Linares]

No, it has not been solved, though the source code is in 8.10.

Please review source\classes\tget.prg and look for WM_NCCALCSIZE

[Patrick Mast]

No, it has not been solved, though the source code is in 8.10.Please review source\classes\tget.prg and look for WM_NCCALCSIZE

I'm also waiting for this fix before I can use it

Patrick

[Antonio Linares]

Patrick,

The source code for it is in 8.10, but if we apply it the client area gets reduced and the button is not visible.

We are not sure yet if it can get visible, or if we have to place it out of the GET, not as a child control.

[Max HK]

Hi Antonio:

Will you solve it in 8.11?

I have searched this feature for a long time. Waiting for it since I want to start a new project massively using this feature.

Thanks.

[JC]

Patrick,

The source code for it is in 8.10, but if we apply it the client area gets reduced and the button is not visible.

We are not sure yet if it can get visible, or if we have to place it out of the GET, not as a child control.

Antonio,

Maybe the button must be a child of the owner of "get"... painted beside him.
Will stay beautiful.
What you think about this?

[Antonio Linares]

This is a proposed solution by mcfox. We appreciate your feedback:

Modify these lines in Class TGet:

Code: Select all  Expand view

         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, 1, ::nWidth() - 7 ,; 
                    { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) )
              endif


with this if:

Code: Select all  Expand view

         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
                  if ValType( ::bAction ) == "B"  // Agregar
                      ExtTextOut( ::hDC, 1, ::nWidth() - 7 - ::nHeight,;  //agregar
                    { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd )  ) //agregar
                 else  //agregar
                    ExtTextOut( ::hDC, 1, ::nWidth() - 7 ,; 
                    { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) )
                  endif //agregar               
              endif
           


Finally, in:

Code: Select all  Expand view

::SetMargins( 1, 1 )


Modify it to:

Code: Select all  Expand view

    if ValType( ::bAction ) == "B" // new
       ::SetMargins( 1, ::nHeight) //new
    else //new
        ::SetMargins( 1, 1 )
    endif //new


[JC]

Antonio,

The solution of mcfox works very fine! Now, it's all ok!