//------------------------------------------------------------------------------
//  ImageEn Convert To  & Lossless Transform Demo: 1.0
//------------------------------------------------------------------------------

unit frmRotate;

interface

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

type
   TfRotate = class( TForm )
      GroupBox1: TGroupBox;
      Button1: TButton;
      Button2: TButton;
      Label1: TLabel;
      Edit1: TEdit;
      UpDown1: TUpDown;
      CheckBox1: TCheckBox;
      ImageEnView1: TImageEnView;
      procedure FormActivate( Sender: TObject );
      procedure Edit1Change( Sender: TObject );
   private
    { Private declarations }
   public
    { Public declarations }
   end;

var
   fRotate: TfRotate;

implementation

{$R *.DFM}

procedure TfRotate.FormActivate( Sender: TObject );
begin
   Updown1.Position := 0;
   Checkbox1.Checked := false;
   ImageEnView1.Proc.SaveUndo;
end;

// edit-change
procedure TfRotate.Edit1Change( Sender: TObject );
begin
   ImageEnView1.Proc.Undo;
   ImageEnView1.Proc.rotate( strtointdef( edit1.text, 0 ), checkbox1.checked );
   ImageEnView1.Fit;
end;

end.