topic-16125

wmormar

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Drag & Drop TImage
Posted: Wed Jul 15, 2009 05:50 AM

Amigos,

Como el "asunto", se podrá y si alguien tiene un ejemplo estaría muy agradecido.

saludos de antemano y mil gracias

William, Morales

Saludos

méxico.sureste

wmormar

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Re: Drag & Drop TImage
Posted: Wed Jul 15, 2009 05:34 PM

Amigos,

Una luz?

saludos

William, Morales

Saludos

méxico.sureste

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Drag & Drop TImage
Posted: Thu Jul 16, 2009 07:27 AM

William,

Revisa la forma en que se mueven las cabeceras del xbrowse con el ratón

Ese código puede servirte :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

wmormar

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Re: Drag & Drop TImage
Posted: Thu Jul 16, 2009 03:55 PM

Antonio Linares,

Lo haré, muchas gracias

William, Morales

Saludos

méxico.sureste

wmormar

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Re: Drag & Drop TImage
Posted: Mon Jul 20, 2009 11:47 AM

,Antonio Linares,

He revisado lo comentado sobre el xBrowse y no encuentro como aplicarlo a un TImage.

Lo que necesito hacer es lo siguiente.

De un archivo visto en el administrador de archivos de windows, arrastrarlo hasta el control TImage en mi aplicación y obviamente se cargue el archivo y se despliegue en el control TImage.

Cualquier luz es bienvenida.
Gracias de antemano

William, Morales

Saludos

méxico.sureste

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Drag & Drop TImage
Posted: Tue Jul 21, 2009 01:25 PM

Aquí se muestra un ejemplo de programa. Puede arrastrar cualquier archivo de imagen
y soltar el control sobre este TImage. TImage control
muestra el archivo de imagen se redujo.
(No sé español. Este equipo es el texto traducido)

Code (fw): Select all Collapse

#include 'fivewin.ch'

function Main()

   local oDlg, oImage

   DEFINE DIALOG oDlg SIZE 340,340 PIXEL ;
      TITLE 'Drag and Drop Image File'

   @ 10,10 IMAGE oImage FILE 'c:\fwh\bitmaps\hires\exel.png' ;
      SIZE 150,150 PIXEL OF oDlg

   oImage:bDropFiles := { |r,c,aFiles| ;
      If( Lower( cFileExt( aFiles[ 1 ] ) ) $ 'bmp,png,jpg,jpeg', ;
         ( oImage:LoadImage( nil, aFiles[ 1 ] ), oImage:Refresh() ), ;
         MsgInfo( 'not image file', aFiles[ 1 ] ) ) }

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT DragAcceptFiles( oImage:hWnd, .t. )

return nil

Regards

G. N. Rao.

Hyderabad, India

wmormar

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Re: Drag & Drop TImage
Posted: Tue Jul 21, 2009 04:50 PM

nageswaragunupudi,

Gracias, he logrado lo que necesitaba. mil gracias

Thank very much.
regards

William, Morales

Saludos

méxico.sureste

wmormar

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Re: Drag & Drop TImage
Posted: Tue Jul 21, 2009 05:22 PM

nageswaragunupudi,

Funciona perfecto, el problema es con los folders, tengo un folder con 4 pestañas y no he podido hacerlo funcionar en un control especifico como el de IMAGE.

Sigo investigando, cualquier luz es bienvenida.

saludos

William, Morales

Saludos

méxico.sureste

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Drag & Drop TImage
Posted: Wed Jul 22, 2009 07:03 AM

Esta es una muestra de trabajo

Code (fw): Select all Collapse

#include 'fivewin.ch'

function Main()

   local oDlg, oImage, oFolder

   DEFINE DIALOG oDlg SIZE 340,340 PIXEL ;
      TITLE 'Drag and Drop Image File'

   @  5, 5 FOLDER oFolder PROMPT 'One', 'Two' SIZE 150,150 PIXEL OF oDlg


   @ 10,10 IMAGE oImage FILE 'c:\fwh\bitmaps\hires\exel.png' ;
      SIZE 150,150 PIXEL OF oFolder:aDialogs[ 1 ]

   oImage:bDropFiles := { |r,c,aFiles| ;
      If( Lower( cFileExt( aFiles[ 1 ] ) ) $ 'bmp,png,jpg,jpeg', ;
         ( oImage:LoadImage( nil, aFiles[ 1 ] ), oImage:Refresh() ), ;
         MsgInfo( 'not image file', aFiles[ 1 ] ) ) }

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT DragAcceptFiles( oImage:hWnd, .t. )

return nil

Regards

G. N. Rao.

Hyderabad, India

FiveTech Support Forums

Continue the discussion