Проблема с классом

[Celestia]

Здравствуйте! Разбираюсь с классами, и возник такой вопрос:

Кусок юнита класса TDX9Render

type
  TDX9Render = class(TGraphicControl)
  
  public
  constructor      Create; overload;

  private
  rSceneDone     : boolean;
  published
  property SceneDone     : boolean             read rSceneDone default True;
end;

.... 

procedure TDX9Render.DrawScene();
begin
rSceneDone:=false;
  //Здесь происходит что то
rSceneDone:=true;
end;

Кусок кода основного юнита:

procedure TMasterForm.DrawScene(Sender : TObject);
begin
if DX9Renderer.SceneDone=true then       <----- вот тут загвоздка не читает свойство SceneDone 
begin
DX9Renderer.DrawScene();
end;
end;

Помогите пожалуйста Спасибо!

[MaxNik2009]

type
  TDX9Render = class(TGraphicControl)
  private
  FSceneDone: boolean;
  procedure SetDrawScene(AVolue: boolean);  

  public
  constructor      Create; overload;
 
  published
  property SceneDone     : boolean read FSceneDone write SetDrawScene default True;
end;

.... 

procedure TDX9Render.SetDrawScene(AVolue: boolean);
begin
  if AVolue <> FSceneDone then
     FSceneDone:= AVolue;
end;


procedure TDX9Render.DrawScene;
begin
FSceneDone:=false;
  //Здесь происходит что то
FSceneDone:=true;

p.s. код не проверял, но логика должна быть понятна.

[s.Creator]

Сообщение от MaxNik2009

p.s. код не проверял, но логика должна быть понятна.

Насколько я вижу твой код отличается от первоначального только тем, что Ты сделал published property SceneDone доступным на запись, что совсем ненужно.

Я бы посоветовал написать

procedure TDX9Render.DrawScene();
begin
  if rSceneDone then
  begin
    rSceneDone:=false;
    //Здесь происходит что то
    rSceneDone:=true;
end;
end;

А причина "нечтения" вероятнее всего в том, что
default True; - только предупреждает редактор свойств, что если свойство true - то можно не сохранять его в файле dfm.
НО НЕ УСТАНАВЛИВАЕТ свойство в true.
напишите в конструкторе

rSceneDone:=true;

и скорей всего все заработает.

[Celestia]

s.Creator, получилось, благодарю!