unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, plDragResize, StdCtrls;

type
  TForm1 = class(TForm)
    plDragResize1: TplDragResize;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure plDragResize1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormDestroy(Sender: TObject);
  private
    { Private 宣言 }
    ABitmap : TBitmap;
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

//=============================================================================
//  フォームのCreate処理
//  コンポのイベントとResizeRec(TRect)プロパティの使用例
//
//  (1) ビットマップを生成
//  (2) そこに画像を読み込む
//  (3) TplDragResziコンポのTargetプロパティをImage1とする
//  (4) そのImage1にビットマップ画像を描画する
//=============================================================================
procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := 'OnMouseMove と ResizeRect プロパティ';

  ABitmap := TBitmap.Create;
  ABitmap.LoadFromFile('501.bmp');
  plDragResize1.Target := Image1;

  Image1.Canvas.StretchDraw(plDragResize1.ResizeRect, ABitmap);
end;

//=============================================================================
//  フォームが破棄される時の処理
//=============================================================================
procedure TForm1.FormDestroy(Sender: TObject);
begin
  if Assigned(ABitmap) then FreeAndNil(ABitmap);
end;

//=============================================================================
//  TplDragResizeコンポのOnMouseMoveイベント処理
//=============================================================================
procedure TForm1.plDragResize1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  //リサイズの時のみ，Image1にビットマップを再描画する
  if plDragResize1.DragState = dsResize then begin
    Image1.Picture.Assign(nil);
    Image1.Canvas.StretchDraw(plDragResize1.ResizeRect, ABitmap);
  end;
end;

end.