Введение в программирование. Pascal и Delphi. Гурьянов Л.В - 107 стр.

    function  IsVisible : boolean; {точка видима?                 }
    procedure MoveTo(NewX, NewY: integer); { переместить          }
                             { в координаты NewX, NewY            }
  end;
   Реализация методов класса "Точка" требует подключения стан-
дартного модуля Graph языка Pascal.
  {методы класса Point}
  procedure Point.Create(InitX, InitY: integer);
  begin
    Location.Create(InitX, InitY); {вызов метода родителя }
                             { Location.Create для инициализации }
                             { местоположения точки }
    Visible := False;        { состояние: точка не видима        }
  end;

  procedure Point.Show; { Показать точку                          }
  begin
    Visible := true;          { состояние: точка видима          }
    PutPixel(x, y, GetColor); {"рисование" точки цветом символов }
  end;
  procedure Point.Hide;           {Спрятать точку                 }
  begin
    Visible := false;            {состояние: точка не видима      }
    PutPixel(x, y, GetBkColor); {"рисование" точки цветом фона }
  end;
  function Point.IsVisible : boolean; {возвращает состояние точки }
  begin
    IsVisible := Visible;
  end;
  procedure Point.MoveTo(NewX, NewY : integer);
                              {Переместить точку                   }
  begin
    Hide;                    {Спрятать точку                      }


                               106