Error con workshop

[norte_67]

Amigos, estoy tratando de crear un dialogo con workshop y fwh 8.07, xharbour 1.1, bcc 5.5, el problema es que :

a) genero un recurso con Dll, que luego paso a Rc.

b) Usando verce 4.5, me enlaza los ejecutables y el rc me lo convierte a 32.

c) me muestra el menu y los iconos asociados a la barra de tareas, pero cuando quiero llamar al dialogo que tiene un browse y un btnget.

pero me sale esto

Application
===========
Path and name: C:\SistWinW\sistema.Exe (32 bits)
Size: 720,896 bytes
Time from start: 0 hours 0 mins 7 secs
Error occurred at: 25/11/2008, 11:05:37
Error description: Error FiveWin/3 Cannot create Dialog Box:
Resource: DIALOG_1

Stack Calls
===========
Called from: .\source\classes\DIALOG.PRG => CREATEDLGERROR(0)
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: C:\SistWinW\PRG\prg101.prg => PRG_101(75)
Called from: C:\SistWinW\PRG\sistema.prg => (b)BUILDMENU(100)
Called from: .\source\classes\MENU.PRG => TMENU:COMMAND(0)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND(0)
Called from: .\source\classes\MDIFRAME.PRG => TMDIFRAME:COMMAND(0)
Called from: => TMDIFRAME: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: C:\SistWinW\PRG\sistema.prg => MAIN(80)

System
======
CPU type: 700 Mhz
Hardware memory: 64 megs

Free System resources: 90 %
GDI resources: 90 %
User resources: 90 %

Compiler version: xHarbour build 1.1.0 Intl. (SimpLex) (Rev. 6154)
Windows version: 5.1, Build 2600 Service Pack 2

Windows total applications running: 25
1
2 SysFader
3 Menú Inicio
4 CiceroUIWndFrame
5 TF_FloatingLangBar_WndTitle
6 Sistema Control y Gestion 2008 Version Jun/05
7 VERCE v4.5+, C:\SistWinW\nuevoW.VRC
8 MED CX - unregistered - [C:\SistWinW\PRG\PRG101.PRG]
9 PRG
10 WOWExec
11 AD760EEA-46D4-4e12-BAF5-58E2E3D1D0B2_lu ... otmail.com
12 B1E4D14A-F6D0-457d-8F12-711BF924E011_lu ... otmail.com
13 D897EE71-E263-449d-9241-5E918A81AF41_lu ... otmail.com
14 0C6C1D2B-CA92-49a1-B5F5-A9BBF3D2921A_lu ... otmail.com
15 DLTrayIconWnd
16 DDE Server Window
17 CTicketManagerWnd
18 Connections Tray
19 Medidor de energía
20 D-Link AirPlus G
21 MCI command handling window
22 UPnP Notification Monitor
23 MS_WebcheckMonitor
24 GDI+ Window
25 Program Manager

Variables in use
================
Procedure Type Value
==========================
CREATEDLGERROR
Param 1: O Class: TDIALOG
Local 1: C "DIALOG_1"
Local 2: C " "
TDIALOG:ACTIVATE
Param 1: U
Param 2: U
Param 3: U
Param 4: L .T.
Param 5: U
Param 6: L .T.
Param 7: U
Param 8: U
Param 9: U
Param 10: L .F.
Local 1: O Class: TDIALOG
Local 2: N 1442242
Local 3: U
Local 4: U
PRG_101
Local 1: O Class: TSBROWSE
Local 2: U
Local 3: O Class: TDIALOG
Local 4: N 1
Local 5: A Len: 2
Local 6: L .F.
Local 7: U
Local 8: O Class: TFONT
Local 9: O Class: TFONT
Local 10: U
Local 11: U
Local 12: O Class: TFONT
Local 13: O Class: TGET
Local 14: C " "
Local 15: U
(b)BUILDMENU
Param 1: O Class: TMENUITEM
TMENU:COMMAND
Param 1: N 20002
Local 1: O Class: TMENU
Local 2: O Class: TMENUITEM
TWINDOW:COMMAND
Param 1: N 20002
Param 2: N 0
Local 1: O Class: TMDIFRAME
Local 2: N 0
Local 3: N 20002
Local 4: N 0
TMDIFRAME:COMMAND
Param 1: N 20002
Param 2: N 0
Local 1: O Class: TMDIFRAME
Local 2: L .F.
TMDIFRAME:HANDLEEVENT
Param 1: N 273
Param 2: N 20002
Param 3: N 0
_FWH
Param 1: N 0
Param 2: N 273
Param 3: N 20002
Param 4: N 0
Param 5: N 1
Local 1: O Class: TMDIFRAME
WINRUN
Param 1: N 1442242
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: U
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: U
Param 18: U
Param 19: U
Local 1: O Class: TMDIFRAME
Local 2: U
Local 3: U
MAIN
Local 1: U
Local 2: O Class: TBAR
Local 3: O Class: TCURSOR
Local 4: U
Local 5: O Class: TFONT
Local 6: U
Local 7: U
Local 8: U
Local 9: U
Local 10: U
Local 11: U
Local 12: O Class: TICON
Local 13: U
Local 14: U
Local 15: A Len: 9
Local 16: A Len: 2
Local 17: L .F.
Local 18: O Class: TBTNBMP
Local 19: O Class: TBTNBMP
Local 20: O Class: TBTNBMP

Linked RDDs
===========
DBF
DBFFPT
DBFCDX
DBFNTX
DBFBLOB

DataBases in use
================

1: => B_FAMI RddName: DBFCDX
==============================
RecNo RecCount BOF EOF
1 13 .F. .F.

Indexes in use TagName

Relations in use

Classes in use:
===============
1 HASHENTRY
2 HBCLASS
3 HBOBJECT
4 TCURSOR
5 TWINDOW
6 TCONTROL
7 TICON
8 TBRUSH
9 TFONT
10 TMDIFRAME
11 TMENU
12 TMENUITEM
13 TMDICLIENT
14 TMSGBAR
15 TRECT
16 TMSGITEM
17 TTIMER
18 TBAR
19 TBTNBMP
20 TDIALOG
21 TSBROWSE
22 TBITMAP
23 ERROR
24 TSCOLUMN
25 TGET
26 TBTNGET
27 GET
28 TCLIPGET
29 TREG32

Memory Analysis
===============
143 Static variables

Dynamic memory consume:
Actual Value: 0 bytes
Highest Value: 0 bytes


el codigo es :

#include "TSBrowse.ch"
#include "FiveWin.ch"
#Include "Btnget.ch"

FUNCTION Prg_101()
LOCAL oLbx1, oBrw
LOCAL oDlgFam
LOCAL nOrden :=1
LOCAL vOrden := {"Codigo","Nombre"}
LOCAL lOk := .F.
LOCAL oSay
Local Ofont1, Ofont2,cMensaje,oMensaje,oFont3
Local oGet,cGet,oCol

cGet := space( 30 )

Select 01
USE B_Fami

Define Font oFont1 Name "Arial" Size 0,-12
Define Font oFont2 Name "Arial" Size 0,-12 Bold
Define Font oFont3 Name "Arial" Size 0,-9 Bold


DEFINE DIALOG oDlgFam ResName "DIALOG_1" TITLE "Maestro de Familias"

/*REDEFINE XBROWSE olbx1 ID 201 OF oDlgFam ;
COLUMNS "codigo", "nombre" ;
FIELDS OemToAnsi(B_Fami->Cod_Fam), OemToAnsi(B_Fami->Nom_Fam);
HEADERS "codigo", "nombre"*/


/*oBrw := TXBrowse():New( oDlgFam )

oBrw:nMarqueeStyle:=4
oBrw:lColDividerComplete := .T.
oBrw:lHScroll:= .F.
oBrw:oFont := oFont1

oCol:= oBrw:AddCol()
oCol:cHeader := "CODIGO"
oCol:bStrData := { || B_Fami->Cod_Fam}

oCol:= oBrw:AddCol()
oCol:cHeader := "NOMBRE"
oCol:bStrData := { || B_Fami->Nom_Fam}


oBrw:nMarqueeStyle := MARQSTYLE_HIGHLCELL

oBrw:lHScroll := .t.
oBrw:lVScroll := .t.
oBrw:CreateFromResource( 1000)*/


Redefine Browse oLbx1 Id 101 Of oDlgFam FONT oFont1;
COLORS RGB(64,0,128), RGB(170,230,250),rgb(0,0,0), Rgb(117,208,181)

Add Column To Browse oLbx1 Data OemToAnsi(B_Fami->Cod_Fam);
Head "( CDIGO )" Width 95 Align 0,1;
COLORS RGB(0,0,255),RGB(255,255,224)

Add Column To Browse oLbx1 Data OemToAnsi(B_Fami->Nom_Fam);
Head "( NOMBRE FAMILIA/MARCA )" Width 350 Align 0,1;
COLORS RGB(0,0,255),RGB(255,255,224)

oLbx1:SetColor( { 13, 14 }, { CLR_WHITE, CLR_BLUE } )
oLbx1:nLineStyle := 4 //1 normal, 2 filas sin linea, 3 columnas sin linea
oLbx1:nHeightCell += 6 // altura de las filas
oLbx1:nHeightHead += 6 // altura titulos
oLbx1:ChangeFont( oFont2,,2 ) // ( oFont, nCol, nLevel )

REDEFINE BtnGet oGet Var cGet Id 102 Of oDlgFam Font oFont1 Resource "LUPA"

Activate Dialog oDlgFam Centered
USE
close databases
oFont1:End()
oFont2:End()
oFont3:End()
RETURN( NIL )



EL OTRO PROBLEMA ES QUE EL GET SE MUESTRA PERO NO ASI EL BMP ASOCIADO A EL....

AHORA SI USO PELLES C, ME SALE EL DIALOGO BIEN, PERO SE MANTIENE EL PROBLEMA DEL BTNBMP, SALE EL CUADRO, PUEDO ESCRIBIR PERO NO SALE EL BMP ASOCIADO....

[joseluisysturiz]

A mi me daba un error parecido, y es que si usaba xbrowse como CUSTOM CONTROL, lo quite y adios errores...saludos...