Error FiveWin/3 Cannot create Dialog Box:

Baxajaun · Post by **Baxajaun** » Wed Oct 26, 2005 1:23 pm

Buenas tardes,

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

#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.

jlcapel · Post by **jlcapel** » Wed Oct 26, 2005 1:42 pm

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

Baxajaun · Post by **Baxajaun** » Wed Oct 26, 2005 1:46 pm

Jose Luis,

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

Saludos

jlcapel · Post by **jlcapel** » Wed Oct 26, 2005 1:48 pm

Baxajaun,

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

Saludos,
José Luis Capel
www.capelblog.com

Baxajaun · Post by **Baxajaun** » Wed Oct 26, 2005 1:52 pm

José Luis,

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

Saludos.

jlcapel · Post by **jlcapel** » Wed Oct 26, 2005 2:03 pm

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

Baxajaun · Post by **Baxajaun** » Wed Oct 26, 2005 2:06 pm

José Luis,

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

Saludos

Baxajaun · Post by **Baxajaun** » Wed Oct 26, 2005 2:12 pm

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.

jlcapel · Post by **jlcapel** » Wed Oct 26, 2005 2:13 pm

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

Baxajaun · Post by **Baxajaun** » Wed Oct 26, 2005 2:14 pm

José Luis,

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

Saludos.

jlcapel · Post by **jlcapel** » Wed Oct 26, 2005 2:17 pm

Baxajaun,

Negativo. Es un fichero binario.

Saludos,
José Luis Capel
www.capelblog.com

Baxajaun · Post by **Baxajaun** » Wed Oct 26, 2005 2:19 pm

José Luis,

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

Saludos.

jlcapel · Post by **jlcapel** » Wed Oct 26, 2005 2:47 pm

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

Baxajaun · Post by **Baxajaun** » Wed Oct 26, 2005 2:58 pm

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

Kleyber · Post by **Kleyber** » Wed Oct 26, 2005 4:37 pm

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