Necesito urgente solucionar un problema que me sucede con el ancho de las columnas de Xbrowse.
El caso que trato de ajustar el ancho de la segunda columna, ponga el valor que ponga, el ancho no muestra ninguna modificación.
Muchos saludos
Antonio
Codigo:
- Code: Select all Expand view
@ 55,05 XBROWSE oBrw SIZE 350,-35 PIXEL OF oFld:aDialogs[1] DATASOURCE "DAdm" FONT oFont2;
HEADERS 'Fecha', 'Procedimiento','Profe.', 'Cant.Jeri','Val.Unita','Total...';
COLUMNS "Fec_Adm","MProc->Nom_ProC","Cod_Prof","Can_Jer","Val_Uni","Val_Tot";
COLSIZES 50,200,50,60,80,80;
PICTURES '@d','@!',"99",'999','999,999,999','999,999,999';
CELL LINES AUTOSORT NOBORDER;
// oBrw:nFreeze := 3
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:nColDividerStyle := LINESTYLE_INSET
oBrw:nRowDividerStyle := LINESTYLE_INSET
oBrw:bClrHeader := {|| { nRGB(140, 0, 0), nRGB( 231, 242, 255 ), } }
oBrw:nOpacity := 230
oBrw:aCols[01]:bFooter := { || Ltrim( Str( oBrw:KeyNo() ) ) + " / " + LTrim( Str( oBrw:KeyCount() ) ) }
oBrw:aCols[ 4]:nDataStrAlign := AL_RIGHT
oBrw:bClrStd := {|| { nRGB( 0, 0, 0), nRGB(255,248,220) } }
oBrw:bClrSelFocus := {|| { nRGB( 255, 255, 255), nRGB(102, 178, 255) } }
oBrw:aCols[6]:cEditPicture := "999,999,999"
oBrw:aCols[6]:nFooterType := AGGR_TOTAL
oBrw:MakeTotals()
oBrw:bChange := {|| oBrw:Maketotals() }
WITH OBJECT oBrw
:lFooter := .t.
oBrw:lHScroll := .f.
oBrw:lIncrFilter := .f.
oBrw:lSeekWild := .F. && .T. Busca Contenido, .F. Que comience con lo que digita
oBrw:SetStyle( 2018)
oBrw:nColorPen := CLR_RED
oBrw:nStretchCol := STRETCHCOL_WIDEST
oBrw:CreateFromCode()
END
