Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Linux, Free Pascal, мышь…

Автор: Matrex 3.1.2011, 21:12

Коллеги... В Free Pascal под Linux (Ubuntu 9.10, IDE Lazarus) для консольного приложения пытаюсь инициализировать грызуна следующим образом:

Код


program console;
{$mode objfpc}{$H+}
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes,
  crt,mouse;
{$IFDEF WINDOWS}{$R console.rc}{$ENDIF}
begin
 clrscr;
 mouse.InitMouse;
 while true do 
 begin
   gotoxy(1,1);
   writeln(mouse.GetMouseX,'   ',mouse.GetMouseY)
 end; 
end.

Где ошибка, почему координаты мыши всегда равны 0,0?