Error al crear dialogo con IMAGE

[Pedro]

Hola a todos

Veamos como lo explico. En uno de los módulos de entrada a mis aplicaciones, donde escojo el ejercicio de trabajo suelo poner una imagen. Hasta ahora era un BMP
pero en las modificaciones que estoy haciendo quería poner un JPG, como es obvio incluí el image.ch al principio.
Pues bien me casca al iniciar el programa diciendo que no se puede crear el dialogo. He intentado poner en el RC que el custom control es "image", antes lo tenia como "TBitmap", y casca de la misma manera.
Abajo os dejo el código que uso y el RC (al que he vuelto a poner Control TBitmap). La primera parte que está comentada es como lo uso con BMPs y funciona sin problemas, se ve la imagen y el programa no casca.
El segundo redefine (redefine IMAGE...) es el que casca y da como error ERROR FIVEWIN 3 cannot create dialog box

Hay algo que haga mal con respecto a la imagen?.

Code: Select all

* REDEFINE BITMAP oBmp ID 101 OF oDlgEmp ;
*          FILENAME ".\BMP\SOFTCAN1.BMP" ;
*          ADJUST;
*          UPDATE;
*          TRANSPARENT
*-----------------------------------------------------------------
 REDEFINE IMAGE oBmp ID 101 OF oDlgEmp ;
          FILENAME ".\BMP\SOFTCAN1.JPG" ;
          ADJUST
 

Code: Select all

DLGINI DIALOG DISCARDABLE 6, 15, 406, 219
STYLE WS_POPUP|DS_MODALFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "ELECCION DE EMPRESAS"
FONT 8, "MS Sans Serif"
{
  CONTROL "", 4001, "ListBox", LBS_SORT|LBS_NOTIFY|WS_VSCROLL|WS_BORDER, 172, 16, 224, 158
  CONTROL "", 101, "TBitmap", 0x00000000, 8, 20, 148, 148
  CONTROL "(c) Gahete Software 2013", 4002, "Static", SS_CENTER|SS_SUNKEN|WS_BORDER|WS_GROUP, 8, 180, 144, 12
}

[Armando]

Pedro:

Mira yo tengo algo así y funciona bien:

Este es el .RC en espcial el control con el ID 102

Code: Select all

QRYIMG DIALOG DISCARDABLE 6, 15, 319, 164
STYLE WS_POPUP|WS_THICKFRAME|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION "Importar imagen"
FONT 8, "MS Sans Serif"
{
  CONTROL "", 101, "Edit", ES_WANTRETURN|WS_BORDER|WS_TABSTOP, 82, 14, 217, 12
  CONTROL "&Salir", 902, "Button", WS_TABSTOP, 249, 136, 50, 14
  CONTROL "Desde el archivo:", -1, "Static", SS_RIGHT|WS_GROUP, 20, 16, 57, 8
  CONTROL "", 102, "Static", SS_BITMAP|SS_CENTERIMAGE|WS_BORDER, 24, 31, 194, 119
}
 

Por cierto el control lo cree con PellesC y utilice el control PICTURE.

Y este es el código

Code: Select all

    DEFINE DIALOG oDlg RESOURCE "QryImg" OF oWindow ICON oIcono FONT oFont;
        TITLE "Cargar imágen"

        REDEFINE BTNGET aGets[01] VAR cImagen ID 101 OF oDlg RESOURCE "Buscar" UPDATE;
            PICTURE "@!K";
            ACTION (cImagen :=ALLTRIM(cGetFile("*.Jpg","Seleccione la imágen a importar",1,".\Importar")),;
                        CambiaImagen(oDlg,aGets,cImagen))

        REDEFINE IMAGE aGets[02] FILENAME cFile ID 102 OF oDlg ADJUST UPDATE

        REDEFINE BUTTON oCancelar ID 902 OF oDlg UPDATE CANCEL;
            ACTION IIF(Salir(cImagen),oDlg:END(),);
            MESSAGE "Cancela el proceso"
    ACTIVATE DIALOG oDlg NOWAIT CENTERED
 

Espero te sirva

[karinha]

Code: Select all

 CONTROL "", 101, "TImage", 0x00000000, 8, 20, 148, 148
 

[Pedro]

Joao, muchas gracias me ofusqué con Image y no vi que era TImage al igual que TBitmap.

Armando, si usas PellesC de donde sacas la propiedad SS_BITMAP, cuando pones un control STATIC ?
Yo tengo PellesC lo uso desde hace años (que por cierto, no soy capaz de quitar los dichosos includes que me pone, ¿tu sabes còmo?) y no he visto esa propiedad.
Quizás la pones después con el editor?

[Armando]

Pedro:

A decir verdad el ejemplo que te envíe lo tome de un .RES y desde pelles lo guarde cómo... .RC
y tal cual pelles lo dejó te envié el ejemplo.

El control que uso es el que tiene una imagen de un paisaje y si colocas el puntero del ratón sobre él
aparece un tooltip "picture".

Saludos

[Pedro]

Armando, mi comentario es porque no sé si será tu versión o la mía, pero a mi no me pone ese control en las STATIC y además todos los ID me empiezan en 4000.
Debe ser que les gusto ese número a alguien. Eso si, luego meto el PSPAD y le cambio los ID o alguna cosa.

[Armando]

Pedro:

La versión de Pelles que uso es la 7.00.30 y también cuando defino un control nuevo
le asigna un ID 4000 y algo pero yo lo cambio a mis necesidades desde el mismo IDE

Te adjunto una imagen para mayor claridad.



Saludos

[Armando]

Pedro:

Nada más para cerrar el hilo, cómo te fue?

Saludos