main.pas

来自「图象插值旋转源码。可以任意角度旋转图象」· PAS 代码 · 共 45 行

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, RotImg, ComCtrls, ExtCtrls, ExtDlgs, JPeg;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label4: TLabel;
    TrackBar1: TTrackBar;
    Panel2: TPanel;
    RotateImage1: TRotateImage;
    OpenPictureDialog1: TOpenPictureDialog;
    procedure TrackBar1Change(Sender: TObject);
    procedure RotateImage1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure RotateImage1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure RotateImage1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure RotateImage1DblClick(Sender: TObject);
    procedure Panel1Resize(Sender: TObject);
  private
    Dragging: Boolean;
    StartTheta: Extended;
    StartAngle: Extended;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

uses Math;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  RotateImage1.Angle := TrackBar1.Position / 10;
  Label4.Caption := Format('Angle = %.1f