Page 1 of 1
How can I increase RowHeight of TWBrowse ?
Posted: Fri Oct 28, 2005 2:25 pm
by Milan Mehta
Dear All,
How can I increase RowHeight of TWBrowse ?
How can I define Font to be used in TWBrowse ?
TIA
Milan.
Re: How can I increase RowHeight of TWBrowse ?
Posted: Fri Oct 28, 2005 4:33 pm
by Enrico Maria Giordano
1) You have to increase the font.
2) Use the FONT clause.
EMG
Posted: Fri Oct 28, 2005 8:12 pm
by 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,
Posted: Fri Oct 28, 2005 8:23 pm
by Enrico Maria Giordano
FWH standard TWBrowse does not support bFont, nHeaderHeight, nFooterHeight or nLineHeight.
EMG
Posted: Fri Oct 28, 2005 9:28 pm
by DanielPuente
Enrico/Milan:
The examples are for Hernan Ceccarelli's wbrowse class.
Regards,