Imprimir dentro de un Control Image

21/10/2006 - 17:56 por Samuel SMH | Informe spam

Buenos dias;
Necesito imprimir puntos de colores en una imagen JPG la cual esta dentro de
un Control Imagen en mi form; pero no se como hacerlo;
para hacer esto necesito guiarme de coordenadas(X,Y)? que comando me
imprime puntos de colores?, por donde empiezo?

Lo que deseo hacer es, tengo el mapa de un distrito en una control imagen y
lo que quiero es imprimir en ciertas coordenadas puntos de colores
que representan por ejemplo; punto azul= hospital; punto verde= parque;
punto rojo=comisaria.

Espero me hayan comprendido; esto es nuevo para mi.
Acepto sugerencias.
Gracias.

SAMUEL

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

¿Cómo impedir imprimir un rango dentro del área de impresión?

Leer las respuestas

#1 Jose A. Blasco

23/10/2006 - 12:41 | Informe spam

Nunca he tenido que hacer algo parecido pero, imagino que tendras que podrías
colocar el control image dentro de un "container" y ajustado a este, tomando
su "top" y "left" como coordenadas de partida, o bien controlando el top y
left del control "image" sobre el "form", y pintar directamente sobre este.

Saludos. Jose A. Blasco
Zaragoza - España
VFP8 + SP1

Responder a este mensaje

#2 Samuel SMH

23/10/2006 - 19:17 | Informe spam

Que comando uso?;

existira el metodo Print en VFP como en Visaul basic,

"Jose A. Blasco" wrote:

Nunca he tenido que hacer algo parecido pero, imagino que tendras que podrías
colocar el control image dentro de un "container" y ajustado a este, tomando
su "top" y "left" como coordenadas de partida, o bien controlando el top y
left del control "image" sobre el "form", y pintar directamente sobre este.

Saludos. Jose A. Blasco
Zaragoza - España
VFP8 + SP1

Responder a este mensaje

#3 Jose A. Blasco

24/10/2006 - 17:22 | Informe spam

Ejecuta

Do Home(2)+'solution\solution.app'

y busca en "Forms", "Form graphics", "Draw lines and shapes on a form"

Saludos. Jose A. Blasco
Zaragoza - España
VFP8 + SP1

Responder a este mensaje

#4 Jose A. Blasco

24/10/2006 - 17:43 | Informe spam

Te adjunto un pequeño ejemplo

**************************************************
PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN

**************************************************
*-- Form: form1 (c:\fuentes\dacar\probar.scx)
*-- ParentClass: form
*-- BaseClass: form
*-- Time Stamp: 10/24/06 05:40:06 PM
*
DEFINE CLASS form1 AS form

DoCreate = .T.
Caption = "Form1"
ForeColor = RGB(0,0,0)
Name = "Form1"

ADD OBJECT command1 AS commandbutton WITH ;
Top = 168, ;
Left = 288, ;
Height = 37, ;
Width = 61, ;
Caption = "Salir", ;
Name = "Command1"

ADD OBJECT command2 AS commandbutton WITH ;
Top = 24, ;
Left = 288, ;
Height = 37, ;
Width = 61, ;
Caption = "Dibujar", ;
Name = "Command2"

ADD OBJECT command3 AS commandbutton WITH ;
Top = 72, ;
Left = 288, ;
Height = 37, ;
Width = 61, ;
Caption = "Rellenar", ;
Name = "Command3"

PROCEDURE command1.Click
thisform.Release
ENDPROC

PROCEDURE command2.Click
thisform.ForeColor=Rgb(255,0,0)
thisform.Circle (8,50,50,1)
ENDPROC

PROCEDURE command3.Click
thisform.ForeColor=Rgb(255,0,0)
thisform.FillStyle= 0
thisform.FillColor=Rgb(255,0,0)
thisform.Circle (5,80,50,1)
ENDPROC

ENDDEFINE
*
*-- EndDefine: form1
**************************************************

Saludos. Jose A. Blasco
Zaragoza - España
VFP8 + SP1

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida