|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
09.09.2007, 20:00 | #11 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
Во первых используй что-то одно либо FormPaint либо таймер, щас некогда смотреть, посмотрю завтра, ты кординаты менял?
А где процедуры KeyDown, KeyUp?
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог Последний раз редактировалось mutabor; 09.09.2007 в 20:02. |
10.09.2007, 13:01 | #12 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
держи код, я немного переделал, как убрать мерцание не знаю оно у тебя было изначально, а я в OpenGL не силен, вообще мерцания быть не должно, у меня есть похожий исходник с таймером и т.д. там его нет
Код:
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог |
10.09.2007, 21:12 | #13 |
Форумчанин
Регистрация: 01.02.2007
Сообщений: 785
|
Спасибо люди добрые!!!
Изо всей благодати
В руках крепко сжатых Я донесу только капли |
11.09.2007, 18:55 | #14 |
Форумчанин
Регистрация: 01.02.2007
Сообщений: 785
|
2 mutabor
Почти все понял ))) все работает! )) я самоучка, вот не могу понять последнюю строку: InvalidateRect(H,nil,False); если не сложно опиши для чего и когда применять можно
Изо всей благодати
В руках крепко сжатых Я донесу только капли |
11.09.2007, 18:59 | #15 |
Форумчанин
Регистрация: 01.02.2007
Сообщений: 785
|
единственный прикол с мерцанием это да...
у меня аж другие приложения и рабочий стол мелькают )
Изо всей благодати
В руках крепко сжатых Я донесу только капли |
11.09.2007, 21:09 | #16 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
InvalidateRect вызывает перерисовку объекта в определенной области.
В этими параметрами и в этой программе InvalidateRect(H,nil,False) равнозначна Repaint; p.s. держи ссылку думаю пригодится http://www.citforum.ru/programming/o...opengl&delphi/
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог |
13.09.2007, 14:27 | #17 |
Форумчанин
Регистрация: 01.02.2007
Сообщений: 785
|
2mutabor
Интересная ссылка спасиб, кое-что полезное я нашел уже Избавился от мерцания, с горем попалам, мне помогли Я вот дописал немного код, теперь эта точка у меня стреляет , но, правда, всего один раз Помоги пожалуйста реализовать код чтоб при каждом нажатии Enter эта точка стреляла. Чего-то полдня просидел пробовал с циклами заморочиться, но так ничего и не вышло
Изо всей благодати
В руках крепко сжатых Я донесу только капли |
13.09.2007, 14:33 | #18 |
Форумчанин
Регистрация: 01.02.2007
Сообщений: 785
|
Код:
Изо всей благодати
В руках крепко сжатых Я донесу только капли |
14.09.2007, 16:20 | #19 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
замени эту строку
if fire then snar:= snar+ speed; этим Код:
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог |
15.09.2007, 19:05 | #20 |
Форумчанин
Регистрация: 01.02.2007
Сообщений: 785
|
я, наверное, просто вопрос неправильно поставил...
мне нада более сложную вещь реализовать - если снаряд вылетел из точки и пролетел уже, например, расстояние >= 0.25 (py+0.25) от центра точки, то при нажатии Enter снова может вылететь 2-ой снаряд, а 1-ый снаряд так и должен лететь до конца формы. Так же когда 2-ой снаряд пролетел от центра точки расстояние >= 0.25, то может вылететь и 3-ий снаряд, при нажатии Enter (если не нажал, то не вылетает ), а 1-ый и 2-ой так и продолжают лететь до конца формы, не исчезая с поля мне кажется, что нужно с динамическими переменными сделать... Или я не прав?
Изо всей благодати
В руках крепко сжатых Я донесу только капли Последний раз редактировалось Roof; 15.09.2007 в 19:10. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как двигаться по данным после select? | _ozzy_ | SQL, базы данных | 5 | 30.06.2008 09:33 |
Как двигаться по записям после Select? | _ozzy_ | БД в Delphi | 5 | 17.06.2008 15:53 |
Url open | Pavel_aress | Общие вопросы Delphi | 12 | 01.08.2007 20:40 |
при нажатии на кнопку должна создаваться новая форма | ***СкаЙ*** | Помощь студентам | 5 | 13.06.2007 11:51 |
Точка на полигоне? | Роман Радер | Общие вопросы Delphi | 14 | 12.02.2007 17:08 |