Drag and Drop con Componentes Abbrevia

[cabeza_as]

Hola saludos, estoy trabajando con componenes Abbrevia, y queria saber como puedo hacer para arrastrar un Item seleccionado desde un AbZipView a un ShellListView y que se descomprima alli; el problema es que el AbZipView no tiene el evento onDragDrop (o no lo he econtrado) y nose como hacerlo de otra manera.

Desde ya gracias, saludos...

[cabeza_as]

Hola de nuevo!, me parece que lo que quiero hacer no se puede. Si saben de algun componete que comprima archivos y tenga este evento no duden en hacermelo saber.

gracias Saludos!.

[roman]

Debe poderse. Los eventos y propiedades relativos al drag están implementados desde TControl, es sólo que TAbZipView no los publica.

Puedes hacerlo tú mismo derivando una componente de TAbZipView o simplemente modificando el código fuente de la componente. Esto último es lo que acabo de hacer. Abre el archivo AbZView.inc que está en la carpeta source de Abbrevia. Ahí encontrarás la declaración de TAbZipView:

Código Delphi [-]
type
  
  ...

  TAbZipView = class(TAbBaseViewer)
  protected
    ...
  public
    ...
  published {properties}
    ..
  published {events}
    ...
  published {drag} // <--- agregada para propiedades drag
    property DragKind;
    property OnStartDrag;
    property OnEndDrag;
    property OnDragDrop;
    property OnDragOver;
  end;

Como ves, al final agregué una sección published donde simplemente añado los eventos y propiedades.

Guardas el archivo y recompilas el paquete dpk de runtime.

// Saludos

[cabeza_as]

Muchas gracias!!!, funciono de perfecto!!.