FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Refrescar imagen
Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM
Refrescar imagen
Posted: Tue Sep 18, 2007 02:14 PM

Hola a todos

Estoy cargando una imagen en un dialogo creado con workshop pero cuando cambio el archivo no se actualiza.
Alguien sabe porque puede ser?

Lo estoy haciendo así.

REDEFINE BITMAP oBmp ID 100 OF oDlg FILE Archivo ADJUST UPDATE

...

La variable Archivo la cargo con la funcion con un boton en el dialogo donde redefino el bmp.
Function SelFile(oBmp,Archivo)
Archivo:= cGetFile32("BMP | *.bmp","Seleccione un archivo",1,,,.T.)

oBmp:Refresh()
Return nil
//

Si yo grabo el Path del archivo cierro el dialogo y lo vuelvo a abrir se ve la imagen cargada.

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda
Posts: 989
Joined: Thu Nov 24, 2005 03:01 PM
Refrescar imagen
Posted: Tue Sep 18, 2007 02:55 PM

No es suficiente con el refresh del bitmap, ni se va a enterar automaticamente de que Archivo tenga otro valor.
Antes del refresh llama a SetBMP( Archivo ) o Reload(, Archivo )

Carlos

Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM
Refrescar imagen
Posted: Tue Sep 18, 2007 03:54 PM

Carlos gracias por tu ayuda

Lo probé asi

Function SelFile(oBmp,Archivo)
Archivo:= cGetFile32("BMP | *.bmp","Seleccione un archivo",1,,,.T.)

oBmp:SetBMP( Archivo ) // Solo este una vez
oBmp:Reload( , Archivo ) // Solo este una vez
oBmp:Refresh()
Return nil

También probé con ambos al mismo tiempo y no ha funcionado.
Porque puede ser?
Desde ya muchas gracias.

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda
Posts: 838
Joined: Wed Aug 22, 2007 10:09 AM
Refrescar imagen
Posted: Tue Sep 18, 2007 04:52 PM

Añade oDlg:Update()

y en el redefine bitmap UPDATE

Saludos / Regards,



FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM
Refrescar imagen
Posted: Tue Sep 18, 2007 05:52 PM

Gracias Moises

Probé lo que me recomendaste pero sigue sin funcionar.

Saludos.

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda
Posts: 210
Joined: Sun Jul 23, 2006 01:15 AM
Refrescar imagen
Posted: Tue Sep 18, 2007 06:14 PM

readbimap(0,"caminho")

FWH25+XHARBOUR 99.50
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Refrescar imagen
Posted: Tue Sep 18, 2007 06:43 PM

Ojeda:

Mira qué es lo que te devuelve la función cGetFile32(), posiblemente sea problema de rutas o nombres largos.

MsgInfo(Archivo)

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: 601
Joined: Wed Jul 04, 2007 03:51 PM
Refrescar imagen
Posted: Tue Sep 18, 2007 07:38 PM
Gracias a todos por su ayuda.

Ya logré solucionar el problema de la siguiente manera

Function SelFile(oBmp,Foto,oDlg1)
Foto:= cGetFile32("BMP | *.bmp","Seleccione un archivo",1,,,.T.)
oBmp:SetBMP("",Foto)
oBmp:Reload("",Foto)
oBmp:Refresh()
oDlg1:Update()
oDlg1:Refresh()
Return nil
//


y en el dialogo redefino el get de la siguiente forma:

   REDEFINE BITMAP oBmp ID 106 OF oDlg1 FILE Foto ADJUST UPDATE
   REDEFINE BTNBMP Btn1 ID 107 OF oDlg1 RESOURCE "FLOPPY" LEFT;
      ACTION SelFile(oBmp,@Foto,oDlg1)

y funciona perfectamente. La imagen se refresca en el momento.
Gracias a todos.
Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda

Continue the discussion