FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Problem 2 txbrowse in 1 dialog
Posts: 1195
Joined: Mon Oct 17, 2005 05:41 AM
Problem 2 txbrowse in 1 dialog
Posted: Sat Oct 25, 2008 10:10 AM
Antonio,

Here is the stack-list

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

   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
Regards,

Marc



FWH32+xHarbour | FWH64+Harbour | BCC | DBF | ADO+MySQL | ADO+MariaDB | ADO+SQLite
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Problem 2 txbrowse in 1 dialog
Posted: 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
Posts: 1195
Joined: Mon Oct 17, 2005 05:41 AM
Problem 2 txbrowse in 1 dialog
Posted: 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

Regards,

Marc



FWH32+xHarbour | FWH64+Harbour | BCC | DBF | ADO+MySQL | ADO+MariaDB | ADO+SQLite
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Problem 2 txbrowse in 1 dialog
Posted: Sat Oct 25, 2008 12:09 PM

Marc,

Glad to know that you solved it :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion