Написать приложения для рисования эллипсов с закрашенной внутренней областью на Delphi

[Richik123]

Написать приложения для рисования эллипсов с закрашенной внутренней областью.

[phomm]

От Вас чёткое задание и 300р. - за полчаса (по моей примерной оценке ) будет готово.
Если захотите ответить иначе , чем принятием этого предложения, то только с кодом , где есть Ваши наработки по решению этого задания.

Третьего не дано.

Ну и на будущее - советую такие темы создавать в разделе для студентов.

Хотя ладно, я же добрый - смотрите в гугле статьи "работа с канвас в дельфи"

[Richik123]

var
  x1, y1,
  CurX, CurY : Integer;
  Capture    : Boolean;
 
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  x1 := x;
  y1 := y;
  CurX := x;
  CurY := y;
  Capture := True;
end;
 
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Capture then
  begin
    Canvas.Pen.Mode := pmNot;
    Canvas.Pen.Width := 1;
    Canvas.Brush.Style := bsClear;
    Canvas.Ellipse(x1, y1, CurX, CurY);
    CurX := X;
    CurY := Y;
    Canvas.Ellipse(x1, y1, CurX, CurY);
  end;
end;
 
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Capture then
  begin
    Capture := False;
    Canvas.Pen.Color := clRed;
    Canvas.Pen.Mode := pmCopy;
    Canvas.Brush.Color := clGreen;
    Canvas.Ellipse(x1, y1, CurX, CurY);
  end;
end;

вот заготовкочка, которая есть

[phomm]

Всё ок в этом коде. В чём у Вас проблема с ним ? Если не соответствует заданию, то распишите чётко, что задание подразумевает.
Если это код не Ваш и Вы не знаете как его вставить в проект и получить рабочую программу, то вот выложу - я его собственно в проект и вставил для проверки работы.