Основы программирования в паскале

{описание объектов GraphObj}

Unit GraphObj

Interface

      tape

       TgraphObj=object

                  Private

                        x,y:integer;

                        color:word;

                  Public

                        Consttuctor Init(aX,aY:integer; aColor:word);

                        Procedure Draw (aColor:word);virtual:

                        Procedure Show;

                        Procedure Hide;

                        Procedure MoveTo (dX,dY:integer);

            end;

            TPoint= object(TGraphObj)

                  Procedure Draw (aColor:word);virtual;

            end;

      TLine= object(TGraphObj)

                        dx,dy:integer;

      Consttuctor Init(X1,Y1,X2,Y2:integer; aColor:word);

      Procedure Draw (aColor:word);virtual;

      end;

      TCircle= object(TGraphObj)

      Consttuctor Init(aX,aY,aR:integer; aColor:word);

      Procedure Draw (aColor:word);virtual;

      end;

      TRect= object(TLine)

                  Procedure Draw (aColor:word);virtual;

            end;

Implemention

      Uses Graph;

      Consttuctor TgraphObj. Init;

                  Begin

                  X:=aX;

                  Y:=aY;

                  color:=aColor;

      end;

      Procedure TgraphObj.Draw;

            Begin

            end;

      Procedure TgraphObj.Show;

            Begin

                  Draw(color);

      end;

            Procedure TgraphObj.Hide;

      Begin

                  Draw(GetBkcolor);

      end;

      Procedure TgraphObj.MoveTo;

      Begin

                  Hide;

                  X:=X+dX;

                  Y:=Y+dY;

                  Show;

      end;

      Procedure Tpoint.Draw;

      Begin

            PutPixel (X,Y,Color);

      end;

      Consttuctor Tline.Init;

            Begin

                  Inherited Init (X1,Y1,aColor);

      dX:=X2-X1;

                        dY:=Y2-Y1;

      end;

      Procedure TLine.Draw;

            Begin

                  SetColor(Color);

                  Line(X,Y,X+dX,Y+dY);

            end;

      Consttuctor TCircle.Init;

            Begin

                  Inherited Init (aX,aY,aColor);

                        R:=aR;

            end;

      Procedure TCircle.Draw;

            Begin

                  SetColor(aColor);

                  Circle(X,Y,R);

            end;

      Procedure TRect.Draw;

            Begin

                  SetColor(aColor);

      Rectangle(X,Y,X+dX,Y+dY);

      end;