Error FiveWin/3 Cannot create Dialog Box [Solved]

[Salvo1087]

hi at all,
i have problem with my file.rc .after compiling my .rc file i have some errors :
Error description: Error FiveWin/3 Cannot create Dialog Box:
Resource: AZIENDA_DATA

Stack Calls
===========
Called from: .\source\classes\DIALOG.PRG => CREATEDLGERROR(0)
Called from: => TDIALOG:ACTIVATE(0)
Called from: \ric98\util.prg => UTILE04(310)
Called from: \ric98\util.prg => SELAZIENDA(884)
Called from: menu.prg => INITPROG(185)
Called from: menu.prg => MAIN(55)

Variables in use
================
Procedure Type Value
==========================
CREATEDLGERROR
Param 1: O Class: TDIALOG
Local 1: C "AZIENDA_DATA"
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 0
Local 3: U
Local 4: U
UTILE04
Param 1: L .F.
Param 2: U
Param 3: U
Local 1: O Class: TGET
Local 2: C "Archivi Standard "
Local 3: L .F.
Local 4: O Class: TDIALOG
Local 5: N 1
SELAZIENDA
Param 1: L .F.
Param 2: U
Param 3: C "CONTAB"
Param 4: U
Param 5: U
Local 1: N 1
Local 2: L .F.
Local 3: C "GA"
Local 4: C "GA"
Local 5: C "Inserire i parametri di Contabilità"
INITPROG
Local 1: U
Local 2: U
Local 3: U
MAIN
Local 1: U
Local 2: U
Local 3: U
Local 4: U
Local 5: U
Local 6: U
Local 7: U
Local 8: U
Local 9: U

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

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

1: => AZIENDE RddName: DBFNTX
==============================
RecNo RecCount BOF EOF
1 6 .F. .F.

Indexes in use TagName

Relations in use

Classes in use:
===============
1 HBCLASS
2 HBOBJECT
3 TWINDOW
4 TDIALOG
5 TBRUSH
6 TCONTROL
7 TBITMAP
8 TFONT
9 TGET
10 GET
11 TCLIPGET
12 TBUTTON
13 ERROR
14 TREG32

azienda_data is in my rc file .i have build my res file using brc32 command of borland. What may be caused error?

[Bayron]

Make sure you are not using Borland Custom Controls...

[Salvo1087]

bayron,
first thanks for answer,

second,you speek about bwcc32? my problem is that i must to traslate an old application write on clipper-fivewin 16bit. i have delete command set resource to bwcc32 if is this that you mean.

[Rick Lipkin]

Bayron

You will need to go through all your .rc files and eliminate all the Borland controls with generic ones .. BRW has matching generic controls ( buttons, etc ) that do not specifically call the borland .dll ..

Rick Lipkin

[Salvo1087]

Rick ,
a little part of my .rc file is :
AZIENDA_DATA DIALOG DISCARDABLE 0, 0, 271, 97
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION| 0x4
CAPTION "AZIENDA E DATA"
FONT 8, "MS Sans Serif"
BEGIN
EDITTEXT 1003,56,8,208,13,ES_AUTOHSCROLL | NOT WS_TABSTOP
PUSHBUTTON "&Azienda ->",1004,4,26,48,12,NOT WS_TABSTOP
EDITTEXT 1002,56,26,28,12,ES_AUTOHSCROLL
EDITTEXT 1000,88,26,176,13,ES_AUTOHSCROLL | NOT WS_TABSTOP
EDITTEXT 1001,56,42,52,12,ES_AUTOHSCROLL
CONTROL "&Ok",1,"BorBtn",WS_TABSTOP,87,62,36,24
CONTROL "&Annulla",2,"BorBtn",WS_TABSTOP,147,62,36,24
LTEXT "Data",-1,4,42,48,12
LTEXT "Operatore",-1,4,8,34,8
END

borland controll are BorBtn right?i must delete "BorBtn"?
best regards

Salvo

[Bayron]

That's right....

[Salvo1087]

yes,but when i delete borland control it give an error when compile .rc file :

Code: Select all

Error WINRIC.RC 33 30: Expecting class name or ID
 

i have added in main.prg the command :

Code: Select all

local hBorland := LoadLibrary( "BWCC32.dll" )
SET RESOURCES TO "bwcc32.dll"
BWCCRegister(GetResources())
... code
......
FreeLibrary( hBorland ) 
 return nill

DLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL"
 

with borland's control active but i have the same error : Error FiveWin/3 Cannot create Dialog Box
this is file.rc

Code: Select all

//Microsoft App Studio generated resource script.
//
#include "resource.h"

#define APSTUDIO_READONLY_SYMBOLS
/////////////////////////////////////////////////////////////////////////
//
// Generated from the TEXTINCLUDE 2 resource.
//
#define APSTUDIO_HIDDEN_SYMBOLS
#include "windows.h"
#undef APSTUDIO_HIDDEN_SYMBOLS

/////////////////////////////////////////////////////////////////////////////////////
#undef APSTUDIO_READONLY_SYMBOLS


//////////////////////////////////////////////////////////////////////////////
//
// Dialog
//

AZIENDA_DATA DIALOG DISCARDABLE  0, 0, 271, 97
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION| 0x4
CAPTION "AZIENDA E DATA"
FONT 8, "MS Sans Serif"
BEGIN
    EDITTEXT        1003,56,8,208,13,ES_AUTOHSCROLL | NOT WS_TABSTOP
    PUSHBUTTON      "&Azienda ->",1004,4,26,48,12,NOT WS_TABSTOP
    EDITTEXT        1002,56,26,28,12,ES_AUTOHSCROLL
    EDITTEXT        1000,88,26,176,13,ES_AUTOHSCROLL | NOT WS_TABSTOP
    EDITTEXT        1001,56,42,52,12,ES_AUTOHSCROLL
    CONTROL         "&Ok",1,"BorBtn",WS_TABSTOP,87,62,36,24
    CONTROL         "&Annulla",2,"BorBtn",WS_TABSTOP,147,62,36,24
    LTEXT           "Data",-1,4,42,48,12
    LTEXT           "Operatore",-1,4,8,34,8
END
 

and this a fragment of util.prg ,when i get the error

Code: Select all

    if cCodDitta=NIL
        define dialog oDlg resource "AZIENDA_DATA" ;                                                    //error here
        color m->cColFgWInEdit,m->cColBgWInEdit font m->fntProgramma;
        helpid IDH_AZ_DATA            //icon oIco
        redefine get m->GLOBUtente id 1003 of oDlg readonly
        redefine get oCodAz var cCodAz id 1002 of oDlg picture "@!" valid fValAzienda(.t.,@cDescr,@oDescr,@cCodAz,@oCodAz)
        redefine get oDescr var cDescr id 1000 of oDlg picture "@!" readonly
        redefine button id 1004 of oDlg ;
            action (fAzienda(.t.,@cDescr,@oDescr,@cCodAz,@oCodAz),;
            fValAzienda(.t.,@cDescr,@oDescr,@cCodAz,@oCodAz) )
        redefine get dDataOdierna id 1001 of oDlg // picture "@d"
        redefine button id 1 of oDlg action (lOk:=.t.,oDlg:end())       // ok
        redefine button id 2 of oDlg cancel action (lOk:=.f.,oDlg:end())
*       when lAnnullabile                                           // annulla
        activate dialog oDlg centered
    else
 

best regards

Salvo

[Silvio]

try to create the dialog
with @ x,y

[Bayron]

That's Right Salvo,
because you should not just erase "BtnBor" but instead replace it with the name of the class that is going to be used "tButton", or just use standard PushButtons (As you are already using control ID 1004)...

Check the Samples directory to check the way RC files are made in there so you have a better Idea...

[Salvo1087]

thanks a lot,i have solved problem. i replace the borland controll with a controll "button".tanks

[James Bott]

Salvo,

I suggest getting rid of all Borland controls. Then you won't need the Borland DLL either.

Borland controls will give you all kinds of trouble.

Regards,
James