Как включить поддержку мыши в терминале с Linux и заставить работать модуль мыши в Delphi?

Delphi , ОС и Железо , Мышка и Курсор

Вопрос о том, как включить поддержку мыши в терминале с Linux и использовать модуль мыши в среде разработки Delphi, является актуальным для разработчиков, работающих с консольными приложениями. В данной статье мы рассмотрим решение этой проблемы на основе предоставленного контекста.

Проблема

Пользователь Lauriet столкнулся с проблемой, что стандартный модуль мыши не работает в терминале с Linux. Несмотря на то, что в прошлом он успешно использовал этот модуль в среде DOS и Turbo Pascal, в Linux модуль мыши не возвращает координаты мыши.

Решение

В контексте обсуждения было предложено несколько решений. Warfley предложил использовать ANSI escape sequences для включения поддержки мыши, а затем считывать события мыши из stdin в виде escape sequences. Tetrastes предоставил пример кода, который использует модули keyboard и mouse для имитации событий мыши как событий клавиатуры. Lauriet успешно применил этот подход, создав свой собственный модуль MyMouse, который читает события мыши и предоставляет их в удобном для использования формате.

Пример кода

program TestMouse;
uses
  Video, MyMouse;

begin
  InitVideo;
  ClearScreen;
  InitMyMouse;

  repeat
    ReadMyMouse;
    WriteLn(MyMouseX : 4, MyMouseY : 4, MyMouseButtons : 4);
  until MyMouseButtons in [1, 4];

  CloseMyMouse;
end.

unit MyMouse;

interface

procedure InitMyMouse;
procedure CloseMyMouse;
function MyMouseButtons: Byte;
function MyMouseX: Byte;
function MyMouseY: Byte;
procedure ReadMyMouse;

implementation
uses
  keyboard, mouse;

type
  TMouseEvent = record
    x, y: Byte;
    Buttons: Byte;
    otherStuff: Word;
    eventType: Byte;
  end;

var
  MM: TMouseEvent;

procedure InitMyMouse;
begin
  InitMouse;
  InitKeyboard;
end;

procedure CloseMyMouse;
begin
  DoneKeyboard;
  DoneMouse;
end;

function MyMouseButtons: Byte;
begin
  MyMouseButtons := MM.Buttons;
end;

function MyMouseX: Byte;
begin
  MyMouseX := MM.x;
end;

function MyMouseY: Byte;
begin
  MyMouseY := MM.y;
end;

procedure ReadMyMouse;
var
  Ch: Char;
begin
  repeat
    if KeyPressed then
    begin
      GetKeyEvent;
      if PollMouseEvent(MM) then
        while PollMouseEvent(MM) do
        begin
          GetMouseEvent(MM);
        end
      else
        Ch := RawReadKey;
    end;
  until MM.Buttons > 0;
end;

end.

Альтернативное решение

Для более продвинутых пользователей и тех, кто ищет более мощные инструменты, рекомендуется использовать библиотеки из серии ptc, такие как ptcgraph, ptccrt, ptckvm и другие. Эти библиотеки предоставляют широкие возможности для работы с графикой, видео, консолью, мышью и шрифтами, и являются кроссплатформенными.

Заключение

В данной статье мы рассмотрели, как включить поддержку мыши в терминале с Linux и заставить работать модуль мыши в среде Delphi. Мы рассмотрели стандартный подход с использованием модулей keyboard и mouse, а также предложили альтернативу в виде использования продвинутых библиотек ptc. Пользователи могут выбрать наиболее подходящий для них вариант в зависимости от сложности их проекта и личных предпочтений.

Создано по материалам из источника по ссылке.

Context — это материал, который рассматривает решение проблемы поддержки мыши в терминале с Linux для разработчиков на Delphi, предлагая разные подходы, от использования ANSI escape sequences до применения библиотек ptc.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Мышка и Курсор ::