IPB
ЛогинПароль:

> Графический режим, с поддержкой мышки и клавы, Fpc
Bokul
сообщение 29.12.2006 21:19
Сообщение #1


Гуру
*****

Группа: Пользователи
Сообщений: 1 117
Пол: Мужской
Реальное имя: Богдан

Репутация: -  11  +


Не знаю проблемы у меня или в модуле Wingraph или еще в чем-то, но не всегда получается отловить нажатие кнопки мыши, а после readkey графическое окно вообще перестает реагировать на другие события. sad.gif

Как я пытаюсь работать с мышой:
 
repeat
if PollMouseEvent(MEvent) then
begin
GetMouseEvent(MEvent);
MouseX:=MEvent.x; MouseY:=MEvent.y;
if (MouseX <> x0) or (MouseY <> y0) then
begin
x0:=MouseX; y0:=MouseY;
if (MEvent.action=MouseActionDown) or (keypressed) then
Arrow.StartNew
else
Arrow.ChangePosition(round(MouseX/step)*step,
round(MouseY/step)*step);
end;
Delay(1);
end;
until CloseGraphRequest;
CloseGraph;


Полный исходник: Прикрепленный файл  PolDevelop.rar ( 1.06 килобайт ) Кол-во скачиваний: 516

При каждом нажатии любой кнопки мыши шарик, который постоянно бегает за курсором, должен оставаться на том месте, где была нажата клавиша, но это происходит далеко не всегда sad.gif .
Если проблемы в коде укажите, пожалуйста, ошибку, в противном случае - подскажите другие модуле с такими же функциями или другие способы работы с мышой в граф. режиме. Отдельно интересует такая возможность используя WinApi.


--------------------
Лао-Цзы :
Знать много и не выставлять себя знающим есть нравственная высота. Знать мало и выставлять себя знающим есть болезнь. Только понимая эту болезнь, мы можем избавиться от нее.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
volvo
сообщение 30.12.2006 3:49
Сообщение #2


Гость






blink.gif blink.gif У тебя в папке "FPC\units\i386-win32\opengl" нет файлов GL.*, GLU.*, GLUT.* ? Значит, "неправильный мед" (С) - качай правильный...

Ну, а описание модуля Windows - это как всегда: msdn.microsoft.com (там все те же функции из WinAPI, только в фри-паскальной обертке)

Цитата
Можно ссылочку на полное описание процедуры?
А более полного там и не было - все, что было - я привел... Вот здесь брал: Mouse unit not working..?
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Bokul   Графический режим   29.12.2006 21:19
volvo   Погоди, а зачем PollMouseEvent? Насколько я помню,...   29.12.2006 23:13
Bokul   Эта функция проверяет есть ли новые события, а ...   29.12.2006 23:39
volvo   Во-первых, я ничего просто не привожу, и если я на...   29.12.2006 23:46
Bokul   А можно поинтересоваться- почему стандартный модул...   30.12.2006 3:05
volvo   Ну, модуль Graph я тоже не знаю, зачем поддерживае...   30.12.2006 3:19
Bokul   Работает! :good: Можно ссылочку на полное ...   30.12.2006 3:37
volvo   :blink: :blink: У тебя в папке "FPC\un...   30.12.2006 3:49
Bokul   Нет, мед - правильный, это у меня что-то неправиль...   30.12.2006 3:55
volvo   :yes2: Лучше всего - в виде "OpenGL Programmi...   30.12.2006 4:02
SKVOZNJAK   Тема обработки событий уже жевалась, и не на одном...   30.12.2006 18:40
Bokul   SKVOZNJAK, можешь чуть подробнее объяснить? Почему...   31.12.2006 8:34
SKVOZNJAK   Да, наверно никакой, так назвалось. И последний и ...   3.01.2007 15:44
Bokul   Обижаешь. :) Нет, ты не угадал. А дело было т...   4.01.2007 7:35
volvo   Сообщение об ошибке - военная тайна? С твоих слов,...   4.01.2007 11:21
Bokul   Ухты, а я и не знал что их может быть так много...   4.01.2007 11:27
volvo   Как выяснить какая? :rolleyes: http://userpage.f...   4.01.2007 11:39
Bokul   :lol: Действительно, большой аудитории заин...   4.01.2007 19:28
Ozzя   А те кто остаются встречаются с проблемой нех...   11.01.2007 10:25
volvo   Создавай :)   4.01.2007 19:35
SKVOZNJAK   P.S. первому варианту можно давать любую bmp-шку...   5.01.2007 14:10
Bokul   Ozzя, а же о этом и писал..   12.01.2007 0:17


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 21.06.2025 15:36
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"