如何从JvtThumbview中拖动缩略图？

我正在编写一个WYSIWYG类型的编辑器程序，用户可以将图像缩略图拖动到编辑器表面（TPanel）上，然后通过将编辑器表面渲染到PDF上来创建PDF。如何从JvtThumbview中拖动缩略图？

在我的TPanel上，我有一个TImage，用户可以调整和移动。我正在使用TSizeCtrl。

我有一个TJvThumbview正在从磁盘文件夹加载图像。

我想完成从JvThumbview到TImage的拖放 - 但不能这样做。

请有人能详细说明我该如何做到这一点？

非常感谢。

来源

2011-08-19 Steve F

这是相当普遍的。请详细说明您的要求以及您遇到的问题。 –

请参阅[Brian Long]（http://www.blong.com/Conferences/BorCon2001/DragAndDrop/4114.htm）的优秀拖放教程。 – NGLN

我无法抗拒。

我的演示项目包括：

一个TJvThumbView和
一个TImage

拖动实现：

开始拖动操作，当用户下鼠标拇指视图上的起伏，
管理拖动图像的TDragObject衍生物，
当拖动对象表示拖动操作在TImage上结束时绘制拖动的图像。

这是怎么可能看起来像：

unit Unit1; 

interface 

uses 
    Classes, Graphics, Controls, Forms, JvExForms, JvBaseThumbnail, JvThumbViews, 
    ExtCtrls; 

type 
    TMyDragObject = class(TDragControlObjectEx) 
    private 
    FDragImages: TDragImageList; 
    FPictureToDrag: TPicture; 
    protected 
    function GetDragImages: TDragImageList; override; 
    procedure Finished(Target: TObject; X, Y: Integer; 
     Accepted: Boolean); override; 
    public 
    constructor CreateFromThumbView(ThumbView: TJvThumbView); 
    destructor Destroy; override; 
    end; 

    TForm1 = class(TForm) 
    JvThumbView1: TJvThumbView; 
    Image1: TImage; 
    procedure FormCreate(Sender: TObject); 
    procedure JvThumbView1MouseDown(Sender: TObject; Button: TMouseButton; 
     Shift: TShiftState; X, Y: Integer); 
    procedure JvThumbView1StartDrag(Sender: TObject; 
     var DragObject: TDragObject); 
    procedure Image1DragOver(Sender, Source: TObject; X, Y: Integer; 
     State: TDragState; var Accept: Boolean); 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    // Fill our image list with arbitrary images 
    if JvThumbView1.Directory = '' then 
    JvThumbView1.Directory := 'C:\Users\Public\Pictures\Sample Pictures'; 
    // Style all controls for showing the drag image if Delphi version is D7 or 
    // lower. See also comment in TMyDragObject.CreateFromThumbView 
    JvThumbView1.ControlStyle := JvThumbView1.ControlStyle + 
    [csDisplayDragImage]; 
    Image1.ControlStyle := Image1.ControlStyle + [csDisplayDragImage]; 
    ControlStyle := ControlStyle + [csDisplayDragImage]; 
end; 

procedure TForm1.Image1DragOver(Sender, Source: TObject; X, Y: Integer; 
    State: TDragState; var Accept: Boolean); 
begin 
    // The destination image component accepts all drag operations 
    Accept := True; 
end; 

procedure TForm1.JvThumbView1MouseDown(Sender: TObject; Button: TMouseButton; 
    Shift: TShiftState; X, Y: Integer); 
begin 
    // If mouse down on a thumb... 
    if JvThumbView1.SelectedFile <> '' then 
    // then let's start dragging 
    JvThumbView1.BeginDrag(False, Mouse.DragThreshold); 
end; 

procedure TForm1.JvThumbView1StartDrag(Sender: TObject; 
    var DragObject: TDragObject); 
begin 
    // DragObject will automatically be destroyed when necessary when it's 
    // derived from TDragControlObjectEx 
    DragObject := TMyDragObject.CreateFromThumbView(JvThumbView1); 
end; 

{ TMyDragObject } 

const 
    DragImageSize = 100; 

constructor TMyDragObject.CreateFromThumbView(ThumbView: TJvThumbView); 
begin 
    inherited Create(ThumbView); 
    // This is the picture the user will drag around 
    FPictureToDrag := TPicture.Create; 
    FPictureToDrag.LoadFromFile(ThumbView.SelectedFile); 
    // We want a nice drag image, but this property is only available in >D7 
    { AlwaysShowDragImages := True; } 
end; 

destructor TMyDragObject.Destroy; 
begin 
    FDragImages.Free; 
    FPictureToDrag.Free; 
    inherited Destroy; 
end; 

procedure TMyDragObject.Finished(Target: TObject; X, Y: Integer; 
    Accepted: Boolean); 
begin 
    // Finished dragging 
    inherited Finished(Target, X, Y, Accepted); 
    // If we are over an Image component, then draw the picture 
    if Accepted and (Target is TImage) then 
    TImage(Target).Canvas.StretchDraw(Bounds(X, Y, DragImageSize, 
     DragImageSize), FPictureToDrag.Graphic); 
end; 

function TMyDragObject.GetDragImages: TDragImageList; 
var 
    DragImage: TBitmap; 
begin 
    if FDragImages = nil then 
    begin 
    FDragImages := TDragImageList.Create(nil); 
    // Set dimensions of drag image list 
    FDragImages.Width := DragImageSize; 
    FDragImages.Height := DragImageSize; 
    // Prepare drag image 
    DragImage:= TBitmap.Create; 
    try 
     DragImage.Width := DragImageSize; 
     DragImage.Height := DragImageSize; 
     DragImage.Canvas.StretchDraw(Rect(0, 0, DragImage.Width, 
     DragImage.Height), FPictureToDrag.Graphic); 
     FDragImages.AddMasked(DragImage, clWhite); 
    finally 
     DragImage.Free; 
    end; 
    end; 
    Result := FDragImages; 
end; 

end.

来源

2011-08-19 15:24:21

谢谢，也可以链接到Brian Long！ –

如何从JvtThumbview中拖动缩略图？

回答

相关问题