Рисование эллипса в lazarus

[fishki123]

Здравствуйте! Мне нужно нарисовать эллипс на timage.
Проблема в том,что мне нужно сделать так,чтобы эллипс рисовался удержанием кнопки на любом месте timage.
А он у меня рисуется либо с одного места,либо вообще создает много эллипсов(т.е. я удерживаю кнопку,и он создает не 1 эллипс,а множество).

procedure TForm1.ImageoutMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if ssleft in shift Then imageout.canvas.ellipse(x,y,100,100);
end;   
procedure TForm1.ImageoutMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if button = mbleft then imageout.canvas.moveto(x,y);
  end;

Я понимаю,что эллипс неправильно настроил а т.е. (x,y,100,100),но могли бы вы объяснить пожалуйста и решить мою проблему.

[type_Oleg]

Во первых, событие MouseMove происходит многократно, пока движется мышь.

Во вторых, эти переменные X,Y - они хоть и называются одинаково, но не имеют друг к другу никакого отношения. И вообще они живут пока выполняется породившая их процедура.

Могу предложить это:
Создать глобальные переменные:

var
  Form1: TForm1;
  X0,Y0:Integer;

и 2 обработчика:

procedure TForm1.ImageoutMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 X0:=X;
 Y0:=Y;
end;

procedure TForm1.ImageoutMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Image1.Canvas.Ellipse(X0,Y0,X,Y);
end;

Если это то, что нужно.

[newerow1989]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x0,y0,x1,y1:integer;
  Down:boolean;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   Down:=true;
   x0:=X;
   y0:=Y;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   If Down then
   begin
      Image1.Canvas.Pen.Color:=clWhite;
      Image1.Canvas.Ellipse(x0,y0,x1,y1);
      x1:=X;
      y1:=Y;
      Image1.Canvas.Pen.Color:=clBlack;
      Image1.Canvas.Ellipse(x0,y0,x1,y1);
   end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   Down:=false;
end;

begin
   Down:=false;
end.