Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Error E0054 Create Tbrowse Object xBuild
59 views
Skip to first unread message
Darkwood
Oct 30, 2012, 7:06:37 PM10/30/12
to
Hi all!
I'm really new to xHarbour and am trying to port my Clipper app (it turns 20 in February & still amkes me money!).
/Snippet:
static function paybrow(items)
local len:=len(items)
local loc,nkey
local list,key,col,j,k,dexit:=.F.//,awidth:={}
local width,mrow,mcol//,element:=1//,lens:=slens
local x:=1,collength:=len(items)
local cursecs,now
static delay,closesecs
if delay=NIL
delay:=config(x_delay)
closesecs:=config(x_closesecs)
endif
#include "inkey.ch"
#ifndef K_SPACE
#define K_SPACE 32
#endif
#ifndef K_CTRL_ENTER
#define K_CTRL_ENTER 10
#endif
// This will be our "element pointer".
element:=1
// General browse setup.
list:=TBrowseNew(3, 1, collength+5,79)
list:headSep := chr(196)+chr(194)+chr(196)//"ÄÂÄ"
list:colSep := " "+chr(179)+" "//" ³ "
\end snippet
This produces "Error E0054 WITH Message [HEADSEP] with no WITH OBJECT in sight"
Works in clipper...
What am I doing wrong?
I'm really new to xHarbour and am trying to port my Clipper app (it turns 20 in February & still amkes me money!).
/Snippet:
static function paybrow(items)
local len:=len(items)
local loc,nkey
local list,key,col,j,k,dexit:=.F.//,awidth:={}
local width,mrow,mcol//,element:=1//,lens:=slens
local x:=1,collength:=len(items)
local cursecs,now
static delay,closesecs
if delay=NIL
delay:=config(x_delay)
closesecs:=config(x_closesecs)
endif
#include "inkey.ch"
#ifndef K_SPACE
#define K_SPACE 32
#endif
#ifndef K_CTRL_ENTER
#define K_CTRL_ENTER 10
#endif
// This will be our "element pointer".
element:=1
// General browse setup.
list:=TBrowseNew(3, 1, collength+5,79)
list:headSep := chr(196)+chr(194)+chr(196)//"ÄÂÄ"
list:colSep := " "+chr(179)+" "//" ³ "
\end snippet
This produces "Error E0054 WITH Message [HEADSEP] with no WITH OBJECT in sight"
Works in clipper...
What am I doing wrong?
0 new messages