FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Error al crear dialogo con IMAGE
Posts: 464
Joined: Tue Mar 21, 2006 07:30 PM
Error al crear dialogo con IMAGE
Posted: Thu Jun 13, 2013 12:39 PM
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 (fw): Select all Collapse
* 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 (fw): Select all Collapse
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
}
Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Error al crear dialogo con IMAGE
Posted: Thu Jun 13, 2013 02:00 PM
Pedro:

Mira yo tengo algo así y funciona bien:

Este es el .RC en espcial el control con el ID 102
Code (fw): Select all Collapse
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 (fw): Select all Collapse
    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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Error al crear dialogo con IMAGE
Posted: Thu Jun 13, 2013 02:41 PM
Code (fw): Select all Collapse
 CONTROL "", 101, "TImage", 0x00000000, 8, 20, 148, 148
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 464
Joined: Tue Mar 21, 2006 07:30 PM
Re: Error al crear dialogo con IMAGE
Posted: Thu Jun 13, 2013 02:55 PM

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?

Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Error al crear dialogo con IMAGE
Posted: Thu Jun 13, 2013 07:40 PM

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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 464
Joined: Tue Mar 21, 2006 07:30 PM
Re: Error al crear dialogo con IMAGE
Posted: Thu Jun 13, 2013 08:32 PM

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.

Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Error al crear dialogo con IMAGE
Posted: Thu Jun 13, 2013 10:50 PM
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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Error al crear dialogo con IMAGE
Posted: Sat Jun 15, 2013 05:39 PM

Pedro:

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

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Continue the discussion