unit Rotate;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ImageEn,
  ExtCtrls, ImageEnView, ImageEnProc, ieview, hyieutils, iexBitmaps, hyiedefs, iesettings, iexLayers, 
  iexRulers;

type
  TfrmRotate = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    edtAngle: TEdit;
    updAngle: TUpDown;
    ImageEnView1: TImageEnView;
    cmbAntiAliasing: TComboBox;
    lblAntialiasing: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure edtAngleChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.DFM}

procedure TfrmRotate.FormActivate(Sender: TObject);
begin
  updAngle.Position := 0;
  cmbAntiAliasing.ItemIndex := 1;
  ImageEnView1.Proc.SaveUndo;
end;

procedure TfrmRotate.edtAngleChange(Sender: TObject);
begin  
  ImageEnView1.Proc.Undo;
  ImageEnView1.Proc.Rotate( StrToIntDef( edtAngle.text, 0 ), TIEAntialiasMode( cmbAntiAliasing.ItemIndex ));
  ImageEnView1.Fit;
end;

end.