FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour dialog error
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM

dialog error

Posted: Wed Jan 17, 2007 03: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 Collapse
#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 Collapse
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 Collapse
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
Taavi
Posts: 97
Joined: Mon Nov 21, 2005 10:29 AM

Re: dialog error

Posted: Wed Jan 17, 2007 04: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.

Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

dialog error

Posted: Wed Jan 17, 2007 05: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
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM

dialog error

Posted: Wed Jan 17, 2007 05: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 Collapse
#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
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

dialog error

Posted: Wed Jan 17, 2007 07:01 PM

Silvio,

Please call INITCOMMONCONTROLS() before DEFINE DIALOG ...

regards, saludos

Antonio Linares
www.fivetechsoft.com
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM

dialog error

Posted: 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
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM

dialog error

Posted: Wed Jan 17, 2007 11:57 PM

when I erase folder control ....

it run ok

Best Regards, Saludos



Falconi Silvio
jose_murugosa
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM

dialog error

Posted: Thu Jan 18, 2007 02: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 [u:39qnto95]oFld[/u:39qnto95] ID .... OF ......

I think that´s the problem.

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM

dialog error

Posted: Thu Jan 18, 2007 08: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 Collapse
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

Continue the discussion

Static archive · New replies & topics via GitHub Discussions