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.
//-----------------------------------------------//
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.
Francisco J. Alegr铆a P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql
