dialog error

Post Reply
User avatar
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

dialog error

Post by Silvio »

when I compile it the procedure let me "cannot create dialog" but I NOt understand what is wrong !!!!!!!

the code

Code: Select all

#include "FiveWin.ch"

function main()
Local oDlg,oFld


DEFINE DIALOG oDlg RESOURCE "AGENDA_EDIT"

REDEFINE FOLDER  ID 500 OF oDlg                         ;
                        PROMPT "&Anagrafica","&Dettagli","&Notizie mediche","&Fotografia","&Osservazioni";
                        DIALOGS "AGENDA_EDIT_A", "AGENDA_EDIT_B", "AGENDA_EDIT_C","AGENDA_EDIT_D","AGENDA_EDIT_E"


 ACTIVATE DIALOG oDlg CENTERED

return nil



the resource

Code: Select all


AGENDA_EDIT DIALOG 33, 36, 332, 244
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "AGENDA_EDIT"
FONT 8, "MS Sans Serif"
{
 LTEXT "Socio :", 200, 85, 14, 30, 8
 EDITTEXT 105, 120, 12, 174, 12
 CONTROL "", 500, "SysTabControl32", 0 | WS_CHILD | WS_VISIBLE, 13, 69, 313, 136
 PUSHBUTTON "&Conferma", 1, 220, 218, 50, 16
 PUSHBUTTON "&Annulla", 2, 276, 218, 50, 16
 LTEXT "Codice :", -1, 13, 13, 30, 8
 EDITTEXT 101, 48, 12, 33, 12
 CONTROL "", 104, "TBitmap", 0 | WS_CHILD | WS_VISIBLE, 300, 12, 12, 11
 CONTROL "", 10, "SysDateTimePick32", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 66, 30, 81, 12
 LTEXT "Data richiesta :", -1, 13, 32, 51, 8
 LTEXT "Iscrizione :", -1, 172, 32, 38, 8
 CONTROL "", 11, "SysDateTimePick32", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 213, 30, 81, 12
 LTEXT "Tipo adesione :", -1, 12, 49, 52, 8
 CONTROL "220", 220, "COMBOBOX", CBS_DROPDOWNLIST | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 66, 47, 84, 62
 LTEXT "Status : ", -1, 162, 49, 27, 8
 CONTROL "220", 12, "COMBOBOX", CBS_DROPDOWNLIST | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 193, 47, 54, 74
 LTEXT "Tessera :", -1, 254, 50, 34, 8
 EDITTEXT 13, 290, 48, 37, 12
}

AGENDA_EDIT_D DIALOG 29, 69, 312, 122
STYLE WS_CHILD | WS_CLIPSIBLINGS | WS_CLIPCHILDREN
FONT 8, "MS Sans Serif"
{
 CONTROL "", 101, "TImage", 0 | WS_CHILD | WS_VISIBLE, 218, 18, 73, 86
 CONTROL "TBtnBmp", 103, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE, 180, 26, 12, 12
 CONTROL "TBtnBmp", 102, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE, 164, 26, 12, 12
 EDITTEXT 100, 6, 10, 187, 12
 GROUPBOX "", 501, 202, 7, 103, 111, BS_GROUPBOX
 LTEXT "Taglia : ", -1, 27, 40, 35, 8
 CONTROL "S", 104, "BUTTON", BS_AUTORADIOBUTTON, 71, 43, 60, 12
 CONTROL "M", 105, "BUTTON", BS_AUTORADIOBUTTON, 71, 56, 60, 12
 CONTROL "L", 106, "BUTTON", BS_AUTORADIOBUTTON, 71, 69, 60, 12
 CONTROL "XL", 107, "BUTTON", BS_AUTORADIOBUTTON, 132, 43, 60, 12
 CONTROL "XXL", 108, "BUTTON", BS_AUTORADIOBUTTON, 132, 56, 60, 12
 CONTROL "XXXL", 109, "BUTTON", BS_AUTORADIOBUTTON, 132, 69, 60, 12
 LTEXT "Quota associativa : ", -1, 6, 86, 60, 8
 EDITTEXT 110, 70, 84, 53, 12
 LTEXT "Versato anno corrente :", -1, 6, 106, 80, 8
 CONTROL "Si", 111, "BUTTON", BS_AUTORADIOBUTTON, 93, 105, 23, 12
 CONTROL "No", 112, "BUTTON", BS_AUTORADIOBUTTON, 124, 106, 23, 12
}

AGENDA_EDIT_A DIALOG 29, 69, 312, 122
STYLE WS_CHILD | WS_CLIPSIBLINGS | WS_CLIPCHILDREN
FONT 8, "MS Sans Serif"
{
 EDITTEXT 100, 48, 12, 260, 12
 EDITTEXT 101, 48, 29, 157, 12
 LTEXT "Indirizzo :", -1, 12, 12, 36, 8
 LTEXT "Località :", -1, 12, 30, 33, 8
 EDITTEXT 103, 278, 29, 30, 12
 LTEXT "Cap :", -1, 257, 31, 18, 8
 EDITTEXT 102, 237, 29, 17, 12
 LTEXT "Prov.:", -1, 215, 31, 21, 8
 LTEXT "Data di nascita :", -1, 13, 68, 55, 8
 EDITTEXT 105, 78, 66, 74, 12
 LTEXT "Luogo di nascita :", -1, 13, 50, 63, 8
 EDITTEXT 104, 78, 49, 230, 12
 LTEXT "Sesso :", -1, 211, 68, 33, 8
 COMBOBOX 106, 254, 66, 54, 33, CBS_DROPDOWNLIST | WS_TABSTOP
 LTEXT "Telefono :", -1, 13, 87, 35, 8
 LTEXT "Cellulare :", -1, 13, 104, 38, 8
 EDITTEXT 107, 78, 86, 74, 12
 EDITTEXT 109, 78, 103, 74, 12
 LTEXT "Telefono", -1, 187, 88, 35, 8
 LTEXT "Cellulare ", -1, 187, 105, 29, 8
 EDITTEXT 108, 226, 86, 82, 12
 EDITTEXT 110, 226, 103, 82, 12
}


AGENDA_EDIT_B DIALOG 29, 69, 312, 122
STYLE WS_CHILD | WS_CLIPSIBLINGS | WS_CLIPCHILDREN
FONT 8, "MS Sans Serif"
{
 LTEXT "Professione :", -1, 13, 14, 60, 8
 LTEXT "Sede lavorativa :", -1, 13, 31, 60, 8
 LTEXT "Telefono sede lavorativa : ", -1, 11, 53, 87, 8
 EDITTEXT 200, 103, 15, 144, 12
 EDITTEXT 201, 103, 33, 145, 12
 EDITTEXT 202, 103, 52, 146, 12
}


AGENDA_EDIT_C DIALOG 29, 69, 312, 122
STYLE WS_CHILD | WS_CLIPSIBLINGS | WS_CLIPCHILDREN
FONT 8, "MS Sans Serif"
{
 LTEXT "Data del certificato medico :", -1, 19, 14, 93, 8
 EDITTEXT 300, 116, 13, 93, 12
 LTEXT "Medico curante /sportivo :", -1, 19, 34, 92, 8
 EDITTEXT 301, 116, 33, 183, 12
 LTEXT "Gruppo sanguigno :", -1, 19, 57, 68, 8
 EDITTEXT 302, 116, 55, 62, 12
 LTEXT "Donatore :", -1, 21, 83, 60, 8
}

AGENDA_EDIT_E DIALOG 29, 69, 312, 122
STYLE WS_CHILD | WS_CLIPSIBLINGS | WS_CLIPCHILDREN
FONT 8, "MS Sans Serif"
{
 GROUPBOX "", 501, 4, 4, 301, 111, BS_GROUPBOX
 LTEXT "&Note :", 201, 22, 12, 30, 8
 EDITTEXT 600, 20, 22, 274, 81, ES_MULTILINE | ES_AUTOVSCROLL | ES_WANTRETURN | WS_BORDER | WS_VSCROLL | WS_TABSTOP
}

GET_MEMO DIALOG 84, 92, 261, 73
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
FONT 8, "MS Sans Serif"
{
 EDITTEXT 101, 6, 4, 252, 50, ES_MULTILINE | ES_UPPERCASE | ES_WANTRETURN | WS_BORDER | WS_VSCROLL | WS_TABSTOP
 PUSHBUTTON "&Conferma", 111, 83, 58, 89, 13
}


the error

Code: Select all

Application
===========
   Path and name: C:\work\errori\fsdi2006\prg\testgar.Exe (32 bits)
   Size:   435,200 bytes
   Time from start: 0 hours 0 mins 0 secs 
   Error occurred at: 01/17/07, 16:10:11
   Error description: Error FiveWin/3  Cannot create Dialog Box: 
                      Resource: AGENDA_EDIT

Stack Calls
===========
   Called from:  => CREATEDLGERROR(0)
   Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
   Called from: testgar.prg => MAIN(15)
somene can help me ??????????????


thanks in advance !!!!!!!!
Best Regards, Saludos

Falconi Silvio
Top
Taavi
Posts: 77
Joined: Mon Nov 21, 2005 10:29 am

Re: dialog error

Post by Taavi »

>when I compile it the procedure let me "cannot create dialog" but I NOt >understand what is wrong !!!!!!!
>thanks in advance

Hi,
try changing dialog resource names to be more different (not to have so much matching characters). Seems like some resource ID generation bug (or effect)... There was a discussion about this sub. in Xharbour newsgroup.

Taavi.
Top
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Post by Antonio Linares »

Silvio,

You are using a TImage, TBtnBmp and TBitmap in your resource and you have not redefined them in your PRG
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
User avatar
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Post by Silvio »

Antonio,

On my program I redefine all fields ( TImage, TBtnBmp and TBitmap ), but it not show the dialog!!!!

I had had problem when I insert date control 32 bit

if yo want can erase all TImage, TBtnBmp and TBitmap control

IT NOT show the dialog


try it please :

Code: Select all

#include "FiveWin.ch"
#Include "Image.Ch"

function main()
   Local oDlg,oFld

  LOCAL aDat[28],oDat[28]

DEFINE DIALOG oDlg RESOURCE "AGENDA_EDIT"

                          REDEFINE FOLDER  ID 500 OF oDlg                         ;
                        PROMPT "&Anagrafica","&Dettagli","&Notizie mediche","&Fotografia","&Osservazioni";
                        DIALOGS "AGENDA_EDIT_A", "AGENDA_EDIT_B", "AGENDA_EDIT_C","AGENDA_EDIT_D","AGENDA_EDIT_E"



               //folder 4 AGENDA_EDIT_D
REDEFINE GET oDat[19] VAR aDat[19] ID 100 OF oFld:aDialogs[4] PICTURE "@!"   UPDATE

         oDat[20] := TImage():ReDefine( 101,, aDat[19], oFld:aDialogs[4],,, .F., .T.,,, .F.,, )

       REDEFINE BTNBMP ID 102 OF oFld:aDialogs[4] RESOURCE "b_chg" NOBORDER;
                  TOOLTIP "Seleziona" ;
                  ACTION (oDat[20]:LoadImage( , cFile1 := cGetFile32( "Immagini (*.jpg)| *.jpg|","Seleziona immagine",,".\Images\" )),;
                  oDat[20]:Refresh(),aDat[19]:= cFile1, oDat[19]:Refresh() )

       REDEFINE BTNBMP ID 103 OF oFld:aDialogs[4] RESOURCE "B_PRV" NOBORDER;
                  TOOLTIP "Zoom"
       *action zoomimage(aDat[19])


 ACTIVATE DIALOG oDlg CENTERED

return nil
Best Regards, Saludos

Falconi Silvio
Top
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Post by Antonio Linares »

Silvio,

Please call INITCOMMONCONTROLS() before DEFINE DIALOG ...
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
User avatar
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Post by Silvio »

Application
===========
Path and name: C:\work\errori\fsdi2006\prg\testgar.Exe (32 bits)
Size: 438,272 bytes
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 01/18/07, 00:45:02
Error description: Error BASE/1004 Class: 'NIL' has no exported method: ADIALOGS
Args:


I tried to compile with PellesC but it make the same error
Best Regards, Saludos

Falconi Silvio
Top
User avatar
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Post by Silvio »

when I erase folder control ....

it run ok
Best Regards, Saludos

Falconi Silvio
Top
User avatar
jose_murugosa
Posts: 943
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay
Contact:
Contact jose_murugosa

Post by jose_murugosa »

Silvio,

I see oFld variable defined as local at the start of the function but you didn´t store the folder object in it :roll:

DEFINE FOLDER oFld ID .... OF ......

I think that´s the problem.
Saludos/Regards,
José Murugosa
FWH + Harbour + Bcc7. Una seda!
Top
User avatar
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Post by Silvio »

I tried and now run ok

there is an error on dialog AGENDA_EDIT_D
when I erase all control on it the dialog and folder run ok

the dialog AGENDA_edit_d have :

Code: Select all

AGENDA_EDIT_D DIALOG 29, 69, 312, 122 
STYLE WS_CHILD | WS_CLIPSIBLINGS | WS_CLIPCHILDREN 
FONT 8, "MS Sans Serif" 
{ 
 CONTROL "", 101, "TImage", 0 | WS_CHILD | WS_VISIBLE, 218, 18, 73, 86 
 CONTROL "TBtnBmp", 103, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE, 180, 26, 12, 12 
 CONTROL "TBtnBmp", 102, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE, 164, 26, 12, 12 
 EDITTEXT 100, 6, 10, 187, 12 
 GROUPBOX "", 501, 202, 7, 103, 111, BS_GROUPBOX 
 LTEXT "Taglia : ", -1, 27, 40, 35, 8 
 CONTROL "S", 104, "BUTTON", BS_AUTORADIOBUTTON, 71, 43, 60, 12 
 CONTROL "M", 105, "BUTTON", BS_AUTORADIOBUTTON, 71, 56, 60, 12 
 CONTROL "L", 106, "BUTTON", BS_AUTORADIOBUTTON, 71, 69, 60, 12 
 CONTROL "XL", 107, "BUTTON", BS_AUTORADIOBUTTON, 132, 43, 60, 12 
 CONTROL "XXL", 108, "BUTTON", BS_AUTORADIOBUTTON, 132, 56, 60, 12 
 CONTROL "XXXL", 109, "BUTTON", BS_AUTORADIOBUTTON, 132, 69, 60, 12 
 LTEXT "Quota associativa : ", -1, 6, 86, 60, 8 
 EDITTEXT 110, 70, 84, 53, 12 
 LTEXT "Versato anno corrente :", -1, 6, 106, 80, 8 
 CONTROL "Si", 111, "BUTTON", BS_AUTORADIOBUTTON, 93, 105, 23, 12 
 CONTROL "No", 112, "BUTTON", BS_AUTORADIOBUTTON, 124, 106, 23, 12 
}

there is something not run ok but wich ?
I not found anything
I copied it from another my program ( on old program 32 bit run ok)
Best Regards, Saludos

Falconi Silvio
Top
Post Reply

Return to “FiveWin for Harbour/xHarbour”