FiveTech Support Forums

METHOD PaintData( nRow, nCol, nHeight, lHighLite, lSelected, nOrder, nPaintRow ) CLASS TXBrwColumn

   local oCol, n, nDataHeight

   if nCol != nil
      ::nDisplayCol := nCol
   else
      nCol := ::nDisplayCol
   endif
   if ::oBrw:lTransparent .and. Empty( ::oBrw:nRowDividerStyle )      //nuevo, agregado
      nHeight     -= ROW_EXTRAHEIGHT
   endif      //<---  ESTA ES LA LINEA 9690                                        //fin nuevo, agregado
   nDataHeight    := If( Empty( ::aRows ), nHeight, IfNil( ::nCellHeight, ::DataHeight() ) )
   ::PaintCell( nRow, nCol, nDataHeight, lHighLite, lSelected, nOrder, nPaintRow )
   ...
   ...

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

    WITH OBJECT oBrw
      :nRowHeight    := 50  //altura de lineas  //CON ESTE AQUI, HARBOUR DA ERROR
    END

#include "FiveWin.ch"
#include "XBROWSE.ch"

//-------------------------
FUNCTION MAIN()
LOCAL oDlg, oBrw
local cAlias,n
local aGradBarSel:= { { 1, RGB(252,232,171)  , RGB(248,220,120) } }
local aGradRowSel:= {{1, RGB(158,175, 194), RGB(130,160,224)}}

  DBUSEAREA(.T.,,"CLIENTES","CLIENTES",.T.)   //en samples
  cAlias:=Alias()

  DEFINE DIALOG oDlg SIZE 500,600 PIXEL TITLE "PRUEBA"

   @2,.50 XBROWSE oBrw OF oDlg ;
      ALIAS cAlias ;
      AUTOCOLS CELL LINES FOOTERS 

     oBrw:CreateFromCode()

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

    WITH OBJECT oBrw
      :nFreeze       := 1
      :nMarqueeStyle := MARQSTYLE_HIGHLROW  
      :bClrSel       := {|| { nRGB(  0,  0,  0), aGradRowSel } } 
      :bClrSelFocus  := { || { CLR_BLACK, aGradBarSel } } 
      :lKinetic      := .f.
      :lContrastClr  := .f.  
      :nRowHeight    := 50  //altura entre lineas  //CON ESTE AQUI, HARBOUR DA ERROR
      :nColDividerStyle:=LINESTYLE_LIGHTGRAY
      :nRowDividerStyle:=LINESTYLE_LIGHTGRAY

      For n := 1 to len(:aCols)
        :aCols[n]:nHeadStrAlign := AL_CENTER
      Next

      //SUPER HEADERS
      :SetGroupHeader( "DATOS PRINCIPALES", 1,3 )
      :SetGroupHeader( "DATOS RESTANTES",  4,6 ) 
    END

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT ( oBrw:SetSize(oDlg:nWidth()-26,oDlg:nHeight()-100) ) //,;
//                oBrw:nRowHeight := 50 )  //PONIENDOLO AQUI TRABAJAN BIEN, AMBOS.

   DBCLOSEALL()

RETURN NIL

.../...
oBrw:CreateFromCode()

    WITH OBJECT oBrw
     // :nRowHeight    := 50  //altura entre lineas  //CON ESTE AQUI, HARBOUR DA ERROR
    END

WITH OBJECT oBrw
      :nRowHeight    := 50  //altura entre lineas  //con xHarbour no hay problema
 END

  WITH OBJECT oBrw
     // :nRowHeight    := 50  //altura entre lineas  //CON ESTE AQUI, HARBOUR DA ERROR
    END