FiveTech Software tech support forums

oXBrowse:SelectedCol() --> oColumn

oXBrowse:nAt --> nColumnPosition // OJO: Posición en las columnas visualizadas

Es interesante ver el código del método nAt():
METHOD nAt() INLINE ::ColPos( ::SelectedCol() )

oColumn:nCreationOrder es el índice de columna cuando se creó

... Datos //--------------------------------------------------------------------------// Function CreaBases(cBase) Local oCatalog Local oTable Local oColumn Local oKey cBase := Alltrim(cBase)+".mdb" lMKDir("Data") If !File(".\Data\"+cBase) oCataLog := CreateObject("ADOX.Catalog") ...

Jack,

You can use oColumn:bPaintText to draw the cell contents the way you want

Here you can review an example of the bPaintText use:
viewtopic.php?p=119618#p119618

Usalo con oColumn, asi puedes definir los tamaños, posiciones y cantidades de columnas que quieres mostrar, es decir las manejas a tu antojo... oBrw:aCols[3]:cHeader := 'Precio' oBrw:aCols[3]:cEditPicture := '9999.99' oBrw:aCols[3]:bClrEdit ...

... y una función más, DrawFrameControl() (escrita en C), se puede dotar a una columna de la propiedad de mostrar checkboxes, sólo haciendo oColumn:lCheckbox:=.T. Agrego el código de modificar tXBrowse para este objetivo. Como evito cambiar los códigos fuentes originales, lo hago a través ...

... aColSizes[ nJ ], -1), ; if( cPicture == nil, ; If( lBitMap, If( ! Empty( ::aBitmaps ),; ::aBitmaps[ uData ], uData ), ; cValToChar( Eval( oColumn:bData ) ) ), ; Transform( uData, cPicture ) ), ; oColumn:nAlign, ; nClrFore, ; If( lFocused .or. lNoLite,; nClrBack,; If( ::lCellStyle, If( ...

... bLDblClick, bRClick, oFont,; oCursor, nClrFore, nClrBack, cMsg, lUpdate,; uAlias, bWhen, lCellBrw, bLClick, aLine ) CONSTRUCTOR METHOD AddColumn( oColumn ) METHOD AddSuperHead( nFromCol, nToCol, uHead, nHeight, aColors, l3dLook, ; uFont, uBitMap, lAdjust, lTransp, lGrid, nHAlign, ; nVAlign ) METHOD ...

oColumn:oHeaderFont := oNewFont
oBrowse:Refresh()

Uwe,

oBrowse:SetFont( oFont )

oBrowse:SelFont()

oColumn:oDatafont := [ oFont | codeblock ]

oXBrowse:SelectedCol() --> oColumn

oXBrowse:nAt --> nColumnPosition // OJO: Posición en las columnas visualizadas

Es interesante ver el código del método nAt():
METHOD nAt() INLINE ::ColPos( ::SelectedCol() )

oColumn:nCreationOrder es el índice de columna cuando se creó

... My purpose is to build the reports from data definitions on DBFs not that my customers design them. For example: oReport:Title := "Title" oColumn[1]:header := "Name" oColumn[1]:data := {|| (Field)} . . . etc. Thank you very much for your help.

... de Clientes" preview COLUMN DATA (oDbf:cAlias)->(&(aImprimo[nAt])) END REPORT Ahora probé tratando de hacerlo usando oReport:AddColumn(oColumn ) y luego tratando de utilizar trcolumn, pero realmente no doy con la forma de programarlo. Necesito me orientaran en como realizarlo. El asunto ...

... },; ::odbf:=oQuery return nil METHOD Report( cTitle, lPreview, aHeaders, aFooters, oFont,cCaption, lModal ) CLASS TXBrowse Local oRpt, oColumn, nRecNo, nI, nAt, cType, lNoResetPos, ; nCols := Len( ::acols ), ofont2,ofont3,nRpos,oldbskip:=::bskip local odevice,cmsg:={"打印","日期","时间","第","页"},i ...