окружность в делфи

[forestm]

Здравствуйте! Помогите пожалуйста подредактировать программку, условие которой:
Создать приложение, позволяющее рисовать окружности (по нажатию и удерживанию левой клавиши мыши) и эллипсы (по правой кнопке мыши). Предусмотреть возможность задания цвета контура и заливки, стирания окна рисования.
А вот сама программа:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    ris: TImage;
    ColorBox1: TColorBox;
    ColorBox2: TColorBox;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    procedure risMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure risMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure ColorBox1Change(Sender: TObject);
    procedure ColorBox2Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  nachx,nachy,konx,kony: integer;

implementation

{$R *.dfm}

procedure TForm1.risMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if Button<>mbLeft then exit;
  nachx:=X;
  nachy:=Y;
end;

procedure TForm1.risMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   if Button<>mbLeft then exit;
  konx:=X;
  kony:=Y;
if (Button=mbRight) then ris.Canvas.Ellipse(nachX,nachY,konX,konX)
  else ris.Canvas.Ellipse(nachX,nachY,konX,konY);
end;

procedure TForm1.ColorBox1Change(Sender: TObject);
begin
ris.Canvas.Pen.Color:=colorbox1.Selected;
end;

procedure TForm1.ColorBox2Change(Sender: TObject);
begin
 ris.Canvas.Brush.Color:=colorbox2.Selected;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ris.Canvas.Brush.Color:=clWhite;
  ris.Canvas.FillRect(RECT(0,0,ris.Width,ris.Height));
  ris.Canvas.Brush.Color:=colorbox2.Selected;
end;

end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[WhiteSpirit]

http://programmersforum.ru/showthread.php?t=117240