Alto del renglón en XBrowse? (SOLUCIONADO)

[Armando]

Hola foreros:

Parece que hoy me desperté con el espíritu de molestar

Hay forma de especificar que el alto del renglón en xBrowse se auto ajuste
si se trata de un campo tipo MEMO?, de forma tal que todo el contenido
del campo se muestre en la columna.

Saludos

[nageswaragunupudi]

We need to manually specify the row height.
All rows will have the same height.

[Armando]

Mr. Rao:

thank you for your quick response

With best regards

[FranciscoA]

Armando.
Estoy de acuerdo con lo que dice Rao.

Según el ejemplo siguiente que he preparado tomando y modificando código de Rao, puedes ajustar automáticamente la altura de las líneas, según la celda que contenga la mayor cantidad de lineas (Memo).
Espero te sea útil.

Code: Select all  Expand view

//-----------------------------------------------//
Function BrwImagen2()
   local oDlg, oBrw, oFont, oBold

   DEFINE FONT oFont NAME "TAHOMA"  SIZE 0,-12
   DEFINE FONT oBold NAME "VERDANA" SIZE 0,-13 BOLD

   USE "C:\FWH1709\SAMPLES\WWONDERS" NEW

   DEFINE DIALOG oDlg SIZE 800,600 TITLE "Image and Text in same cell" PIXEL TRUEPIXEL
   oDlg:SetFont( oFont )

   @ 0,0 XBROWSE oBrw OF oDlg DATASOURCE "WWONDERS" ;
      COLUMNS "NAME","DETAILS" COLSIZES 200, 250 ;
      LINES NOBORDER

   WITH OBJECT oBrw
      :nRowHeight := 140
      WITH OBJECT :aCols[ 1 ]
         :bStrImage     := { || FIELD->IMAGE }
         :oDataFont     := oBold
         :nDataStrAlign := AL_CENTER + AL_BOTTOM
         :nDataBmpAlign := AL_CENTER
         :aImgRect      := { nil, nil, -40, nil }
      END
      WITH OBJECT :aCols[ 2 ]
         :nWidth        := 400
      END
      //
      :CreateFromCode()
   END

   oDlg:oClient   := oBrw
   oDlg:nHeight   := 700

   ACTIVATE DIALOG oDlg CENTERED ON INIT AjustAltoLinea(oBrw)

   RELEASE FONT oFont, oBold
   WWONDERS->(DbCloseArea())

return nil

//-----------------------------------------------// Ajustar altura de linea
Function AjustAltoLinea(oBrw)
   local n, nL:= 1, nHt := oBrw:oFont:nHeight + 4

   For n := 1 to oBrw:nLen
      nL := Max( MLCount( oBrw:aCols[2]:Value ), nL )  
      oBrw:GoDown()
   Next

   oBrw:nRowHeight := ( nL * nHt)
Return nil  
 

Saludos.

[Armando]

Francisco:

Muchas gracias, voy a intentarlo.

Un abrazo