get action

[Johnson]

Code: Select all  Expand view

       @ 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 view

       @ 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 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


agregale este 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
           


por ultimo en el metodo initiate

busca esta linea

Code: Select all  Expand view

::SetMargins( 1, 1 )


y le agregas este IF

Code: Select all  Expand view

    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