-
Похожий контент
-
- 0 ответов
- 1 156 просмотров
-
- 6 ответов
- 2 032 просмотра
-
- 0 ответов
- 1 055 просмотров
-
- 2 ответа
- 1 286 просмотров
-
- 4 ответа
- 2 988 просмотров
-
- 2 ответа
- 5 838 просмотров
-
- 2 ответа
- 3 454 просмотра
-
- 1 ответ
- 3 766 просмотров
-
- 4 ответа
- 4 759 просмотров
-
-
Последние посетители 0 пользователей онлайн
- Ни одного зарегистрированного пользователя не просматривает данную страницу
Вопрос
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.
Заранее спасибо.
Изменено пользователем Jeysi Z4 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.