How can I increase RowHeight of TWBrowse ?

[Milan Mehta]

Dear All,

How can I increase RowHeight of TWBrowse ?

How can I define Font to be used in TWBrowse ?

TIA
Milan.

[Enrico Maria Giordano]

1) You have to increase the font.

2) Use the FONT clause.

EMG

[DanielPuente]

Milan:

DEFINE FONT oFont NAME "ARIAL" SIZE 0,-9 DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-9 BOLD
DEFINE FONT oFont5 NAME "ARIAL" SIZE 0,-12 BOLD

You can:

-Define a font to use with the browse:

REDEFINE LISTBOX oBrwMov fields ID 999 OF oDlg ;
ALIAS (cALIAS) FONT oFont;
COLOR CLR_BLACK, CLR_WHITE UPDATE ON RIGHT CLICK RMENU(oDlg);
ON DBLCLICK IF(oBrwMov:nColAct > 0,oBrwMov:Edit(oBrwMov:nColAct,.t.),)

-Define another font for a specific column:

oBrwMov:bFont:={|nRow,nCol,nStyleLine| IF((nStyleLine==1.or.nStyleLine==0).and.(nCol==5.or.ncol==6.or.ncol==7),oFont5:hFont,;
IF(nStyleLine==2,oFont5:hFont,)) }

-Use diferent height of headers, rows or footers:

oBrwMov:nHeaderHeight:= 32
oBrwMov:nFooterHeight:= 25
oBrwMov:nLineHeight:= 16

And more... Read the header of wbrowse.prg

Regards,

[Enrico Maria Giordano]

FWH standard TWBrowse does not support bFont, nHeaderHeight, nFooterHeight or nLineHeight.

EMG

[DanielPuente]

Enrico/Milan:

The examples are for Hernan Ceccarelli's wbrowse class.

Regards,