I am getting a run time error after I upgrade from 9.05 to 9.06.
Please try the code below.
Regards,
Birol BETONCU
Please try the code below.
Regards,
Birol BETONCU
#INCLUDE "FiveWin.ch"
#INCLUDE "xbrowse.ch"
FUNCTION Main()
LOCAL oWnd, oLbx, oCol
USE CLIENTS
DBGoTop()
DEFINE WINDOW oWnd PIXEL FROM 5, 5 TO 500,280
oLbx := TXBrowse():New( oWnd )
oLbx:lRecordSelector := .F.
oLbx:nMarqueeStyle := MARQSTYLE_HIGHLROW
oLbx:nColDividerStyle := LINESTYLE_LIGHTGRAY
oLbx:nRowDividerStyle := LINESTYLE_LIGHTGRAY
oLbx:lColDividerComplete := .T.
oLbx:lHScroll := .F.
oCol:=oLbx:AddCol()
oCol:bStrData := { || CLIENTS->name }
oCol:cHeader := "Name"
oCol:nWidth := 40
oCol:=oLbx:AddCol()
oCol:bStrData := { || CLIENTS->adress }
oCol:cHeader := "Address"
oCol:nWidth := 210
oLbx:SetRDD()
oLbx:CreateFromCode()
oLbx:bKeyChar := { |nKey| IF( nKey==VK_ESCAPE, oWnd:End(), nKey ) }
oWnd:oClient := oLbx
ACTIVATE WINDOW oWnd ON INIT oLbx:SetFocus() VALID (CLIENTS->(DBCloseArea()), .T.)
RETURN NIL
