How to make an xbrowse MDI-child filled with an array?

[gkuhnert]

Hello,

I have following code and get an error:

Code: Select all  Expand view

FUNCTION XBrowseArray()
LOCAL oWin2
local aKommlief := {{"a","b"},{"c","d"}}
local olb2

  DEFINE WINDOW oWin2 MDICHILD TITLE "XBrowse Test"

   olB2:=TXBrowse():New( oWin2 )
   olB2:SetArray( aKommLief, .t. )
   olB2:createfromcode()

   ACTIVATE WINDOW oWin2

return .t.


and get following Error:

Application
===========
Path and name: d:\cto_win\eho40\eho.exe (32 bits)
Size: 4,378,624 bytes
Time from start: 0 hours 0 mins 3 secs
Error occurred at: 30.01.2009, 14:02:05
Error description: Error FiveWin/6 Cannot create window or control:
Class: TXBROWSE
Caption:
System Error: Fensterklasse wurde nicht gefunden.


Stack Calls
===========
Called from: .\source\classes\WINDOW.PRG => WNDCREATEERROR(0)
Called from: .\source\classes\WINDOW.PRG => TXBROWSE:CREATE(0)
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:CREATEFROMCODE(0)
Called from: AD_MAIN.prg => XBROWSEARRAY(1937)
Called from: AD_MAIN.prg => (b)SHOWPOPUP(396)
Called from: .\source\classes\MENU.PRG => TMENU:ACTIVATE(0)
Called from: AD_MAIN.prg => SHOWPOPUP(431)
Called from: AD_MAIN.prg => (b)E_ADRESSEN(119)
Called from: .\source\classes\WINDOW.PRG => TCONTROL:RBUTTONDOWN(0)
Called from: .\source\classes\XBROWSE.PRG => TCTOXBROWSE:RBUTTONDOWN(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TCTOXBROWSE:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
Called from: EHO.prg => MAIN(670)

[Daniel Garcia-Gil]

Hello gkuhnert

Your problem not is xbrowse is window creating

what is the MDI Windows of oWin2 (MDICHILD) ?
you do need put it
OF window MDI
example
DEFINE WINDOW oWin2 MDICHILD TITLE "XBrowse Test" OF oWndMDI