FoxPro/Visual FoxPro - Ayuda para cargar imagen

 
Vista:

Ayuda para cargar imagen

Publicado por IDELSY B. (25 intervenciones) el 12/10/2016 00:59:02
Saludo amigos del foro:

Reciban un cordial saludo de mi parte, al tiempo que le doy a conocer mi problema.

Quiero cargar una foto en un campo image pero no deseo el cuadro de dialogo, lo quiero hacer directamenta con el nombre del archivo que quiero cargar.

Tengo los siguiente pero este me abre el cuadro para dar doble clic en la foto y yo lo quiero hacer directo.

SET DEFAULT TO d:\fotos

resul = ''
resul = GETPICT(" "," ")
thisform.foto.picture = resul
thisform.refresh

Esto lo hace mas o menos bien pero abriendo el cuadro de dialogo.

Gracias a todos por intentar o poder ayudarme.
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
sin imagen de perfil
Val: 1.370
Oro
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Ayuda para cargar imagen

Publicado por Fidel José (642 intervenciones) el 12/10/2016 01:29:30
Puedes hacerlo de muchas maneras. Esta es una bastante general:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
PROCEDURE Assign_Picture
*-----------------------
*!* Parameters
*!*	toImage				Referencia de objeto al objeto Image
*!*	tcPictureFile		Path + FileName + FileExt del archivo de imagen
*!*	tnFlag				0-Clip // 1-Isometric (Default) // 2-Stretch
*!* ---------------------------------------------------------------------
LPARAMETERS toImage,tcPictureFile,tnFlag
IF VARTYPE(m.tnFlag)#"N"
	tnFlag = 1
ENDIF
IF !BETWEEN(m.tnFlag,0,2)
	m.tnFlag = 1
ENDIF
IF EMPTY(m.tcPictureFile) OR !FILE(m.tcPictureFile)
	m.tcPictureFile = GETPICT("bmp,jpg,png")
ENDIF
IF !EMPTY(m.tcPictureFile)
	IF VARTYPE(toImage) = "O" AND PEMSTATUS(toImage,"picture",5)
		toImage.Picture = tcPictureFile
		toImage.stretch = m.tnFlag
	ENDIF
ENDIF
toImage = null
ENDPROC

Para lanzar el procedure anterior, mra este código para la ventana de comandos
1
2
3
4
5
6
7
8
lcPictureFile = "c:\Theodore\GRAPHICS\Theodore.png"
oform = NEWOBJECT("Form")
oform.NewObject("MyPicture","Image")
oform.MyPicture.Top = 5
oform.MyPicture.Left = 5
Assign_Picture(oform.myPicture,m.lcpicturefile)
oform.myPicture.Visible = .t.
oform.Show()
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

Ayuda para cargar imagen

Publicado por IDELSY B. (25 intervenciones) el 21/10/2016 03:18:27
Saludo a todos

Gracias por su ayuda, con esto estoy segura que trato el problema.

Mil gracias a todos.
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
Imágen de perfil de Eduardo Ureña Solano
Val: 77
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Ayuda para cargar imagen

Publicado por Eduardo Ureña Solano (116 intervenciones) el 12/10/2016 23:13:22
Simple.. utilizando su mismo código

SET DEFAULT TO d:\fotos

resul = "mi_nombre_de_imagen.jpg"
thisform.foto.picture = resul
thisform.refresh
------------
O sin usar la variable ni cambiando el directorio que está por omisión:

thisform.foto.picture = "d:\fotos\mi_nombre_de_imagen.jpg"
thisform.refresh


Saludos
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