Componente de arrastrar

[[Caral]]

Hola
Con esto de mover componentes me acorde del maestro Neftali y un ejemplo muy bueno que hizo.
Con su código he hecho este pequeño juego.
Con el mouse (click Derecho) tomad la imagen y arrastrarla al dbgrid.
Saludos

[gianfranco_tont]

oye caral, tu ejemplo es justo lo que estaba buscando, vale eres grande!!! pero ahora tengo una sola duda como hago ya que tu solo tienes 4 imagenes arriba pero yo necesito estar enlazado con la base de datos de productos asi que voy a tener muchissima imagenes la cual la pueda navegar en ella con un scrol ademas quisiera que en un evento onchange de un edit.text colocarle un like para reducirla busqueda, ademas otra cosa debajo de la imagen debe venir un label con la informacion de cantidad y descripcion de producto.

[[Caral]]

Hola
Tu en realidad, segun veo vas a tener solo una imagen que va a ir cambiando, es lo mismo, solo que con una, no creo que sea con muchas.
La imagen la puedes poner dentro de un panel y en este poner el label o lo que necesites, a la hora de mmoverla tendra que cambiar el codigo de imagen a panel.
Para que filtra hazte un procedimiento y llamalo.
Saludos

[gianfranco_tont]

al contrario de hecho utilizo un like para reducir la busqueda, sobre una tabla de 1500 productos lo que quiero obtener con el like es que cuando el usuario escriba ejemplo 'ceramica 30X30' obviamente solo en ese modelo tengo 75 productos cada uno distinto, por eso mi duda.

[[Caral]]

Hola
Y recibe 75 imagenes ?.
No es mejor que cuando le de click al dbgrid le cambie la imagen ?
Saludos

[gianfranco_tont]

claro recibo la 75 imágenes pero por supuesto en el panel no pueden ir la 75 por eso deberia tener algo que lo pueda mover con un scrol vertical.

[[Caral]]

Hola
Para hacer eso usa un srollBox (paleta adicional), ya trae el scroll.
Saludos

[gianfranco_tont]

Empezado por Caral

Hola
Con esto de mover componentes me acorde del maestro Neftali y un ejemplo muy bueno que hizo.
Con su código he hecho este pequeño juego.
Con el mouse (click Derecho) tomad la imagen y arrastrarla al dbgrid.
Saludos

caral, ya pude resolver que la imagen se guardara en la tabla y ahora si puedo ver toda la informacion en el DBctrlgrid perfectamente, me copie lo que necesite de tu aplicacion y puedo arrastrar la foto que esta dentro del DBctrlgrid pero ahora tengo un problemita la imagen no sale del DBctrlgrid para llevarla al dbgrid.

como pudiera solucionar eso?

[gianfranco_tont]

Empezado por gianfranco_tont

caral, ya pude resolver que la imagen se guardara en la tabla y ahora si puedo ver toda la informacion en el DBctrlgrid perfectamente, me copie lo que necesite de tu aplicacion y puedo arrastrar la foto que esta dentro del DBctrlgrid pero ahora tengo un problemita la imagen no sale del DBctrlgrid para llevarla al dbgrid.

como pudiera solucionar eso?

Alguien tiene alguna idea como ayudar con esto?

[gianfranco_tont]

Empezado por gianfranco_tont

Alguien tiene alguna idea como ayudar con esto?

Código Delphi [-]
unit Unitcotizacion;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ExtCtrls, StdCtrls, DBCGrids, Mask, JPEG, DBCtrls, Buttons,
  Grids, DBGrids;

type
    TControlActual = Class(TControl);
  TFormcotizacion = class(TForm)
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Edit1: TEdit;
    DBCtrlGrid1: TDBCtrlGrid;
    DBMemo1: TDBMemo;
    DBText3: TDBText;
    DBGrid1: TDBGrid;
    Button1: TButton;
    ADOQuery1co_art: TStringField;
    ADOQuery1art_des: TStringField;
    ADOQuery1fecha_reg: TDateTimeField;
    ADOQuery1manj_ser: TBooleanField;
    ADOQuery1co_lin: TStringField;
    ADOQuery1co_cat: TStringField;
    ADOQuery1co_subl: TStringField;
    ADOQuery1co_color: TStringField;
    ADOQuery1item: TStringField;
    ADOQuery1ref: TStringField;
    ADOQuery1modelo: TStringField;
    ADOQuery1procedenci: TStringField;
    ADOQuery1comentario: TMemoField;
    ADOQuery1co_prov: TStringField;
    ADOQuery1ubicacion: TStringField;
    ADOQuery1uni_venta: TStringField;
    ADOQuery1uni_compra: TStringField;
    ADOQuery1uni_relac: TFMTBCDField;
    ADOQuery1relac_aut: TIntegerField;
    ADOQuery1stock_act: TFMTBCDField;
    ADOQuery1stock_com: TFMTBCDField;
    ADOQuery1sstock_com: TFMTBCDField;
    ADOQuery1stock_lle: TFMTBCDField;
    ADOQuery1sstock_lle: TFMTBCDField;
    ADOQuery1stock_des: TFMTBCDField;
    ADOQuery1sstock_des: TFMTBCDField;
    ADOQuery1suni_venta: TStringField;
    ADOQuery1suni_compr: TStringField;
    ADOQuery1suni_relac: TBCDField;
    ADOQuery1sstock_act: TFMTBCDField;
    ADOQuery1relac_comp: TFMTBCDField;
    ADOQuery1relac_vent: TFMTBCDField;
    ADOQuery1pto_pedido: TFMTBCDField;
    ADOQuery1stock_max: TFMTBCDField;
    ADOQuery1stock_min: TFMTBCDField;
    ADOQuery1prec_om: TBooleanField;
    ADOQuery1prec_vta1: TFMTBCDField;
    ADOQuery1fec_prec_v: TDateTimeField;
    ADOQuery1fec_prec_2: TDateTimeField;
    ADOQuery1prec_vta2: TFMTBCDField;
    ADOQuery1fec_prec_3: TDateTimeField;
    ADOQuery1prec_vta3: TFMTBCDField;
    ADOQuery1fec_prec_4: TDateTimeField;
    ADOQuery1prec_vta4: TFMTBCDField;
    ADOQuery1fec_prec_5: TDateTimeField;
    ADOQuery1prec_vta5: TFMTBCDField;
    ADOQuery1prec_agr1: TFMTBCDField;
    ADOQuery1prec_agr2: TFMTBCDField;
    ADOQuery1prec_agr3: TFMTBCDField;
    ADOQuery1prec_agr4: TFMTBCDField;
    ADOQuery1prec_agr5: TFMTBCDField;
    ADOQuery1can_agr: TFMTBCDField;
    ADOQuery1fec_des_p5: TDateTimeField;
    ADOQuery1fec_has_p5: TDateTimeField;
    ADOQuery1co_imp: TStringField;
    ADOQuery1margen_max: TBCDField;
    ADOQuery1ult_cos_un: TFMTBCDField;
    ADOQuery1fec_ult_co: TDateTimeField;
    ADOQuery1cos_pro_un: TFMTBCDField;
    ADOQuery1fec_cos_pr: TDateTimeField;
    ADOQuery1cos_merc: TFMTBCDField;
    ADOQuery1fec_cos_me: TDateTimeField;
    ADOQuery1cos_prov: TFMTBCDField;
    ADOQuery1fec_cos_p2: TDateTimeField;
    ADOQuery1ult_cos_do: TFMTBCDField;
    ADOQuery1fec_cos_do: TDateTimeField;
    ADOQuery1cos_un_an: TFMTBCDField;
    ADOQuery1fec_cos_an: TDateTimeField;
    ADOQuery1ult_cos_om: TFMTBCDField;
    ADOQuery1fec_ult_om: TDateTimeField;
    ADOQuery1cos_pro_om: TFMTBCDField;
    ADOQuery1fec_pro_om: TDateTimeField;
    ADOQuery1tipo_cos: TStringField;
    ADOQuery1mont_comi: TBCDField;
    ADOQuery1porc_cos: TBCDField;
    ADOQuery1mont_cos: TBCDField;
    ADOQuery1porc_gas: TBCDField;
    ADOQuery1mont_gas: TBCDField;
    ADOQuery1f_cost: TDateTimeField;
    ADOQuery1fisico: TBooleanField;
    ADOQuery1punt_cli: TBCDField;
    ADOQuery1punt_pro: TBCDField;
    ADOQuery1dias_repos: TIntegerField;
    ADOQuery1tipo: TStringField;
    ADOQuery1alm_prin: TStringField;
    ADOQuery1anulado: TBooleanField;
    ADOQuery1tipo_imp: TStringField;
    ADOQuery1dis_cen: TMemoField;
    ADOQuery1mon_ilc: TFMTBCDField;
    ADOQuery1capacidad: TBCDField;
    ADOQuery1grado_al: TBCDField;
    ADOQuery1tipo_licor: TStringField;
    ADOQuery1compuesto: TBooleanField;
    ADOQuery1imagen: TBlobField;
    ADOQuery1picture: TBlobField;
    ADOQuery1codigo1: TStringField;
    ADOQuery1codigo2: TStringField;
    ADOQuery1codigo3: TStringField;
    ADOQuery1codigo4: TStringField;
    ADOQuery1codigo5: TStringField;
    ADOQuery1codigo6: TStringField;
    ADOQuery1codigo7: TStringField;
    ADOQuery1codigo8: TStringField;
    ADOQuery1co_us_in: TStringField;
    ADOQuery1fe_us_in: TDateTimeField;
    ADOQuery1co_us_mo: TStringField;
    ADOQuery1fe_us_mo: TDateTimeField;
    ADOQuery1co_us_el: TStringField;
    ADOQuery1fe_us_el: TDateTimeField;
    ADOQuery1revisado: TStringField;
    ADOQuery1trasnfe: TStringField;
    ADOQuery1co_sucu: TStringField;
    ADOQuery1rowguid: TGuidField;
    ADOQuery1tuni_venta: TStringField;
    ADOQuery1equi_uni1: TFMTBCDField;
    ADOQuery1equi_uni2: TFMTBCDField;
    ADOQuery1equi_uni3: TFMTBCDField;
    ADOQuery1lote: TBooleanField;
    ADOQuery1serialp: TStringField;
    ADOQuery1valido: TBooleanField;
    ADOQuery1atributo1: TBooleanField;
    ADOQuery1vatributo1: TStringField;
    ADOQuery1atributo2: TBooleanField;
    ADOQuery1vatributo2: TStringField;
    ADOQuery1atributo3: TBooleanField;
    ADOQuery1vatributo3: TStringField;
    ADOQuery1atributo4: TBooleanField;
    ADOQuery1vatributo4: TStringField;
    ADOQuery1atributo5: TBooleanField;
    ADOQuery1vatributo5: TStringField;
    ADOQuery1atributo6: TBooleanField;
    ADOQuery1vatributo6: TStringField;
    ADOQuery1garantia: TStringField;
    ADOQuery1peso: TFMTBCDField;
    ADOQuery1pie: TFMTBCDField;
    ADOQuery1margen1: TBCDField;
    ADOQuery1margen2: TBCDField;
    ADOQuery1margen3: TBCDField;
    ADOQuery1margen4: TBCDField;
    ADOQuery1margen5: TBCDField;
    ADOQuery1row_id: TBytesField;
    ADOQuery1imagen1: TStringField;
    ADOQuery1imagen2: TStringField;
    ADOQuery1i_art_des: TStringField;
    ADOQuery1uni_emp: TStringField;
    ADOQuery1rel_emp: TFMTBCDField;
    ADOQuery1movil: TBooleanField;
    ADOQuery1tot_costo: TFMTBCDField;
    DBImage1: TDBImage;
    DBText1: TDBText;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    ADOQuery2fact_num: TIntegerField;
    ADOQuery2contrib: TBooleanField;
    ADOQuery2nombre: TStringField;
    ADOQuery2rif: TStringField;
    ADOQuery2nit: TStringField;
    ADOQuery2status: TStringField;
    ADOQuery2comentario: TMemoField;
    ADOQuery2descrip: TStringField;
    ADOQuery2saldo: TBCDField;
    ADOQuery2fec_emis: TDateTimeField;
    ADOQuery2fec_venc: TDateTimeField;
    ADOQuery2co_cli: TStringField;
    ADOQuery2co_ven: TStringField;
    ADOQuery2co_tran: TStringField;
    ADOQuery2dir_ent: TMemoField;
    ADOQuery2forma_pag: TStringField;
    ADOQuery2tot_bruto: TFMTBCDField;
    ADOQuery2tot_neto: TFMTBCDField;
    ADOQuery2glob_desc: TBCDField;
    ADOQuery2tot_reca: TBCDField;
    ADOQuery2porc_gdesc: TStringField;
    ADOQuery2porc_reca: TStringField;
    ADOQuery2total_uc: TBCDField;
    ADOQuery2total_cp: TBCDField;
    ADOQuery2tot_flete: TBCDField;
    ADOQuery2monto_dev: TBCDField;
    ADOQuery2totklu: TBCDField;
    ADOQuery2anulada: TBooleanField;
    ADOQuery2impresa: TBooleanField;
    ADOQuery2iva: TBCDField;
    ADOQuery2iva_dev: TBCDField;
    ADOQuery2feccom: TDateTimeField;
    ADOQuery2numcom: TIntegerField;
    ADOQuery2tasa: TFMTBCDField;
    ADOQuery2moneda: TStringField;
    ADOQuery2cta_contab: TStringField;
    ADOQuery2seriales: TIntegerField;
    ADOQuery2tasag: TFMTBCDField;
    ADOQuery2tasag10: TFMTBCDField;
    ADOQuery2tasag20: TFMTBCDField;
    ADOQuery2campo1: TStringField;
    ADOQuery2campo2: TStringField;
    ADOQuery2campo3: TStringField;
    ADOQuery2campo4: TStringField;
    ADOQuery2campo5: TStringField;
    ADOQuery2campo6: TStringField;
    ADOQuery2campo7: TStringField;
    ADOQuery2campo8: TStringField;
    ADOQuery2co_us_in: TStringField;
    ADOQuery2fe_us_in: TDateTimeField;
    ADOQuery2co_us_mo: TStringField;
    ADOQuery2fe_us_mo: TDateTimeField;
    ADOQuery2co_us_el: TStringField;
    ADOQuery2fe_us_el: TDateTimeField;
    ADOQuery2revisado: TStringField;
    ADOQuery2trasnfe: TStringField;
    ADOQuery2co_sucu: TStringField;
    ADOQuery2rowguid: TGuidField;
    ADOQuery2mon_ilc: TFMTBCDField;
    ADOQuery2otros1: TFMTBCDField;
    ADOQuery2otros2: TFMTBCDField;
    ADOQuery2otros3: TFMTBCDField;
    ADOQuery2aux01: TFMTBCDField;
    ADOQuery2aux02: TStringField;
    ADOQuery2salestax: TStringField;
    ADOQuery2origen: TStringField;
    ADOQuery2origen_d: TStringField;
    ADOQuery2sta_prod: TStringField;
    ADOQuery2telefono: TStringField;
    procedure LimitaMovimiento(Control:TControl);
    procedure Edit1Change(Sender: TObject);
    procedure MoveControl(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure DBImage1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formcotizacion: TFormcotizacion;
  Const
   coma = #39;
   MARGEN = 8;  //8 Pixels

implementation
uses unit1;

{$R *.dfm}

procedure TFormcotizacion.LimitaMovimiento(Control:TControl);
//procedure de Radikal modificada
begin
  //Que no se salga horizontalmente:
  //if Control.Left < MARGEN then Control.Left:=MARGEN-7;
  //if Control.Left+Control.Width+MARGEN > Control.Parent.Width then
    //Control.Left:=(Control.Parent.Width-Control.Width)-MARGEN;
  //Ni Verticalmente
  //if Control.Top < MARGEN then Control.Top:=MARGEN;
  //if Control.Top > Control.Parent.Height-Control.Height-(MARGEN+19) then
  //  Control.Top:=(Control.Parent.Height-Control.Height)-(MARGEN+19);
  //if Control.Top > 140 then
  //Begin
  //if Control.Name = 'DBImage1' then
  //begin
  //DBImage1.Top:= 17;
  //DBImage1.Left:= 56;
  //end;
  //End;
end;


procedure TFormcotizacion.DBGrid1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
    Accept := Source is tImage;
end;

procedure TFormcotizacion.DBImage1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
      DbImage1.BeginDrag(true);
end;

procedure TFormcotizacion.Edit1Change(Sender: TObject);
begin
    if Edit1.Text <> '' then
      with ADOQuery1 do
      begin
      adoQuery1.Close;
      adoQuery1.Sql.Clear;
      adoQuery1.Sql.Add('Select * From art');
      adoQuery1.Sql.Add('where art_des like'+coma+'%'+Edit1.text+'%'+coma);
      adoquery1.Open;
      if adoQuery1.RecordCount  > 0 then
      begin
      try
      //Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'\IMAGEN\BOLSAS BLANCAS.JPEG');
      //Image1.Stretch:= True;
      except
      end;
      ADOQuery1.Close;
      adoQuery1.Sql.Clear;
      adoQuery1.Sql.Add('SELECT  TOP (200) imagen.art_des AS Expr149, imagen.foto, imagen.cod_art, art.co_art, art.art_des, art.uni_venta art ON imagen.cod_art = art.co_art');
      adoquery1.Open;
      //DBImage1.LoadPicture;
      LockWindowUpdate(0);

 end;
end;
end;

procedure TFormcotizacion.MoveControl(Sender:TObject; Button:TMouseButton;
          Shift:TShiftState; X,Y:Integer);
//procedure de Peter Morris modificada
var
  TempPanel: TPanel;
  Control: TControl;
begin
  //Aqui controlamos si debemos mover o no (ALT+Raton.BotonIzquierdo)
  //Pon la condición que quieras.
  //If (Not(ssAlt in Shift)) Then
  //Exit;
  // Releases the mouse capture from a window
  // Liberamos la captura de los eventos de raton de nuestra ventana
  ReleaseCapture;
  // If the component is a TWinControl, move it directly
  // Si el Control es del Tipo TWINCONTROL lo movemos directamente
  if Sender is TWinControl then
    Begin
      TWinControl(Sender).Perform(WM_SYSCOMMAND,$F012,0);
      LimitaMovimiento(TWinControl(Sender));
    End
   else//No es de tipo TWinControl
    try
      Control := TControl(Sender);
      TempPanel := TPanel.Create(Self);
      with TempPanel do
        begin
        //Replace the component with TempPanel
        //Incorporamos Un TPanel a la posicion donde esta el control
        Caption := '';
        BevelOuter := bvNone;
        SetBounds(Control.Left, Control.Top, Control.Width, Control.Height);
        Parent := Control.Parent;
        //Put our control in TempPanel
        //Metemos ese control en el panel temporal creado para la circunstancia
        Control.Parent := TempPanel;
        //Move TempPanel with control inside it
        //Ala, ya podemos mover el panel, ya que este si es de tipo TWinControl
        Perform(WM_SYSCOMMAND, $F012, 0);
        //Put the component where the panel was dropped
        //Una vez sabemos la posicion final del panel, la utilizamos para poner alli nuestro
        //control no-TWinControl
        Control.Parent := Parent;
        Control.Left := Left;
        Control.Top := Top;
        //LimitaMovimiento(Control);//controlamos que no se salga de la ventana.
      end;
    finally
      TempPanel.Free;
    end;
end;

procedure TFormcotizacion.FormCreate(Sender: TObject);
Var
  I : Integer;
  BaseDeDatos, ConStr : String;
begin
  For I:=0 To (ComponentCount-1) Do
    Begin
      If Components[i] Is TControl Then//Todos los controles, sean o no TWincontrol
        Begin
          TControlActual(Components[i]).OnMouseDown:=Movecontrol;
      End;
    End;
  //Esta instruccion hace que las ventanas muestren su contenido
  //cuando las movemos por el escritorio, y como los TWincontrol
  //no son más que "ventanitas", pues nos vale para poder mostrar
  //el contenido de los controles al moverlos.
  SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, 1, nil, 0);
  //Create.AutoScroll:=FALSE;//para mejorar la "visibilidad"
  // conectamos con la BD
  // Obtiene la ruta y el nombre de la base de datos

end;

end.

Talvez esto pueda darle una idea del problema que tengo.

[gianfranco_tont]

Empezado por gianfranco_tont

caral, ya pude resolver que la imagen se guardara en la tabla y ahora si puedo ver toda la informacion en el DBctrlgrid perfectamente, me copie lo que necesite de tu aplicacion y puedo arrastrar la foto que esta dentro del DBctrlgrid pero ahora tengo un problemita la imagen no sale del DBctrlgrid para llevarla al dbgrid.

como pudiera solucionar eso?

El problema en realidad es que puedo arrastrar la imagen pero solo dentro del dbctrlgrid. Trato de explicarme mejor tengo un dbctrlgrid en la parte de arriba de un from y debajo tengo un dbgrid, yo deberia poder arrastrar la imagen desde el dbctrlgrig al dbgrid y en ese ultimo finalmente llenar el registro con los datos necesarios que provienen de una tabla en sql. Ahora bien no logro arrastrar la imagen desde el dbctrlgrid hasta el dbgrid ya que la imagen selecionada no sale del dbctrlgrid, solo puedo desplazarla dentro del mismo.

[[Caral]]

Hola
No he usado el dbctrlgrid nunca.
Pregunto: El dbctrlgrid esta metido dentro de un panel u otro ?.
Saludos

[gianfranco_tont]

No simplemente esta en el from.

[[Caral]]

Hola
Como dije, no he usado el dbctrlgrid.
No se por que no usaste el scrollbox y visualizar las imagenes como el ejemplo que te di ?.
La diferencia era simplemente obtener las imagenes de la tabla.
No se la razon ?.
Saludos

[roman]

Empezado por gianfranco_tont

El problema en realidad es que puedo arrastrar la imagen pero solo dentro del dbctrlgrid. Trato de explicarme mejor tengo un dbctrlgrid en la parte de arriba de un from y debajo tengo un dbgrid, yo deberia poder arrastrar la imagen desde el dbctrlgrig al dbgrid y en ese ultimo finalmente llenar el registro con los datos necesarios que provienen de una tabla en sql. Ahora bien no logro arrastrar la imagen desde el dbctrlgrid hasta el dbgrid ya que la imagen selecionada no sale del dbctrlgrid, solo puedo desplazarla dentro del mismo.

En el mensaje #34 te había puesto un ejemplo completamente funcional, pero, al parecer, lo ignoraste. El único "defecto" en dicho ejemplo es que visualmente la imagen no se "mueve hacia el DBGrid" aunque en realidad sí que se produce el efecto deseado de insertar un registro con los datos correspondientes a la imagen.

He actualizado el ejemplo, más que por ti, por otros a quien pueda interesar, de manera que se usa un DragControlObject para poder mostrar la imagen mientras se arrastra.

// Saludos

[gianfranco_tont]

voy de inmediatoa trabajar con eso, de verdad que el ejemplo es muy funcional

[gianfranco_tont]

ya lo hice y si funciona veo las imagen y le coloque todas las caracteristica que necesito pero tu ejemplo esta hecho para que trabaje con 'rutas' dentro de la tabla pero yo resolvi con guardar la imagen en la tabla, por lo que coloque un dbimage1, y aunque la vea todas no logro arrastrarla. ¿ que debo cambiar en tu ejemplo para que me arrastre el dbimage1 ?

[roman]

Bueno, el ejemplo está hecho así porque era tu requerimiento original, con las imágenes fuera de la base (y, personalmente, me parece mejor así). Pero es muy sencillo modificar el código para que trabaje con las imágenes integradas a la base, de hecho se facilita. Te adjunto el ejemplo modificado.

// Saludos