get action

[Johnson]

Code: Select all | Expand

       @ 110, 055 GET oPve_Prod VAR nPve_Prod PIXEL  OF oFldProd:aDialogs[ 1 ] COLOR CLR_GET1,CLR_GET2 SIZE 35, 10 BITMAP "" PICTURE "@E 999,999.99" ACTION CalcPrcVe( oPve_Prod, nPcu_Prod, nPve_Prod, lAppend )

SEM RIGHT

Code: Select all | Expand

       @ 110, 055 GET oPve_Prod VAR nPve_Prod PIXEL RIGHT OF oFldProd:aDialogs[ 1 ] COLOR CLR_GET1,CLR_GET2 SIZE 35, 10 BITMAP "" PICTURE "@E 999,999.99" ACTION CalcPrcVe( oPve_Prod, nPcu_Prod, nPve_Prod, lAppend )

COM RIGHT

NORMAL?

[Daniel Garcia-Gil]

puedes hacer estos 2 cambien el la clase
metodo paint busca estas lineas

Code: Select all | Expand

         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

agregale este IF

Code: Select all | Expand

         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
           

por ultimo en el metodo initiate

busca esta linea

Code: Select all | Expand

::SetMargins( 1, 1 )

y le agregas este IF

Code: Select all | Expand

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

con eso creo que seria suficiente, si falto algo o no esta bien hecho que alguien me corrija...

[Johnson]

obrigado
thanks