FiveTech Software tech support forums

Posted: **Sat Nov 01, 2008 10:57 am**

       @ 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

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

Posted: **Sat Nov 01, 2008 3:07 pm**

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

Code: Select all

         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

         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

::SetMargins( 1, 1 )

y le agregas este IF

Code: Select all

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

Posted: **Tue Nov 04, 2008 1:53 am**

obrigado
thanks

FiveTech Software tech support forums

get action

get action