FiveTech Software tech support forums

... oTbr:aColSizes:= anTam oTbr:nClrPane = { | nCol | if( acDatos[ oTbr:nAt, nCol ] = "X", CLR_HRED, CLR_WHITE ) } oTbr:lCellStyle = .t. oTbr:lAutoEdit = .f. ...

... "Sel_Client" REDEFINE LISTBOX oLbx ; FIELDS (cAlias)->first, (cAlias)->last ; HEADERS "First", "Last" ; ID 500 OF oDlg ALIAS cAlias oLbx:aColSizes := { 100, 100 } oLbx:blDblClick := {|| ( nRecno := (cAlias)->( Recno() ),; oDlg:End() ) } REDEFINE BUTTON ID 100 OF oDlg ACTION oDlg:End() ...

... los campos del wBrowse, con lo siguiente: // redimension automatica campos wBrowse ElseIF oWnd:Classname() == "TWBROWSE" FOR nSize=1 TO LEN (oWnd:aColSizes) oWnd:AcolSizes[nSize] *= nFactorWitdh NEXT Aunque estoy trabajando con un sistema híbrido (el tuyo y el mio) y en este caso, como en el REDEFINE ...

ElseIF oWnd:Classname() == "TWBROWSE" AEval( oWnd:aColSizes, { | eCol | eCol = (eCol * nFactorWitdh) } ) Este nuevo condicional no lo he probado, creo que debería funcionar al menos para los TWBROSE. Carlos, En primer lugar, muchas gracias por tu ...

... ) AutResiz( lAutoresize, nWhatSize, oWnd:aDialogs[nContador], nResolution, .F. ) EndFor EndIf ElseIF oWnd:Classname() == "TWBROWSE" AEval( oWnd:aColSizes, { | eCol | eCol = (eCol * nFactorWitdh) } ) Else If ValType( oWnd:aControls ) = "A" For nContador := 1 To Len( oWnd:aControls ) AutResiz( ...

... [ COLUMN ] XBROWSE <oBrw> ; [ [ FIELDS ] <Flds,...>] ; [ ALIAS <cAlias> ] ; [ <sizes:FIELDSIZES, SIZES, COLSIZES> <aColSizes,...> ] ; [ <head:HEAD,HEADER,HEADERS> <aHeaders,...> ] ; [ SIZE <nWidth>, <nHeigth> ] ; [ <dlg:OF,DIALOG> ...

... oLbx:aHJustify :={HA_CENTER,HA_CENTER,HA_CENTER,HA_CENTER,HA_CENTER,HA_CENTER,HA_CENTER,HA_CENTER,HA_CENTER} oLbx:aColSizes := {170,80,85,80,85,110,92,85,130 } oLbx:bSkip = { | nRecs | oProex:Skipper( nRecs ) } oLbx:nLineStyle := 3 oLbx:lAdjlastcol:= .T. oLbx:nClrBackFocus ...

... // on indexed filters DATA lHitTop, lHitBottom, lCaptured, lMChange DATA lAutoEdit, lAutoSkip DATA lCellStyle AS LOGICAL INIT .f. DATA aHeaders, aColSizes DATA nClrBackHead, nClrForeHead DATA nClrBackFocus, nClrForeFocus DATA aJustify, aActions DATA oGet DATA nLineStyle DATA lIconView, aIcons, ...

... <nCol> XLISTBOX [ <oBrw> ] FIELDS [<Flds,...>] ; [ ALIAS <cAlias> ] ; [ <sizes:FIELDSIZES, SIZES, COLSIZES> <aColSizes,...> ] ; [ <head:HEAD,HEADER,HEADERS,TITLE> <aHeaders,...> ] ; [ SIZE <nWidth>, <nHeigth> ] ; [ <dlg:OF,DIALOG> ...

Peter,

My mistake. It is:

oBrowse:aColSizes = { 60, 700, 50 }

... ; HEADERS "Código","UF","Municipio" SIZE 275,137 OF oDlg oLbx:aColSizes :={60,100,200} oLbx:aJustify :={.T.,.F.,.F.} ENDIF oLbx:nLineStyle :=3 oLbx:nClrBackFocus:=RGB(227,255,104) oLbx:nClrForeFocus:=RGB(0,0,0) ...

... oBCliente:nColAct:=1 oBCliente:nLineStyle:=6 oBCliente:lCellStyle:=.T. oBCliente:nClrForeHead:=CLR_BLUE oBCliente:aColSizes := {80,260} oBCliente:bLDblClick:={|| Sol_Datos(.F.)} oBCliente:bKeyDown:={|nKey| Val_nKey(nKey,oBCliente)} oBCliente:aHeaders := cHCli oBCliente:bLine ...

... nro de columnas que sean necesarias mostrar. 2) Ajustar ::aHeaders y ::aFooters en el momento del cambio de agregar o quitar columnas 3) Ajustar ::aColSizes que nos define los anchos en pixeles de la columna. 4) Ajustar ::aJustify, ::aHJustify y ::aFJustify que guardan las alineaciones de columnas ...

... 250; OF oWndChild; FONT oFont; CURSOR oHand; COLOR CLR_BLACK, RGB( 255, 255, 235) ; UPDATE oBrw:bLine := bFields oBrw:aHeaders := aHeaders oBrw:aColSizes:= aTamanio oBrw:bLogicLen := { || oRs21:oRs:RecordCount } oBrw:bGoTop := { || oRs21:oRs:MoveFirst() } oBrw:bGoBottom := { || oRs21:oRs:MoveLast() ...

Ollie,

FWH function Browse() source code is located at source\function\browse.prg. There you will see that those actions have to be supplied as codeblocks when calling Browse():

function Browse( cTitle, cListName, bNew, bModify, bDelete, bSearch, bList, aColSizes )