Графический режим, с поддержкой мышки и клавы, Fpc Опции

[Bokul]

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

Как я пытаюсь работать с мышой:

 
  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 килобайт ) Кол-во скачиваний: 518

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

[Bokul]

3 У тебя железо тянет глубину цветности 32 бита?

Обижаешь.

Нет, ты не угадал. А дело было так: наверное, Fpc не проверяет существование dll-ок на этапе компиляции и по-этому не сообщает о их отсутствии, что приводит к ошибки время выполнения.

В принципе, поправить кодировочку и можно на хранение в фак, в рунете с примерами к SDL - совсем не густо.

А сам изменить кодировку не хочешь?

Большое спасибо за пример, все работает отлично.

P.S. первому варианту можно давать любую bmp-шку?
P.P.S. в документации (user.pdf - Run Time errors) не нашёл 309-ой. Откуда она взялась?
P.P.P.S может действительно начать делать Faq по FreePascal?

Сообщение отредактировано: Bokul - 4.01.2007 7:36