delphi, разворот прямоугольника

[KaZaaM]

текст задания: Используя принцип наследования, задать классы, описывающие обычные
прямоугольники и закрашенные. Предусмотреть выполнение с объектами этих классов следующих операций: создание, перемещение, масштабирование, удаление

осталось тока сделать разворот, вот весь остальной код:

PHP код:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm2 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Button4: TButton;
    Button3: TButton;
    Button2: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button6: TButton;
    Label1: TLabel;
    Label2: TLabel;
    RadioGroup1: TRadioGroup;
    procedure Button1Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  TRct = class
    a,b:TPoint;
    constructor create;
    procedure draw; virtual;
    procedure Resize (k:Real);
    procedure move (dx, dy:Integer);
  end;

  TRct2 = class (TRct)
  procedure draw; Override;
  end;

var
  Form2: TForm2;
  fgr1: TRct;
  fgr2: TRctShadow;

implementation

{$R *.dfm}
 constructor TRct.Create;
 begin
   a.x:=(Form2.Image1.width div 2)-100;
   b.x:=(Form2.Image1.width div 2)+100;
   a.y:=(Form2.Image1.height div 2)-50;
   b.y:=(Form2.Image1.height div 2)+50;
 end;

procedure TRct.draw;
begin
 with Form2.Image1.Canvas do
  begin
   Brush.Color:=clWhite;
   FillRect(Form2.Image1.Canvas.ClipRect);
  end;
  Form2.Image1.Canvas.Rectangle(a.x, a.y, b.x, b.y);
end;
procedure TRct2.draw;
begin
 with Form2.Image1.Canvas do
  begin
   Brush.Color:=clWhite;
   FillRect(Form2.Image1.Canvas.ClipRect);
   
     Brush.Color:=clblack;
  Form2.Image1.Canvas.Rectangle(a.x, a.y, b.x, b.y);
  end;
end;


 procedure TRct.move (dx, dy:Integer);
 begin
   a.x:=a.x+dx;
   b.x:=b.x+dx;
   a.y:=a.y+dy;
   b.y:=b.y+dy;
 end;

 procedure TRct.Resize (k:Real);
 var
 c:TPoint;
 begin
  c.x:=(a.x+b.x) div 2;
  c.y:=(a.y+b.y) div 2;
  a.x:=a.x+Round((c.x-a.x)*k);
  a.y:=a.y+Round((c.y-a.y)*k);
  b.x:=b.x+Round((c.x-b.x)*k);
  b.y:=b.y+Round((c.y-b.y)*k);
 end;
procedure TForm2.Button1Click(Sender: TObject);      //Создание
begin
if RadioGroup1.ItemIndex = 0 then
begin
fgr1:=TRct.create;
fgr1.draw;
end;
if RadioGroup1.ItemIndex = 1 then
begin
fgr1:=TRct2.create;
fgr1.draw;
end;
end;

procedure TForm2.Button2Click(Sender: TObject);  //Вверх
begin
fgr1.move(0,-10);
fgr1.draw;
end;

procedure TForm2.Button3Click(Sender: TObject);  //Увеличение
begin
fgr1.Resize(-1);
fgr1.draw;
end;

procedure TForm2.Button4Click(Sender: TObject); //Удаление
begin
Image1.Canvas.Brush.Color:=clWhite;
Form2.Image1.Canvas.FillRect(Form2.Image1.Canvas.ClipRect);
end;

procedure TForm2.Button6Click(Sender: TObject); //Уменьшение
begin
 fgr1.Resize(0.5);
fgr1.draw;
end;

procedure TForm2.Button7Click(Sender: TObject);    //Вниз
begin
fgr1.move(0,10);
fgr1.draw;
end;

procedure TForm2.Button8Click(Sender: TObject);    //Вправо
begin
fgr1.move(10,0);
fgr1.draw;
end;

procedure TForm2.Button9Click(Sender: TObject);    //Влево
begin
fgr1.move(-10,0);
fgr1.draw;
end;

end. 


[KaZaaM]

нужно дописать процедуру поворота вправо и влево, я примерно знаю как сделать, т.е. похожая с перемещением вправо влево вниз вверх, но чет не догоняю

[KaZaaM]

подскажите плиз, завтра сдать надо, а я чет ваще недопераю и дома делфи нету чтоб проверить и задачу я всю написал, не прошу с нуля писать все

[KaZaaM]

офигенно все помогли блин