Exemplo de código:
Código: Selecionar todos
SELECT 10
SET FILTER TO !DELETED()
LIStvenWidth := ( Cuadro3[1][4] * 2 ) - 80
@ ( Cuadro3[1][1] + 9 ) , ( Cuadro3[1][2] + 11 ) xBrowse listven fields str(&diario->udes,3), &diario->des_ticket, trans(&diario->pventa,'99999.99'),trans(&diario->pventa*&diario->udes,'99999.99') of oDialog headers 'CAN','DESCRIPCIÓN','PRECIO','T O T A L' FIELDSIZES ( LIStvenWidth * .10 ) , ( LIStvenWidth * .50 ) , ( LIStvenWidth * .15 ) , ( LIStvenWidth * .25 ) FONT If( oDialog:nHeight > 900 , oFont3 , oFont1 ) PIXEL JUSTIFY {AL_CENTER, AL_LEFT, AL_RIGHT, AL_RIGHT} SIZE ( Cuadro3[1][4] - Cuadro3[1][2] - 22 ),(Cuadro3[1][3] - Cuadro1[1][1] - ( (Cuadro3[1][3] * .17 ) ) )
WITH OBJECT ListVen
:bClrGrad := { | lInvert | If( ! lInvert, { { 0.20 , 4144959, 16777215 } , { 0.20 , 16777215 , 4144959 } }, { { 0.50 , 128 , 16777215 }, { 0.50 , 16777215 , 128 } } ) } //Color Header y Footer
:bClrStd := { || { CLR_BLACK, If( ListVen:KeyNo() % 2 == 0, RGB(224,236,255), RGB(189,211,253) ) } }
:bClrStd := { || If( Eval( ListVen:bKeyNo,,ListVen ) % 2 == 0, { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } ) } //Aqui el Efecto Pijama
:lAllowRowSizing := .F. //Activar/Desactivar Redimensionado de Lineas por Usuario
:lColDividerComplete := .T. //Lineas verticales hasta abajo
:lAllowColSwapping := .F.
:lAllowColHiding := .F.
:nFreeze := 4
:nColDividerStyle := LINESTYLE_INSET
:nMarqueeStyle := MARQSTYLE_HIGHLROW // Con cursor de todo el renglón
:lColDividerComplete := (.T.) // (.T.) Mantiene siempre llena la pantalla
:lRecordSelector := .f.
:nHeaderHeight := ( ( ( ListVen:nHeight ) / 5 ) + 10 )// Altura de los encabezados
:nHeaderLines := 1 // Número de líneas de encabezados
:nDataLines := 1 // Número de líneas de detalle
:nFooterLines := 1 // Número de líneas en el footer
:lFooter := (.T.) // (.T.) Sí queremos línea de footer
:nFooterHeight := 8 //+ ( INT( ListVen:nHeight) - ( INT( ListVen:nHeight / 9 ) * 9 ) )// Altura del footer
:nRowHeight := ( ( ListVen:nHeight - ( :nHeaderHeight / 2 ) - ( :nFooterHeight / 2 ) - 3 ) / 5 )//INT( ListVen:nHeight / If( oDialog:nHeight < 800 , 7 , If( oDialog:nHeight > 800 .and. oDialog:nHeight < 900 , 8 , 10 ) ) )// 40 // Altura del renglón
:aCols[ 2 ]:addbmpfile( Camino + "images\delete.bmp" )
:aCols[ 2 ]:lBtnTransparent := .t.
:aCols[ 2 ]:nBtnBmp := 1
:aCols[ 2 ]:nEditType := EDIT_BUTTON
:aCols[ 2 ]:bEditBlock := { || eliven( .F. ) }
:lHScroll := (.F.) // Quitamos el scroll horizontal
:lVScroll := (.F.) // Quitamos el scroll horizontal
:lKinetic := .f.
//:nStretchCol := STRETCHCOL_WIDEST
//:bLostFocus := { || ListVen:GoBottom() }
:bClrSel = { || { CLR_BLACK , GetSysColor( COLOR_INACTIVECAPTIONTEXT ) } } //Puntero LostFocus
:bClrSelFocus := {|| { CLR_BLACK, GetSysColor( COLOR_INACTIVECAPTIONTEXT )} } //Puntero GotFocus
//:bClrSelFocus := {|| { CLR_WHITE, GetSysColor( COLOR_HIGHLIGHT )} } //Puntero GotFocus
//:bClrSelect = { || { 0, nRGB( 100, 149, 237 ) } }
//:l2007 := .T.
//:lTransparent := .f.
//:lAllowSizings := .f. //Did not work with 10.2
//:nRowDividerStyle := LINESTYLE_INSET
END
//AEval( ListVen:aCols, { |oCols| oCols:nEditType := EDIT_BUTTON } )
AEval( ListVen:aCols, { |o| o:lAllowSizing := .f. } )
AEval( ListVen:aCols, { |o| o:nHeadStrAlign := AL_CENTER} )
ListVen:CreateFromCode()
