frmrotate.pas

Apprehend Screen Capture Component Version 4.2 A non-visible component to capture images. Freeware w

{******************************************************************************}
{*                                                                            *}
{*                         Adirondack Software & Graphics                     *)
(*                                  Rotate Unit                               *}
{*          (C) Copyright Adirondack Software & Graphics 1996-2000            *}
{*                                                                            *}
{******************************************************************************}

unit frmRotate;

interface

uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   StdCtrls, ComCtrls, ImageEn, ExtCtrls, ImageEnView, ImageEnProc,
   GX_GradientBar;

type
   TfRotate = class( TForm )
      GroupBox1: TGroupBox;
      Button1: TButton;
      Button2: TButton;
      Label1: TLabel;
      Edit1: TEdit;
      UpDown1: TUpDown;
      CheckBox1: TCheckBox;
      ImageEnView1: TImageEnView;
      ImageEnProc1: TImageEnProc;
      GXGradientBar1: TGXGradientBar;
      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;
   ImageEnProc1.SaveUndo;
end;

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

end.