Программа на Delphi . Помогите пожалуйста..! Нужно нарисовать две окружности...

[type_Oleg]

Сообщение от Asyyy

На Delphi).

Ан нет, на Лазарусе

{$R *.lfm}

[Asyyy]

А можете пожалуйста помочь, чтоб на Delphi пошёл код?
Пожалуйста))

[type_Oleg]

Вот так пойдет. Проверил

unit Unit2Okr;  // здесь конечно сами имя придумайте, unit1 или еще как

interface

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

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
var x,y,r,c:integer;
  procedure ell;
  begin
    with Canvas do begin
     Ellipse(x-r+c,y-r,x+r+c,y+r);
     Ellipse(x-r-c,y-r,x+r-c,y+r);
    end;
  end;
begin
 x:=Width div 2; y:=Height div 2; r:=100; c:=50;
  with Canvas do begin
    Brush.Style:=bsClear;    ell;
    Brush.Color:=clRed;
    FloodFill(x,y,clBlack,fsBorder); // тут исправил *
    Brush.Color:=clWhite;
    FloodFill(x-c-1,y,clBlack,fsBorder); // *
    FloodFill(x+c+1,y,clBlack,fsBorder); // *
    Brush.Style:=bsClear;
    Pen.Color:=clWhite;     ell;
    Pen.Color:=clBlack;
    Pen.Style:=psDash;   ell;

  end;
end;

end.

[Asyyy]

Спасибо огромное Вам!!!Добрейший человек))!!

Ещё один вопросик, а почему запускается, но экранная форма пустая ?

[Asyyy]

Аааа)) всё ок))) Спасибо всем огромное за помощь))
Удачи Вам))

[type_Oleg]

Не знаю. Все рисуется сразу.
Может не то запустили ..

[Stilet]

а почему запускается, но экранная форма пустая ?

Неа... Не сдашь.

стесняюсь спросить, вы на чем пишете - на Делфи или Лазарусе?

Я хотел чтоб автор посмотрела как устроена программа, а не тупо скопировала код не думая. Но учитывая сакральное

Я не понимаю!(((
И учить смысла нет

вышла лажа.

[Asyyy]

Сообщение от Stilet

Неа... Не сдашь.

Я хотел чтоб автор посмотрела как устроена программа, а не тупо скопировала код не думая. Но учитывая сакральное
вышла лажа.

Хаха)) сдала

[type_Oleg]

Ну, тогда считай нас Дедами Морозами ...