Неправильно работает case

[Jeysi Z]

Здравствуйте, для проекта понадобилось рисовать разные 3d линии в зависимости от значения переменной, сначала решил проверить на совсем простом примере, но сразу возникли проблемы. В общем, в процедуре render организован case для переменной stage, в зависимости от её значения должны рисоваться разные линии, но этого не происходит, рисуется только первоначальная линия. 

Вот код процедуры :

procedure TForm2.Dummy1Render(Sender: TObject; Context: TContext3D);
var i:integer;
begin
       case stage of
             1:begin
              if Context.BeginScene then
                 try
                    Context.Clear(TAlphaColorRec.White);
                    Context.DrawLine(TPoint3D.Create(3,3,0),TPoint3D.Create(3,-3,0),1,TAlphaColorRec.Black);
                  finally
                  Context.EndScene;
                  end;
              end;
              2:begin
                  if Context.BeginScene then
                  try
                    Context.Clear(TAlphaColorRec.White);
                    Context.DrawLine(TPoint3D.Create(-3,3,0),TPoint3D.Create(-3,-3,0),1,TAlphaColorRec.Black);
                  finally
                  Context.EndScene;
                  end;
              end;
        end;
end;

 Вот скрины работы программы. Снизу отображается значение переменной stage.

Заранее спасибо.

Изменено 26 декабря, 2017 пользователем Jeysi Z

[Alexander]

Чудес не бывает, либо в отладчике смотрите какое значение stage, либо в render выводите stage на экран.

И не видно кода, как происходит перерисовка после изменения stage, думаете изменение переменной автоматически перерисует сцену?

Изменено 26 декабря, 2017 пользователем Alexander

[POV]

begin-end проконтроллируй. Похоже у тебя весь код для "1"

[Jeysi Z]

Значение stage меняется нажатием на кнопки, одна уменьшает на 1, другая увеличивает, в процедуре нажатия я вызываю render.

Вот код

procedure TForm2.Button2Click(Sender: TObject);
begin
  stage:=stage+1;
  if stage>1 then
  begin
    Button3.Visible:=true;
    Label1.Margins.Left:=0;
  end;
  if stage=laststage then
  begin
    Button2.Visible:=false;
    Label1.Margins.Right:=65;
  end;
  Dummy1Render(sender,Dummy1.Context);
  Label1.Text:=IntToStr(stage);
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
  stage:=stage-1;
  if stage=1 then
  begin
    Button3.Visible:=false;
    Label1.Margins.Left:=65;
  end;
  if stage<laststage then
  begin
    Button2.Visible:=true;
    Label1.Margins.Right:=0;
  end;
  Dummy1Render(sender,Dummy1.Context);
  Label1.Text:=IntToStr(stage);
end;

 

Изменено 26 декабря, 2017 пользователем Jeysi Z

[Jeysi Z]

2 часа назад, POV сказал:

begin-end проконтроллируй. Похоже у тебя весь код для "1"

Я посмотрел, вроде всё правильно.