Componente de arrastrar

[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

[gianfranco_tont]

Eso es justamente lo que quiero pedir de su ayuda ya que efectivamente quiero guardar la imagen en la tabla de productos pero no se como hacerla, que tipo de campo crear y como hago finalmente para guardarla. Si tienen algun ejemplo eso me ayudaria mucho mi bd en sql 2008 y esto trabajando con delphi 2009

[[Caral]]

Hola
Aqui te dejo otro ejemplo para que juegues un rato.
Este ejemplo crea dentro del scrollBox los paneles, las imágenes y los label (en ejecución).
Espero que con esto y todos los demás ejemplos puedas ir armando tu sistema.
Ojala te sirva de algo.
Saludos
PD: He tenido que poner el enlace por que el tamaño del archivo no me deja subirlo aquí.

[gianfranco_tont]

gracias caral, aun veo como mejor opción tener las fotos en la base de datos, si tienes un ejemplo de eso si me ayudaria muchissimo, ya que no se que campo crear en la tabla para que me almacene la foto y si este campo funciona igual a cualquier otro para guardar la foto en el.