FiveTech Software tech support forums

... 232 ) } ) }
:bClrFooter := { || { CLR_WHITE,METRO_WORD1 } }
:bClrEdits := { || { CLR_BLACK, CLR_YELLOW }}
END

AEval( oBrw:aCols, { | o | o:nHeadStrAlign := AL_CENTER,o:oDataFont := oFont } )

oBrw:CreateFromCode()

aWnd:oClient := oBrw

BrwBtnBar()

WaitOff( @oWait )

ACTIVATE WINDOW aWnd ON ...

... IIf( oBrw:KeyNo() % 2 == 0, { CLR_BLACK, RGB( 198, 255, 198 ) }, { CLR_BLACK, RGB( 232, 255, 232 ) } ) }


END


AEval( oBrw:aCols, {|o| o:nHeadStrAlign := AL_CENTER, o:oDataFont := aFont[1]} )

oBrw:CreateFromCode()

oWnd:oClient := oBrw

BrwBtnBar( oBrw )

WaitOff( @oWait )

ACTIVATE WINDOW ...

... BOTONSI", "BOTONNO" } ) NO QUIERO QUE PASE NADA AL HACER DOBLE CLICK SOBRE ESTA COLUMNA
oBrw:aCols[1]:cHeader := "Est"
oBrw:aCols[1]:nHeadStrAlign := AL_LEFT //LEFT
oBrw:aCols[1]:bBmpData := { || iif( cTab_Art:opcion=.t., 1, 2) }
oBrw:aCols[1]:nWidth := 20

oBrw:aCols[2]:cHeader ...

:addResource( 'FLAG' )
:bBmpData := {|| IIf( Empty( oData:produtocontado ), 0, 1 ) }
:lBmpStretch := .f.
:lBmpTransparent := .t.
:nDataBmpAlign := AL_CENTER
:nHeadStrAlign := AL_CENTER
:cHeader := 'Contado'
:nWidth := 50
:bStrData := {|| nil }
:cSortOrder := Nil

... aCols[03],"fecha ASC",oQry )}
oBrw:aCols[04]:bLClickHeader := {|| SetOrden(oBrw:aCols[04],"razsoc ASC",oQry )}

AEval( oBrw:aCols, { | o | o:nHeadStrAlign := AL_CENTER,o:oDataFont := aFont[1] } )


oBrw:CreateFromCode()

oWnVta:oClient := oBrw



y para refrescar la consulta uso asi

Static ...

WITH OBJECT aBrowser[2]
WITH OBJECT :aCols[ 1 ]
:cHeader := ""
HeaderFont := oFonte_padrao
:nHeadStrAlign := AL_CENTER
:nWidth := 80
:bStrData := { || AllTrim( DToC( oMensagem:getValueByPos( 2 ) ) ) }
:nDataStrAlign := AL_TOP
:nCellheight := 20
DataFont := oFonte_botao
:SetColsAsRows( { 1 ...

... T.
oBrw:lHScroll := .T.
oBrw:lVScroll := .T.
oBrw:lAllowColSwapping := .T.
oBrw:nFreeze := 2
oBrw:lFastEdit := .T.

AEval( oBrw:aCols, { |o| o:nHeadStrAlign := AL_CENTER } )
oBrw:bPopUp := { |o| ColMenu( o ) }
AEval( oBrw:aCols, { |o| o:cToolTip := { o:cHeader, 'ToolTip' } } )

oBrw:bRClicked ...

... oBrw:SetDolphin(cTab_Art,.T.,.T.)

oBrw:aCols[1]:cHeader := "Código"
oBrw:aCols[1]:bStrData := { || cTab_Art:cod_art }
oBrw:aCols[1]:nHeadStrAlign := AL_CENTER
oBrw:aCols[1]:nDataStrAlign := AL_LEFT //LEFT
oBrw:aCols[1]:nWidth := 100
oBrw:aCols[1]:cToolTip :="Haga doble Click para ...

... AddBitmap( "INVOICE_CALENDARIO")
:nBtnBmp := 1
:lBtnTransparent := .t.
* :lBmpStretch := .f.
:nwidth := 120
:nDataStrAlign := AL_CENTER
:nHeadStrAlign := AL_CENTER

:nDataStrAlign := oBrowse:aCols[ 7]:DefStyle(AL_LEFT,.f.)
:nEditType := EDIT_BUTTON
:bEditBlock := { |r,c,o,k|(XbrGetDate( o ...

from tDatabase-sample

oCol := oBrw:AddCol()
oCol:cHeader := "Married"
oCol:nHeadStrAlign := AL_CENTER
oCol:addbmpfile( c_path1 + "Checkon.bmp" ) // from Disk with path \bitmaps
oCol:addbmpfile( c_path1 + "Checkoff.bmp" ) // from Disk with path \bitmaps
oCol:bBmpData := {|| IIF( oCust:MARRIED = .T ...

Buenas , estimado yo lo hago asi

WITH OBJECT :COCHE
:AddResource( "#1006" )
:AddResource( "#1007" )
:bBmpData := { || if ( ALLTRIM((oP:Situavl:fieldget(12)) ) == "FS" , 1, 2 ) }
:nHeadStrAlign = AL_CENTER
HeaderFont = fontB1
DataFont = fontB1
END
suerte..

... oFont2
oBrw:SetDolphin(cExt_Mar,.T.,.T.)

oBrw:aCols[1]:cHeader := "Código"
oBrw:aCols[1]:bStrData := { || cExt_Mar:cod_mar }
oBrw:aCols[1]:nHeadStrAlign := AL_CENTER
oBrw:aCols[1]:nDataStrAlign := AL_LEFT //LEFT
oBrw:aCols[1]:nWidth := 100
oBrw:aCols[1]:cSortOrder := "cod_mar"
oBrw:aCols[1 ...

... habria que revisar mas la clase o preguntarle a Mt RAO, lo que he hecho es justificarlas todas a un mismo lado con

AEval( oBrw:aCols, {|o| o:nHeadStrAlign := AL_CENTER } )

pero casi como dices que cada hearder o footer tome justificacions diferentes con una sola linea de comando no tengo ni idea ...

Saludos...

Header
aCols[n]:nHeadStrAlign := AL_CENTER, etc

VALIDA SI SE CENTRAN TODOS LOS head AUTOMATICAMENTE
AEval( oBrw:aCols, {|o| o:nHeadStrAlign := AL_CENTER } )


Footer
aCols[n]:nFootStrAlign := AL_RIGHT, etc

saludos...gracias...

... SetDolphin(cTab_Insumo,.T.,.T.)

oBrw:aCols[1]:cHeader := "Código"
oBrw:aCols[1]:bStrData := { || cTab_Insumo:cod_insumo }
oBrw:aCols[1]:nHeadStrAlign := AL_CENTER
oBrw:aCols[1]:nDataStrAlign := AL_LEFT //LEFT
oBrw:aCols[1]:nWidth := 100
oBrw:aCols[1]:cSortOrder := "cod_insumo"
oBrw:aCols ...