Круг. Создание И Алгоритм

Тема в разделе "Delphi - FAQ", создана пользователем Pentium5, 30 окт 2011.

Статус темы:
Закрыта.
  1. Pentium5

    Pentium5 Member

    Регистрация:
    3 окт 2011
    Сообщения:
    9
    Симпатии:
    0
    Здравствуйте!
    В уч. заведении задали создать алгоритм создания круга в Delphi. Изначально дали код для создания только одной дуги этого круга. Круг (дуга) рисуется с помощью щелчка мышки. Прошу дописать алгоритм для создания ЦЕЛОГО круга с помощью щелчка мышки. Из-за недостаточных знаний, сделать самому не получается. Прошу другие варианты создания и рисования круга в Delphi не предлагать.

    Благодарствую за любую помощь!
    Код (Text):
    unit Unit1;

    interface

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

    type
    TForm1 = class(TForm)
    Edit1: TEdit;
    Image1: TImage;
    Label1: TLabel;

    procedure Rinkis(R,Xc,Yc:integer);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);

    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.dfm}

    { TForm1 }

    procedure TForm1.Rinkis(R, Xc, Yc: integer);
    var x,y,p:integer;
    begin
    p:=1-R;
    x:=0;
    y:=R;
    While x<=y do
    begin
    if p<0 then
    begin
    x:=x+1;
    y:=y;
    p:=p+2*x+1;
    end
    else
    begin
    x:=x+1;
    y:=y-1;
    p:=p+2*x+1-2*y;
    end;
    image1.Canvas.Pixels[Xc+x,Yc+y]:=0;  
    end;
    end;

    procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
    begin
    Rinkis(strtoint(Edit1.Text), X,Y);
    end;

    end.
    Вот что пока что получается:

    Архив с проектом:
     

    Вложения:

    • Circle.rar
      Размер файла:
      170,5 КБ
      Просмотров:
      6
Загрузка...
Похожие Темы - Круг Создание Алгоритм
  1. zeitroid
    Ответов:
    1
    Просмотров:
    1.268
  2. Викулька
    Ответов:
    0
    Просмотров:
    1.367
  3. Tomash
    Ответов:
    2
    Просмотров:
    1.864
  4. Antigo
    Ответов:
    10
    Просмотров:
    2.021
  5. baxz
    Ответов:
    0
    Просмотров:
    1.434
Статус темы:
Закрыта.

Поделиться этой страницей