I need to expand the data fields when I Maximized the data in that routine :
function ClientsBrowse()
local oDlg, oDbf, oBrw
USE CUST
DATABASE oDbf
DEFINE DIALOG oDlg RESOURCE "Browse"
REDEFINE LISTBOX oBrw ;
FIELDS oDbf:cu_acct,oDbf:cu_Name,oDbf:cu_Addr,oDbf:cu_PHON , oDbf:cu_FAX , oDbf:cu_MAN , oDbf:cu_MOBI , oDbf:cu_APPR;
HEADERS "Account_no","Name","Address","Phone","Fax","Man","Mobile","Appreviation" ;
SIZES 250, 300, 300, 300, 300, 300, 300 ;
ID 110 OF oDlg
oBrw:bSkip = { | nRecs | oDbf:Skipper( nRecs ) }
ACTIVATE DIALOG oDlg CENTERED
return nil