FiveTech Software tech support forums

Buenas tardes,

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

Code: Select all  Expand view

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

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

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

Baxajaun,

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

Saludos,
José Luis Capel
www.capelblog.com

José Luis,

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

Saludos.

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

José Luis,

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

Saludos

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.

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

José Luis,

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

Saludos.

Baxajaun,

Negativo. Es un fichero binario.

Saludos,
José Luis Capel
www.capelblog.com

José Luis,

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

Saludos.

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

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

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