Componente de arrastrar

[gianfranco_tont]

en la tabla de productos tengo un campo donde se guarda la ruta del del archivo jpg, la misma se esta colocando una carpeta es el servidor donde el nombre del archivo es igual a el código del producto .jpg

[[Caral]]

Hola
Entonces estas usando un loadfromfile para traer la foto según el dato que tienes en el campo + el nombre del campo codigo.
Bueno, me parece bien, algo complicado, pero bien.
No tengo ningún ejemplo de eso, tendría que currarlo.
Esencialmente es sencillo.
Haces el filtro de la BD.
Traes la informacion al dbgrid.
Llamas al archivo de las fotos, las recorres y buscas los nombres que coincidan con los archivos de dataset (dbgrid).
Creas Un Tpanel y un TImagen en ejecucion con el tamaño que necesites y los presentas, vas aumentando el left para se vallan presentando, cuando lleguen a un top, automaticamete el srollbox creara el scrollbar.
Por ahi anta la cosa.
Saludos

[gianfranco_tont]

si tienes otra forma mejor de guardar una foto en la tabla o cual seria la mejor opcion de hacerlo?
Ahora bien yo coloco el tpanel pero como hago para que la informacion de la tabla se vea en ella, tomando en cuenta que pueden ser 50, 60 o 30 productos dependiendo de la cosulta que le haga. como explique anteriormente voy utilizar el evento onchange de un edit.text y el la consulta del sql utilizare un like %''%.

[[Caral]]

Hola
Con relacion a la foto esta bien que este en un directorio.
Con relacion a la informacion y el panel o frame y la imagen con la informacion tienes que crearla por ejecucion o tambien puedes colocar 100 paneles en el scrollbox con sus respectivos timage pero es algo sucio.
Saludos

[[Caral]]

Hola
Este calendario lo hizo El Maestro Lepe.
Lo busque en el FTP pero no estaba asi que lo pongo otra vez, ademas de que te servira de ejemplo para lo que necesitas.
Saludos

[gianfranco_tont]

lo estoy haciendo con un dbctrlgrid al parecer me esta reflejando lo que necesito apena estoy comenzando luego te cuento, lo que falta es adatar tu ejemplo para arrastrarlo a un dbgrid

[roman]

Hola gianfranco_tont,

En mi opinión, el ejemplo que te esbozó ecfisa desde un principio es el camino a seguir. Tú quieres mostrar una banda de imágenes (y otra información) que provienen de una base de datos, por lo que la opción de usar un DBCtrlGrid es la más adecuada, ya que dicho control te facilita todo el desplazamiento y presentación de los datos.

Un pequeño inconveniente es que las imágenes las guardas en archivos fuera de la base de datos, por lo que no te vale colocar un DBImage. Pero no es un gran inconveniente. Coloca en su lugar un Image normal en el panel del DBCtrlGrid y en el evento OnPaintPanel del DBCtrlGrid cargas la imagen que corresponda:

Código Delphi [-]
procedure TForm1.DBCtrlGrid1PaintPanel(DBCtrlGrid: TDBCtrlGrid; Index: Integer);
begin
  Image1.Picture.LoadFromFile(DBCtrlGrid.DataSource.DataSet['ruta']);
end;

Para arrastrar la imagen únicamente tienes que usar los eventos OnDragOver y OnDragDrop del DBGrid:

DragOver:

Código Delphi [-]
Accept := Source is TImage;

DragDrop:

Código Delphi [-]
Valor := DBCtrlGrid1.DataSource.DataSet.FieldByName('...').AsString;

Es decir, usas el valor del campo del dataset como requieras.

Para iniciar el arrastre, ecfisa usó el evento OnMouseDown del (DB)Image, pero tiene un problema, y es que debes seleccionar primero el panel deseado y luego hacer el arrastre. Es decir, si intentas arrastrar directamente un panel que no está seleccionado no se puede, o al menos es lo que he observado.

Para remediar esto basta que uses el evento OnMouseDown del DBCtrlGrid y ahí hagas lo mismo:

Código Delphi [-]
Image1.BeginDrag(true);

// Saludos