Использование Properties

[itisiam]

Здраствуйте. Я пишу лабу в Делфи и мне осталось дописать только свое св-во , а оно не работает, и даже больше, вешает сам делфи в хлам и приходится отключать все приложения которые были открыты через завершения процесса.Сама программа предназначена для ознакомления с особенностями ООП(наследование etc.) и рисует фигуру. Свойство связано с выбором цвета пера канвы. Вот как я Properties описал

  TSquare = class(TPoint)
 .......
  public
    procedure Show; override;
    procedure Hide; override;
    procedure Drawing(InitX,InitY,InitLength:integer);
    function  GetSqColor:TColor;
    procedure SetSqColor(NewColor:TColor);
    property  SqColor: TColor read GetSqColor write SetSqColor 
                     default clPurple;

function TSquare.GetSqColor:TColor;
    begin
      result:=Square.SqColor;
    end;

procedure TSquare.SetSqColor(NewColor:TColor);
begin
  Square.SqColor:=NewColor;
end;

procedure TSquare.Show;
begin
  if Square.GetSqColor = Form1.Color
  then Form1.Canvas.Pen.Color:=Square.GetSqColor;
  Square.Drawing(x,y,Length);
  visible:=true;
end;

procedure TSquare.Hide;
begin
Square.SetSqColor(Form1.Color);
  Square.Drawing(x,y,Length);
  visible:=false;
end;
procedure TForm1.OnColorBoxChange(Sender: TObject);
begin
  Square.Hide;
  Square.SetSqColor(Form1.ColorBox.Selected);
  Square.Show;
end;  end;

И еще в отрисовке Drawing ставет

Form1.Canvas.Pen.Color:=Square.GetSqColor;

Вроде все . У меня сначало было не обращение к методам св-ва, а просто присвоение имени св-ва но и тогда она глючила.
Кто нить знает из-за чего она так страшно глючит? пока свойство не стал писать все рабботало....

[mrandrey]

Попробуй так:

TSquare = class(TPoint)
.......
sqcol:tcolorl;
private
function GetSqColor:TColor;
procedure SetSqColor(val:TColor);
public
procedure Show; override;
procedure Hide; override;
procedure Drawing(InitX,InitY,InitLength:inte ger);
property SqColor: TColor read GetSqColor write SetSqColor
default clPurple;

function TSquare.GetSqColor:TColor;
begin
result:=SqCol;
end;

procedure TSquare.SetSqColor(val:TColor);
begin
SqCol:=val;
end;

procedure TSquare.Show;
begin
if GetSqColor = Form1.Color
then Form1.Canvas.Pen.Color:=SqColor;
Square.Drawing(x,y,Length);
visible:=true;
end;

procedure TSquare.Hide;
begin
Form1.Color:=SqColor;
Square.Drawing(x,y,Length);
visible:=false;
end;
procedure TForm1.OnColorBoxChange(Sender: TObject);
begin
Square.Hide;
Square.SetSqColor(Form1.ColorBox.Se lected);
Square.Show;
end; end;

Скорее всего у тебя название переменной совпадает с именем свойства вот и волучается бред..

[itisiam]

там у меня не было поля с переменной типа свойства, я нашел