FiveTech Software tech support forums

www.FiveTechSoft.com

Skip to content

dialog error

Post a reply

dialog error

Postby Silvio » Wed Jan 17, 2007 3:11 pm

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

the code


Code: Select all  Expand view
#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  Expand view

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  Expand view
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
User avatar
Silvio
 
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy
Top

Re: dialog error

Postby Taavi » Wed Jan 17, 2007 4:30 pm

>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.
Taavi
 
Posts: 89
Joined: Mon Nov 21, 2005 10:29 am
Top

Postby Antonio Linares » Wed Jan 17, 2007 5:18 pm

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
User avatar
Antonio Linares
Site Admin
 
Posts: 42077
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Top

Postby Silvio » Wed Jan 17, 2007 5:40 pm

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  Expand view
#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
User avatar
Silvio
 
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy
Top

Postby Antonio Linares » Wed Jan 17, 2007 7:01 pm

Silvio,

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42077
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Top

Postby Silvio » Wed Jan 17, 2007 11:47 pm

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
User avatar
Silvio
 
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy
Top

Postby Silvio » Wed Jan 17, 2007 11:57 pm

when I erase folder control ....

it run ok
Best Regards, Saludos

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

Postby jose_murugosa » Thu Jan 18, 2007 2:19 am

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
"Los errores en programación, siempre están entre la silla y el teclado y la IA!!"
User avatar
jose_murugosa
 
Posts: 1179
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay
Top

Postby Silvio » Thu Jan 18, 2007 8:23 am

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  Expand view
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
User avatar
Silvio
 
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy
Top
Post a reply

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 60 guests

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group