https://foro.gambas-es.org/viewtopic.php?f=1&t=64
-----------------------------------
nrcefe
Jueves, 24 Septiembre 2009, 03:50

Imagen En Un Drawingarea
-----------------------------------
hola : estoy intentando poner una imagen en un drawingarea pero de la unica forma que lo he conseguido es ingresando el control picturebox en un formulario :


[spoiler]Dialog.Path = "/home/norberto/Documentos/capetadetrabajos/escritorio/proyectoreporte/compu.png"
  PictureBox1.Picture = Picture.Load(Dialog.Path)

Draw.Begin(DrawingArea1)
  Draw.Picture(PictureBox1.Picture, 2, 2)
 Draw.End[/spoiler]


tambien he intentado sin resultado positivo lo siguiente
[spoiler]
dim pic as new picture
Dialog.Path = "/home/norberto/Documentos/capetadetrabajos/escritorio/proyectoreporte/compu.png"
pic.Load(Dialog.Path)

Draw.Begin(DrawingArea1)
  Draw.Picture(pic.Picture, 2, 2)
 Draw.End[/spoiler]


me gustaria saber si se puede insertar una imagen pero sin usar un picturebox
muchas gracias


-----------------------------------
nrcefe
Jueves, 24 Septiembre 2009, 04:51

[SOLUCIONADO] Re:Imagen En Un Drawingarea
-----------------------------------
ya he conseguido hacer lo que buscaba, ..de pura suerte :

[spoiler]
PRIVATE imag AS PictureBox
...
...
PUBLIC SUB PictureBox1_DblClick()
  Dialog.Path = "/home/norberto/Documentos/capetadetrabajos/escritorio/proyectoreporte/compu.png"
  PictureBox1.Picture = Picture.Load(Dialog.Path)
  imag = NEW PictureBox(DrawingArea1) AS "picture"
  imag.Stretch = TRUE
  imag.Picture = Picture.Load(Dialog.Path)
END[/spoiler]


-----------------------------------
CanihoJR
Jueves, 24 Septiembre 2009, 13:52

Re: Imagen En Un Drawingarea
-----------------------------------
Edita el titulo y coloca [SOLUCIONADO]  ;)

Gracias por la respuesta :D me será util :)


-----------------------------------
jguardon
Jueves, 24 Septiembre 2009, 18:19

Re: Imagen En Un Drawingarea
-----------------------------------
Hola nrcefe y los demás

Creo que te estás complicando la vida demasiado... es tan simple como:


[code linenumbers=false syntax=gambas]
PRIVATE pic as Picture

'en el form load, o en otro método:

pic = Picture["/home/norberto/Documentos/capetadetrabajos/escritorio/proyectoreporte/compu.png" ]

'el método para dibujar el picture dentro del DrawingArea:


PUBLIC SUB drwPic(pic AS Picture)

    DrawingArea1.Width = pic.Width     ' si quieres ajustar el tamaño
    DrawingArea1.Height = pic.Height   ' del DA al de la foto
   
    Draw.Begin( DrawingArea1)
    Draw.Picture(pic, 0, 0)
    Draw.End()    
    
END[/code]

Espero que te sirva, un saludo


-----------------------------------
nrcefe
Jueves, 24 Septiembre 2009, 22:32

Re: Imagen En Un Drawingarea
-----------------------------------
antes que nada gracias, es mas sencillo de la forma que tu lo hiciste, lo que pasa es que de esa manera no puedo mover la imagen que agrego al drawingarea en tiempo de ejecucion (al menos yo no se hacerlo   ;-) )


