есть класс "точка":

Код

type TPset = class(TObject)   private     X       : integer;     Y       : integer;     Color   : integer;     Size    : integer;     Angle   : integer;     Focused : boolean;     procedure Paint(aColor : TColor); virtual;     procedure DrawConers(aColor : integer);     function  GetObjectArea : integer; virtual;   public     Next : ^TPset;     procedure Show;     procedure Hide;     constructor Create(aX, aY:integer; aColor : TColor);     destructor Destroy;     procedure Shift(dX, dY : integer);     procedure SetSize(aSize : Integer);     function GetSize : Integer;     procedure Rotate(aAngle : Integer);     procedure SetFocus(aFocused: boolean);     procedure ChangeSize(aSize: integer); end;

к нему наследник "окружность":

Код

type TCircle = class(TPset)   private     procedure Paint(aColor : integer); virtual;   public     constructor Create(aX, aY, aColor, aSize: integer);     function GetObjectArea: integer; virtual; end;

к этой в свою очередь наследник "правильная фигура":

Код

type TRightFigure = class(TCircle)   private     SumSides : integer;     procedure Paint(aColor : integer); virtual;   public     constructor Create(aX, aY:integer; aColor:TColor; aSize, aSumSides: integer); end;

и е правльной фигуре "квадрат" и "треугольник":

Код

type TSquare = class(TRightFigure)   public     constructor Create(aX, aY:integer; aColor:TColor; aSize : integer); end; type TTriangle = class(TRightFigure)   public     constructor Create(aX, aY:integer; aColor:TColor; aSize : integer); end;

далее идет реализация... и вот в чем проблема, вот описание процедуры Show и Paint:

Код

procedure TPset.Show; begin   Paint(Color); end; procedure TPset.Paint; begin   Form1.Canvas.Pixels[X,Y]:=aColor; end;

а вот реализация Paint для окружности:

Код

procedure TCircle.Paint; begin   Inherited Paint(aColor);   Form1.Canvas.Pen.Color:=aColor;   Form1.Canvas.Ellipse(X-size,y-size,x+size,y+size); end;

я пишу следующее:

Код

var t:TCircle; begin   t:=TCircle.Create(100,100,clRed,50);   t.Paint(clRed); end;

и у меня все прекрасо рисуется, а если я пишу:

Код

var t:TCircle; begin   t:=TCircle.Create(100,100,clRed,50);   t.show; end;

то он рисует точку в центре окружности, а я хочу чтобы он рисовал окружность, как это реализовать... тоже самое и с Hide, прикрепляю исходник на всякий случай...

Это сообщение отредактировал(а) Alex - 29.9.2005, 07:49

Присоединённый файл ( Кол-во скачиваний: 14 )
 1.rar 8,65 Kb

Я может и ошибаюсь, но при t.show вызывается унаследованный от класса "точка" метод Show, который вызывает свой Paint. поэтому точка и рисуется.

Код

type TCircle = class(TPset)   private     procedure Paint(aColor : TColor); override;   public     constructor Create(aX, aY, aColor, aSize: integer);     function GetObjectArea: integer; override; end;

1. Да вызывается Paint у TPset.
2. Для чего тебе вообще виртуальные проседуры в private?
Если делаешь виртульные проседуры то они должны находится разделе protected.
Вообщем:

Код

type TPset = class(TObject)   private     X       : integer;     Y       : integer;     Color   : integer;     Size    : integer;     Angle   : integer;     Focused : boolean;     procedure DrawConers(aColor : integer);   protected     procedure Paint(aColor : TColor); virtual;     function  GetObjectArea : integer; virtual;   public     Next : ^TPset;     procedure Show;     procedure Hide;     constructor Create(aX, aY:integer; aColor : TColor);     destructor Destroy;     procedure Shift(dX, dY : integer);     procedure SetSize(aSize : Integer);     function GetSize : Integer;     procedure Rotate(aAngle : Integer);     procedure SetFocus(aFocused: boolean);     procedure ChangeSize(aSize: integer); end;

Код

type TCircle = class(TPset)   protected     procedure Paint(aColor : integer); override;   public     constructor Create(aX, aY, aColor, aSize: integer);     function GetObjectArea: integer; virtual; end;

и т.д.
а лутше почитай литературку по объктно ориентированному програмированию.

Можно так

Присоединённый файл ( Кол-во скачиваний: 10 )
 1.rar 2,69 Kb