FoxPro/Visual FoxPro - Manejo de imágenes dentro de un objeto

 
Vista:

Manejo de imágenes dentro de un objeto

Publicado por AKIKO (10 intervenciones) el 09/01/2007 05:09:23
Saludos y un feliz año 2007 para ti y los tuyos.

Gracias por leer mi pregunta.

Existe alguna forma de manipular un objeto de manera tal que se puedan cargar dentro de dicho objeto miniaturas de imagenes ??? Mas o menos como usar unas direcciones sacadas de unos registros que apuntan a unas imagenes. He intentado usar un grid pero con pésimos resultados pues me repite las imágenes, asi como tambien me ha pasado algo similar usando un cuadro de lista que tambien me repite las imagenes. La mecánica ha sido la misma: abrir una tabla y extraer de un campo memo la dirección de la imagen pero no ha resultado en ninguno de los dos casos planteados anteriormente.

Gracias por tu valiosa ayuda porque nos e que hacer con este problema

AKIKO

p.d. uso visual foxpro 6.0 pero si tu solución trabaja en una versión posterior no tengo problema en migrar a una versión posterior
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Manejo de imágenes dentro de un objeto

Publicado por Roman Suazo (2723 intervenciones) el 09/01/2007 08:39:10
Este codigo de Cetin Basoz. creo qu te puede servir:

lcPath = getdir()
lnFiles = adir(aImageList, lcPath+'*.*')
Create cursor myImageList (FileName m)
For ix=1 to alen(aImageList,1)
Insert into myImageList values (lcPath+aImageList[ix,1])
Endfor
Go top
oForm = createobject('myForm')
With oForm
.Lockscreen = .t.
.Height = 400
.Width = 600
.Addobject('myGrid','Grid')
.Addobject('clbutton','closebutton')
.clbutton.visible = .t.
With .myGrid
.Left = 0
.Top = 20
.Height = 370
.Width = 590
.Columncount = -1
.Recordsource = 'myImageList'
.Columncount = 2
.RowHeight = .RowHeight * 7
With .Columns(2)
.Addobject('myContainer','Container')
.CurrentControl = 'myContainer'
.Sparse = .f.
With .myContainer
.Addobject('myImage','Image')
.myImage.Visible = .t.
Endwith
.Dynamicbackcolor = 'thisform.fake()'
Endwith
.Visible = .t.
Endwith
.Lockscreen = .f.
Endwith
oForm.Show
Read events
Define class myForm as Form
Procedure fake Thisform.myGrid.Columns(2).myContainer.myImage.Picture = myImageList.FileName
Return thisform.myGrid.Backcolor
Endproc
Enddefine
Define class CloseButton as commandbutton
Height = 15
Caption ='close'
Procedure click
Clear events
Thisform.release
Endproc
Enddefine
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Gracias a Roman Suazo

Publicado por AKIKO (10 intervenciones) el 09/01/2007 20:24:10
Gracias amigo

Ya tengo el codigo, me sentare a estudiarlo y lo insertare en el proyecto. Cualqueir cosa te pregunto luego

Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar