Problem 2 txbrowse in 1 dialog

Postby Marc Vanzegbroeck » Sat Oct 25, 2008 10:10 am

Antonio,

Here is the stack-list

Code: Select all  Expand view
Application
===========
   Path and name: c:\FWH\Projects\EasyFact\xProgram\planmag\PLANMAG.exe (32 bits)
   Size: 3,149,312 bytes
   Time from start: 0 hours 0 mins 2 secs
   Error occurred at: 25/10/08, 12:05:51
   Error description: Error BASE/1004  Message not found: TXBROWSE:RDDSETDEFAULT

Stack Calls
===========
   Called from: tobject.prg => TXBROWSE:ERROR(172)
   Called from: tobject.prg => TXBROWSE:MSGNOTFOUND(205)
   Called from: tobject.prg => TXBROWSE:RDDSETDEFAULT(0)
   Called from: PLANNING.PRG => PLANNING(102)
   Called from: PLANMAG.PRG => (b)HAALMENU(40)
   Called from: TOOLBAR.PRG => TTOOLBAR:COMMAND(0)
   Called from: WINDOW.PRG => TWINDOW:COMMAND(0)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: WINDOW.PRG => _FWH(0)
   Called from:  => WINRUN(0)
   Called from: WINDOW.PRG => TWINDOW:ACTIVATE(0)
   Called from: MMENU.PRG => MMENU(124)
   Called from: EASYFACT.PRG => EASYFACT(128)
   Called from: PLANMAG.PRG => PLM(3)



This is a piece of the prg

Code: Select all  Expand view
   vGetlist[3] := TXBrowse():New( oDlg )

   oCol := vGetlist[3]:AddCol()
   oCol:bStrData      := { || dag->mecanic_01}
   oCol:cHeader       := planmec->naam01
   oCol:nWidth        := 100
   oCol:lAllowSizing  := .f.

   oCol := vGetlist[3]:AddCol()
   oCol:bStrData      := { || dag->mecanic_02}
   oCol:cHeader       := planmec->naam02
   oCol:nWidth        := 100
   oCol:lAllowSizing  := .f.

   oCol := vGetlist[3]:AddCol()
   oCol:bStrData      := { || dag->mecanic_03}
   oCol:cHeader       := planmec->naam03
   oCol:nWidth        := 100
   oCol:lAllowSizing  := .f.

   oCol := vGetlist[3]:AddCol()
   oCol:bStrData      := { || dag->mecanic_04}
   oCol:cHeader       := planmec->naam04
   oCol:nWidth        := 100
   oCol:lAllowSizing  := .f.

   oCol := vGetlist[3]:AddCol()
   oCol:bStrData      := { || dag->mecanic_05}
   oCol:cHeader       := planmec->naam05
   oCol:nWidth        := 100
   oCol:lAllowSizing  := .f.

   oCol := vGetlist[3]:AddCol()
   oCol:bStrData      := { || dag->mecanic_06}
   oCol:cHeader       := planmec->naam06
   oCol:nWidth        := 100
   oCol:lAllowSizing  := .f.

   oCol := vGetlist[3]:AddCol()
   oCol:bStrData      := { || dag->mecanic_07}
   oCol:cHeader       := planmec->naam07
   oCol:nWidth        := 100
   oCol:lAllowSizing  := .f.

   oCol := vGetlist[3]:AddCol()
   oCol:bStrData      := { || dag->mecanic_08}
   oCol:cHeader       := planmec->naam08
   oCol:nWidth        := 100
   oCol:lAllowSizing  := .f.

   oCol := vGetlist[3]:AddCol()
   oCol:bStrData      := { || dag->mecanic_09}
   oCol:cHeader       := planmec->naam09
   oCol:nWidth        := 100
   oCol:lAllowSizing  := .f.

   oCol := vGetlist[3]:AddCol()
   oCol:bStrData      := { || dag->mecanic_10}
   oCol:cHeader       := planmec->naam10
   oCol:nWidth        := 100
   oCol:lAllowSizing  := .f.

   vGetlist[3]:lAllowRowSizing     := .f.
   vGetlist[3]:nRowHeight          := 20
   vGetlist[3]:nMarqueeStyle       := MARQSTYLE_HIGHLCELL
   vGetlist[3]:nColDividerStyle    := LINESTYLE_LIGHTGRAY
   vGetlist[3]:nRowDividerStyle    := LINESTYLE_LIGHTGRAY

   vGetlist[3]:SetRDD()  <---LINE 102!!!!!!!!!!!!!!!
   vGetlist[3]:CreateFromResource( 101 )



Regards,
Marc
Marc Vanzegbroeck
 
Posts: 1159
Joined: Mon Oct 17, 2005 5:41 am
Location: Belgium

Postby Antonio Linares » Sat Oct 25, 2008 10:14 am

Marc,

Please look for RDDSETDEFAULT in your fwh\source\classes\xbrowse.prg file. Lets see where it is. thanks
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42080
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Marc Vanzegbroeck » Sat Oct 25, 2008 10:45 am

Antonio, Uwe,

Thanks for your support. I found the problem.
I'am really embarrassed for my stupid mistake. :oops:

There was a left-over include file that called the sixnsx2.ch and the machsix.ch-file. I must have done some copy-paste from my 16-bit programs and forgot to delete it.

Sorry for wasting your time.

Best regards,
Marc
Marc Vanzegbroeck
 
Posts: 1159
Joined: Mon Oct 17, 2005 5:41 am
Location: Belgium

Postby Antonio Linares » Sat Oct 25, 2008 12:09 pm

Marc,

Glad to know that you solved it :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42080
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Previous

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 95 guests