Estoy intentando poner un TBROWSE en una ventana y me da el siguiente error:
- Application
===========
Path and name: C:\ColtHop\cyewin\cyewin.exe (32 bits)
Size: 4,285,952 bytes
Time from start: 0 hours 0 mins 24 secs
Error occurred at: 09/06/2009, 12:03:34
Error description: Error BASE/1004 Message not found: TMDICHILD:DEFCONTROL
Stack Calls
===========
Called from: tobject.prg => TMDICHILD:ERROR(172)
Called from: tobject.prg => TMDICHILD:MSGNOTFOUND(205)
Called from: tobject.prg => TMDICHILD:DEFCONTROL(0)
Called from: XBROWSE.PRG => TXBROWSE:CREATEFROMRESOURCE(0)
Called from: gestutil.prg => REALREST(1460)
Called from: gestutil.prg => GESTUTIL(19)
Called from: gestmenu.prg => OPCIMENU(512)
Called from: gestmenu.prg => SELMEN01(179)
Called from: gestmenu.prg => CONMEN01(63)
Called from: gestmenu.prg => (b)GESTMENU(47)
Called from: WINDOW.PRG => TWINDOW:KEYDOWN(0)
Called from: MDICHILD.PRG => TMDICHILD:KEYDOWN(0)
Called from: WINDOW.PRG => TWINDOW:KEYDOWN(0)
Called from: CONTROL.PRG => TSAY:KEYDOWN(0)
Called from: WINDOW.PRG => TWINDOW:KEYDOWN(0)
Called from: CONTROL.PRG => TSAY:KEYDOWN(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: CONTROL.PRG => TCONTROL:HANDLEEVENT(0)
Called from: SAY.PRG => TSAY:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
Called from: cyewin.prg => MAIN(253)
System
======
CPU type: Intel(R) Core(TM)2 CPU T5300 @ 1.73GHz 15683 Mhz
Hardware memory: 1022 megs
Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %
Compiler version: xHarbour build 0.99.71 Intl. (SimpLex)
Windows version: 5.1, Build 2600 Service Pack 2
Windows total applications running: 56
Variables in use
================
Procedure Type Value
==========================
TMDICHILD:ERROR
Param 1: C "Message not found"
Param 2: C "TMDICHILD"
Param 3: C "DEFCONTROL"
Param 4: N 1004
Local 1: U
Local 2: O Class: TMDICHILD
Local 3: N 13
TMDICHILD:MSGNOTFOUND
Param 1: C "DEFCONTROL"
Param 2: O Class: TMDICHILD
TMDICHILD:DEFCONTROL
Param 1: O Class: TXBROWSE
TXBROWSE:CREATEFROMRESOURCE
Param 1: N 100
Local 1: O Class: TXBROWSE
REALREST
GESTUTIL
Param 1: N 3
OPCIMENU
SELMEN01
CONMEN01
Param 1: N 13
(b)GESTMENU
Param 1: N 13
Param 2: N 1835009
TWINDOW:KEYDOWN
Param 1: N 13
Param 2: N 1835009
Local 1: O Class: TMDICHILD
Local 2: U
TMDICHILD:KEYDOWN
Param 1: N 13
Param 2: N 1835009
Local 1: O Class: TMDICHILD
TWINDOW:KEYDOWN
Param 1: N 13
Param 2: N 1835009
Local 1: O Class: TSAY
Local 2: U
TSAY:KEYDOWN
Param 1: N 13
Param 2: N 1835009
Local 1: O Class: TSAY
TWINDOW:KEYDOWN
Param 1: N 13
Param 2: N 1835009
Local 1: O Class: TSAY
Local 2: U
TSAY:KEYDOWN
Param 1: N 13
Param 2: N 1835009
Local 1: O Class: TSAY
TWINDOW:HANDLEEVENT
Param 1: N 256
Param 2: N 13
Param 3: N 1835009
TCONTROL:HANDLEEVENT
Param 1: N 256
Param 2: N 13
Param 3: N 1835009
Local 1: O Class: TSAY
TSAY:HANDLEEVENT
Param 1: N 256
Param 2: N 13
Param 3: N 1835009
Local 1: O Class: TSAY
_FWH
Param 1: N 1835009
Param 2: N 256
Param 3: N 13
Param 4: N 1835009
Param 5: N 25
Local 1: O Class: TSAY
WINRUN
Param 1: N 1705940
TMDIFRAME:ACTIVATE
Param 1: C "MAXIMIZED"
Param 2: U
Param 3: U
Param 4: U
Param 5: U
Param 6: U
Param 7: U
Param 8: B {|| ... }
Param 9: U
Param 10: U
Param 11: U
Param 12: U
Param 13: U
Param 14: U
Param 15: U
Param 16: U
Param 17: B {|| ... }
Param 18: U
Param 19: U
Local 1: O Class: TMDIFRAME
Local 2: U
Local 3: U
MAIN
Param 1: C "3"
Linked RDDs
===========
DBF
DBFCDX
DataBases in use
================
98: => EMPRES RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
1 2 .F. .F.
Indexes in use TagName
Relations in use
Classes in use:
===============
1 HASHENTRY
2 HBCLASS
3 HBOBJECT
4 TFONT
5 TCURSOR
6 TWINDOW
7 TCONTROL
8 TBITMAP
9 TBRUSH
10 TMDIFRAME
11 TMENU
12 TMENUITEM
13 TICON
14 TMDICLIENT
15 TMSGBAR
16 TRECT
17 TMSGITEM
18 TTIMER
19 TMDICHILD
20 TSAY
21 TSBUTTON
22 ERROR
23 TDIALOG
24 TXBROWSE
25 TXBRWCOLUMN
26 TREG32
Memory Analysis
===============
146 Static variables
Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes
Code: Select all
oBrw := TxBrowse():New( oDlgwVen )
oBrw:nHeaderLines := 1
oBrw:lAllowColSwapping := .f.
oBrw:nRowHeight := 18
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:lColDividerComplete := .t.
oBrw:lHScroll := .f.
oBrw:lFooter := .t.
oBrw:bLDblClick := { || realrest1(2) }
oBrw:nTop := 5*ProPorV
oBrw:nLeft := 5*ProPorH
oBrw:nBottom := 144*ProPorV
oBrw:nRight := 235*ProPorH
oBrw:nClrPane := { || IIF( ( oBrw:cAlias)->( OrdKeyNo()) %2 == 1, RGB ( 0,255, 0),RGB (225,225,225))}
oBrw:bClrStd := { ||{escri01, IIF( ( oBrw:cAlias )->( OrdKeyNo() ) %2 == 0,fondo02,fondo01 ) }}
oCol := oBrw:AddCol() // linea 1
oCol:cHeader := zCab01
oCol:bStrData := { || empres->numero }
oCol:nWidth := 70*ProPorH
oCol:nDataStrAlign := AL_RIGHT
oCol:nHeadStrAlign := AL_RIGHT
oCol:lAllowSizing :=.F.
oCol := oBrw:AddCol() // linea 2
oCol:cHeader := zCab02
oCol:bStrData := { || alltrim(empres->apellidos) + " " + empres->nombre }
oCol:nWidth := 400*ProPorH
oCol:nDataStrAlign := AL_LEFT
oCol:nHeadStrAlign := AL_LEFT
oCol:lAllowSizing :=.F.
oBrw:SetRdd()
oBrw:CreateFromResource ( 100 )
Alguien me podria ayudar.
Gracias