FiveTech Software tech support forums

Ricardo Ramirez E. wrote:Hola..
El control TWbrowse tiene una data con identificador aColSizes

Code: Select all  Expand view

aColsizes:={10, 200, 220}

gracias.

Hola..
El control TWbrowse tiene una data con identificador aColSizes

Code: Select all  Expand view

aColsizes:={10, 200, 220}

... text, width of column) Currently i just create a string containing the columns and then after the redefine i populate the oBrw:aHeaders and oBrw:aColSizes arrays. Can someone advise me how to do this using txBrowse? >> for n := 1 to nCols oCol := oBrw:AddCol() oCol:cHeader := <your header> ...

... text, width of column) Currently i just create a string containing the columns and then after the redefine i populate the oBrw:aHeaders and oBrw:aColSizes arrays. Can someone advise me how to do this using txBrowse? 2. All my browses use a resource dialog, which i then resize the width based ...

Bueno.... Ya lo heche a andar (mas o menos). Tenia un error en el codigo que me proporcionaste (estaba definiendo a oLbx:ColSizes, en vez de oLbx:aColSizes). Ahora se muestra todo. Me muestra el wbrose con los datos, pero al final de mostrarlo me da el error de que la variable oLbx no existe. No ...

... nAt:= oLbx:nAt, ; If( Len(aDatos)<1 .or. nAt>Len(aDatos),; Array(2), ; { aDatos[nAt,1], ; aDatos[nAt,2] } ) } oLbx:SetArray( aDatos) oLbx:aColSizes:= {90, 220 } oLbx:aHeaders := { "Codigo", "Nombre" } oLbx:aJustify := { .t., .f. } .... tus definiciones. Pd. aDatos -> ...

... TXBROWSE e TCBROWSE, não obtive exito: :( ElseIF oWnd:Classname() == "TWBROWSE" .or. oWnd:Classname() == "TXBROWSE" FOR nContador=1 TO LEN (oWnd:aColSizes) oWnd:AcolSizes[nContador] *= nRancho NEXT O Sr. Acha que seria possível com estes dois browses?

... 1 To Len( oWnd:aDialogs ) Auto800( oWnd:aDialogs[nContador], .F. ) EndFor EndIf ElseIF oWnd:Classname() == "TWBROWSE" FOR nContador=1 TO LEN (oWnd:aColSizes) oWnd:AcolSizes[nContador] *= nRancho NEXT ElseIF oWnd:Classname() == "TCOMBOBOX" Else If ValType( oWnd:aControls ) = "A" // dialogo For nContador ...

... Free Image and File Hosting at MediaFire"></a> DEFINE FONT oFnt NAME "Ms Sans Serif" SIZE 0,-12 BOLD oBCos:aActions := Array( Len( oBCos:aColSizes ) ) oBCos:aActions[ 2 ] := {|| (oDCos)->(OrdSetFocus("CUENTA")), ; oBCos:aHeaders[ 2 ] := "CUENTA" , ; oBCos:aHeaders[ 3 ] := "N o m b ...

... // array with bitmaps handles DATA aDefault AS ARRAY INIT {} // default values in append mode DATA aClipBoard // used by RButtonDown method DATA aColSizes, aColumns, aHeaders // the core of TSBrowse DATA aDefValue AS ARRAY INIT {} // for array in append mode DATA aIcons AS ARRAY INIT {} // array ...

... the mousemove method inside wbrowse to counter this behaviour. METHOD MouseMove( nRow, nCol, nKeyFlags ) CLASS TWBrowse local nColPos := 0 local aColSizes := ::GetColSizes() if ::lDrag return Super:MouseMove( nRow, nCol, nKeyFlags ) endif if ::lCaptured CursorWE() ::VertLine( nCol ) return 0 ...

... // si se da Esc o F2 o KUp en lEditCol... lContinue es .f. EndIf // otras columnas…… *?"205 FinCol4",lContinue,lFirstEdit Case nCol==len(oLbx:aColSizes) .and. Len(T)==nAt .and. ; // Ult Col y Ult Fila ! lFirstEdit AL721AdiTab( .f. ) &&' adiciona reg al final EndCase ?"253 EndCase",nat,nCol,lContinue,lFirstEdit ...

... , ( cAlias )->almacen ; HEADERS "Nume ", "Ubicacion" ,"Existen.", "Articulo","Descripcion", " Referencia","Almacen" ; ID 500 OF oDlg oLbx:aColSizes := { 40, 50,50,50, 50,70,50,40 } oLbx:blDblClick := {|| ( nRecno := (cAlias)->( Recno() ),; oDlg:End() ) } REDEFINE BUTTON ID 110 OF oDlg ...

... <aHeaders,...> ] ; [ <field:FIELDSNAMES,FIELDS,COLUMNS> <aColumns,...> ] ; [ <sizes:FIELDSIZES, SIZES, COLSIZES> <aColSizes,...> ] ; [ RETURN <cField> ]; [ SIZE <nWidth>, <nHeight> ] VAR <uBuscador> Sera la variable que almacena el contenido ...

... ])->ingprod ; HEADERS "NOMBRE", "REFERENCIA", "USO" FONT oFont2; ID 500 OF o[ O_DLG_INVE ] ALIAS aDbf[ DBF_ARTICULOS ] o[ O_LBX_INVE ]:aColSizes := { 80, 80, 40 } o[ O_LBX_INVE ]:blDblClick := {|| ( nRecno := (aDbf[ DBF_ARTICULOS ])->( Recno() ), o[ O_DLG_INVE ]:end()) } o[ O_LBX_INVE ...