Page 1 of 2

Error FiveWin/3 Cannot create Dialog Box:

Posted: Wed Oct 26, 2005 1:23 pm
by Baxajaun
Buenas tardes,

yo cada vez más torpe. En el siguiente ejemplo:

Code: Select all

#include "fivewin.ch"
#include "directry.ch"

Static oConexion
Static lConecta

PROCEDURE Main
    Ofak()
RETURN

PROCEDURE Ofak()

    LOCAL oIcon
    LOCAL oFont
    LOCAL oDlg


    DEFINE FONT oFont  NAME GetSysFont() SIZE 0,-11
    DEFINE ICON oIcon NAME "32"

    DEFINE DIALOG oDlg NAME "OFAK" TITLE "Generar fichero OFAK" FONT oFont ICON oIcon

    REDEFINE BITMAP ;
        ID 101 OF oDlg;
        NAME "LOGO";
        ADJUST

     REDEFINE BITMAP ;
        ID 102 OF oDlg;
        NAME "FELIX";
        ADJUST


    ACTIVATE DIALOG oDlg CENTER

    oFont:END()
    
RETURN 
AL ejecutar el ejemplo apararece el error del asunto. Ya siento dar el coñazo con la preguntita de marras, pero no veo donde está el problema.

Saludos y gracias.

Posted: Wed Oct 26, 2005 1:42 pm
by jlcapel
Baxajau,

Solo se me ocurre que te hayas dejado de redefinir algún control tipo custom (un tcbrowse, un wbrowse, etc) que haya en ese diálogo.

Espero que sea esto.

Saludos,
José Luis Capel
www.capelblog.com

Posted: Wed Oct 26, 2005 1:46 pm
by Baxajaun
Jose Luis,

lo que ves en el código, redefino dos controles TBitMap, que son el logo de la compañía y mi jeta :D

Saludos

Posted: Wed Oct 26, 2005 1:48 pm
by jlcapel
Baxajaun,

¿Puedes enviarme el 'proyecto' para que lo vea?

Saludos,
José Luis Capel
www.capelblog.com

Posted: Wed Oct 26, 2005 1:52 pm
by Baxajaun
José Luis,

te he enviado el fichero rc a tu cuenta de Hotmail.

Saludos.

Posted: Wed Oct 26, 2005 2:03 pm
by jlcapel
Baxajaun,

Lo siento... el fichero .zip al abrirlo me sale como un solo binario.

¿Puedes comprobar lo que me has enviado?

Saludos,
José Luis Capel
www.capelblog.com

Posted: Wed Oct 26, 2005 2:06 pm
by Baxajaun
José Luis,

el fichero zip tiene que contener el fichero ofak.rc que lo puedes cargar con el WorkShop.

Saludos

Posted: Wed Oct 26, 2005 2:12 pm
by Baxajaun
José Luis,

el fichero que te he enviado es un zip con un fichero de recursos (ofak.rc) en él. Está comprobado y lo puedo abrir con el WorkShop.

Saludos.

Posted: Wed Oct 26, 2005 2:13 pm
by jlcapel
Baxajaun,

Negativo. Es un fichero AFAK sin extensión. Es binario. No puedo abrirlo con RWS ni con VC6.

Saludos,
José Luis Capel
www.capelblog.com

Posted: Wed Oct 26, 2005 2:14 pm
by Baxajaun
José Luis,

al fichero ofak ponle extensión .rc y dime si puedes abrirlo.

Saludos.

Posted: Wed Oct 26, 2005 2:17 pm
by jlcapel
Baxajaun,

Negativo. Es un fichero binario.

Saludos,
José Luis Capel
www.capelblog.com

Posted: Wed Oct 26, 2005 2:19 pm
by Baxajaun
José Luis,

lo vuelvo a enviar con dos ficheros ofak.rc y ofak.res

Saludos.

Posted: Wed Oct 26, 2005 2:47 pm
by jlcapel
Baxajaun,

Parece que se te ha colado un bicho.

OFAK DIALOG 60, 41, 328, 245
STYLE DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Generar fichero OFAK"
FONT 8, "MS Sans Serif"
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
{
PUSHBUTTON "&Generar Fichero", 1, 104, 223, 63, 14
PUSHBUTTON "&Cancelar", 2, 173, 223, 50, 14
COMBOBOX 103, 178, 85, 49, 33, CBS_DROPDOWNLIST | WS_TABSTOP
COMBOBOX 104, 178, 107, 49, 33, CBS_DROPDOWNLIST | WS_TABSTOP
COMBOBOX 105, 178, 135, 49, 33, CBS_DROPDOWNLIST | WS_TABSTOP
COMBOBOX 106, 178, 159, 49, 33, CBS_DROPDOWNLIST | WS_TABSTOP
LTEXT "De proyecto :", 1, 116, 85, 47, 8
LTEXT "A proyecto :", 2, 116, 110, 42, 8
LTEXT "De minifábrica :", 3, 116, 139, 60, 8
LTEXT "A minifábrica :", 4, 116, 161, 60, 9
LTEXT "Ofak 1.0", 5, 6, 206, 33, 8, WS_DISABLED | WS_GROUP
CONTROL "", 6, "BorShade", BSS_HDIP | BSS_LEFT | WS_CHILD | WS_VISIBLE, 35, 211, 293, 1
CONTROL "TBitMap", 101, "TBitMap", WS_CHILD | WS_VISIBLE | WS_BORDER, 7, 7, 43, 40
CONTROL "TBitMap", 102, "TBitMap", WS_CHILD | WS_VISIBLE | WS_BORDER, 273, 7, 43, 40
}

Saludos,
José Luis Capel
www.capelblog.com

Posted: Wed Oct 26, 2005 2:58 pm
by Baxajaun
José Luis,

efectivamente si lo quito funciona perfectamente. Como puedo poner una línea de separación en la misma posición en la que se me había colado el bichito ?

Se coló un control de Borland :(

Saludos

Posted: Wed Oct 26, 2005 4:37 pm
by Kleyber
Hola,

Aprovechando el tema, tengo una duda que me da inquietud: ¿Cuales son las situaciones en que esta mensaje aparece? El motivo de mi pregunta es que tengo un sistema funcionando perfectamente en una red, con todas las pantallas bien definidas (no uso controles Borland) pero en algunos momentos y en algunos terminales (no son necesariamente los mismos) aparece la dicha mensaje y no comprendo el motivo. Yo uso DLL con las pantallas... ¿Sera que es por eso?

Uso xHarbour 0.99.4 + FWH 2.5

Saludos,

Kleyber Derick