nageswaragunupudi wrote:The above sample shows usage of oCol:bPaintText.

This offers total flexibility to the programmer and he can paint any cell in his own way.

There is another feature where two or more columns can be painted in a single cell.
By specifying something like
oBrw:aCols[ 1 ]:SetColsAsRows( 1, 2, 3 ), contents of columns 1,2,3 are painted as 3 rows in column 1 and columns 2 and 3 are not displayed. We can specify different fonts, colors, alignment, etc to these columns as usual, except that they are painted under one another as subrows of the cell instead of showing in adjacent columns.

Now let us apply formatting to the columns. Every 3rd columns has the same formatting.
For this just comment the line of code in the above sample

Code (fw): Select all Collapse

//         :aCols[ i ]:SetColsAsRows( i, i + 1, i + 2 )

         :aCols[ 1 ]:SetColsAsRows( 1, 2 )

Mr Rao
You can do what you explain if a column is text and the next column is an image?

function TextoVertical()

   local oDlg, oBrw, nCol, oVert

   aImg     := ReadImages( "C:\\FWH\\FWH1203\\BITMAPS\\" )

  DEFINE FONT oVert NAME "SEGOE UI" SIZE 0,-12 NESCAPEMENT 900 //BOLD
                        // 522,560
   DEFINE DIALOG oDlg SIZE 500,540 PIXEL
   @ 10,10 XCBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
      AUTOCOLS ARRAY aImg CELL NOBORDER   //LINES

   for nCol := 1 to 5 step 2
      WITH OBJECT oBrw:aCols[ nCol + 1 ]
         :nWidth        := 120
         :cDataType     := 'F'
         :nDataBmpAlign := AL_CENTER
      END
      WITH OBJECT oBrw:aCols[ nCol ]
         :oDataFont     := oVert
         :nWidth        := 24 //24
         :bPaintText    := { | oCol, hDC, cData, aRect, aColors, lHighLite | ;
                           DrawVertText( oCol, hDC, cData, aRect, aColors, lHighLite ) }
      END
      oBrw:aCols[ nCol ]:SetColsAsRows( nCol, nCol, nCol+1 )
      
   next  nCol

   WITH OBJECT oBrw
      :lHScroll         := .F.
      :nRowHeight       := 120
      :lRecordSelector  := .F.

      :CreateFromCode()
   END

   ACTIVATE DIALOG oDlg CENTERED

return (0)

Mr. Rao
En este ejemplo, obtengo error al ejecutar el programa cuando pongo el codigo

In this example, I get error when running the program when I put the code

      oBrw:aCols[ nCol ]:SetColsAsRows( nCol, nCol, nCol+1 )

Time from start: 0 hours 0 mins 1 secs
Error occurred at: 17/09/2013, 20:40:33
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N 0

Stack Calls

Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE( 529 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:COLATPOS( 0 )
Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE( 531 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:SELECTEDCOL( 0 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT( 1275 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY( 1253 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1666 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 11630 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3159 )

Si no pongo la funcion SetColsAsRows( , el programa funciona correctamente

If you put the function SetColsAsRows (the program works correctly

En qué me estoy equivocando?
Gracias

In what I'm wrong?
thanks

1) Parameters should be ( nCol, nCol + 1 ) not ( nCol, nCol, nCol + 1 )

When you use this option, please do not use vertical fonts and also do not use bpainttext

2) When you specify vertical fonts xbrowse paints vertically. But you need to set columns nWidth and nHeight manually.