FiveTech Software tech support forums

... := {|| 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 ...

... "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 := ...

... "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 := ...

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

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

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

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

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

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

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

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

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

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

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