Componente de arrastrar

[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.