FiveTech Support Forums

Dear All,

How can I increase RowHeight of TWBrowse ?

How can I define Font to be used in TWBrowse ?

TIA
Milan.

1) You have to increase the font.

2) Use the FONT clause.

EMG

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,

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

EMG

Enrico/Milan:

               The examples are for Hernan Ceccarelli's wbrowse class.

Regards,