rotimgreg.pas

图象插值旋转源码。可以任意角度旋转图象

{------------------------------------------------------------------------------}
{                                                                              }
{  TRotateImage v1.4                                                           }
{  by Kambiz R. Khojasteh                                                      }
{                                                                              }
{  [e-mail]                                                       }
{  http://www.delphiarea.com                                                   }
{                                                                              }
{------------------------------------------------------------------------------}

{$I DELPHIAREA.INC}

unit RotImgReg;

interface

uses
  Windows, Classes, {$IFDEF DELPHI6_UP} DesignIntf, DesignEditors {$ELSE} DsgnIntf {$ENDIF};

type
  TRotateImageEditor = class(TDefaultEditor)
  private
    {$IFNDEF DELPHI6_UP}
    procedure PictureEditor(Prop: TPropertyEditor);
    {$ENDIF}
  public
    {$IFDEF DELPHI6_UP}
    procedure EditProperty(const Prop: IProperty; var Continue: Boolean); override;
    {$ELSE}
    procedure Edit; override;
    {$ENDIF}
  end;

procedure Register;

implementation

uses
  RotImg, TypInfo;

{$IFDEF DELPHI6_UP}

procedure TRotateImageEditor.EditProperty(const Prop: IProperty;
  var Continue: Boolean);
begin
  if Prop.GetName = 'Picture' then
  begin
    Prop.Edit;
    Continue := False;
  end;
end;

{$ELSE}

procedure TRotateImageEditor.PictureEditor(Prop: TPropertyEditor);
begin
  if Prop.GetName = 'Picture' then
    Prop.Edit;
end;

procedure TRotateImageEditor.Edit;
var
  {$IFDEF DELPHI5}
  List: TDesignerSelectionList;
  {$ELSE}
  List: TComponentList;
  {$ENDIF}
begin
  {$IFDEF DELPHI5}
  List := TDesignerSelectionList.Create;
  {$ELSE}
  List := TComponentList.Create;
  {$ENDIF}
  try
    List.Add(Component);
    GetComponentProperties(List, [tkClass], Designer, PictureEditor);
  finally
    List.Free;
  end;
end;

{$ENDIF}

procedure Register;
begin
  RegisterComponents('Delphi Area', [TRotateImage]);
  RegisterComponentEditor(TRotateImage, TRotateImageEditor);
end;

end.