topic-13381

Posts: 18

Joined: Sat Nov 26, 2005 04:45 PM

get action
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 Collapse

       @ 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

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

get action
Posted: Sat Nov 01, 2008 03:07 PM

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

Code: Select all Collapse

         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 Collapse

         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 Collapse

::SetMargins( 1, 1 )

y le agregas este IF

Code: Select all Collapse

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

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

Johnson

Posts: 18

Joined: Sat Nov 26, 2005 04:45 PM

get action
Posted: Tue Nov 04, 2008 01:53 AM

obrigado
thanks

FiveTech Support Forums

Continue the discussion