Графическое меню с мышью Turbo Pascal

[GamBitFRK]

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

[Stilet]

Либо Turbo Vision либо через прерывания BIOS или прямое обращение к видеопамяти.
Почитай про первое, ибо второе чуть сложнее.

[Stilet]

Либо Turbo Vision либо через прерывания BIOS или прямое обращение к видеопамяти.
Почитай про первое, ибо второе чуть сложнее.

[GamBitFRK]

Спасибо, но это я знаю. Через прерывания не получается, а это, по моему мнению, самый нормальный способ

[Stilet]

Через прерывания не получается

А как пробовал?
Я когда-то с видеопамятью работал.
Впрочем graph.tpu еще не отменили. Там есть функции рисования, используй его.
А для работы с мышкой прерывание 33h:
http://yandex.ua/yandsearch?text=33h...oc=10&lr=20554

[Serge_Bliznykov]

поиграйтесь с приложенным архивом.
Там же внутри есть и вордовский файлик: "Работа с мышкой в Pascal."
и модуль MOUSE_OS.PAS
и программка, демонстрирующая работу с модулем. (не доделанная и (с) не мой... )

[s-andriano]

На всякий случай: чтобы работать в DOS с мышью, нужно установить мышиный драйвер.

[GamBitFRK]

Буду очень признателен, если кто-то напишет код, обычный пример, 1 пункт меню и мышь работающая. При нажатии на пункт, что-то выполняется. остальное доделаю. Спасибо заранее

[GamBitFRK]

Уже разобрался. Последний вопрос, тут уже не знаю, что делать.
Как дать понять курсору мыши, что мы навели на пункт меню?
Определять, когда мы навели на область, где другой цвет?
Или как? тут идей совсем нет, если кто-то подкинет, буду благодарен

[Serge_Bliznykov]

Как дать понять курсору мыши, что мы навели на пункт меню?

GamBitFRK, мой пример с крестиками Вам ничем не помог, да?

Зачем курсору мыши что-то давать понять?!
Вам нужно просто отловить момент, когда произошло нужное Вам событие.
В выложенном мною примере - это нажатие на левую кнопку мышки.
Проверяется это в цикле (крутим, пока не нажали на лев.кнопку мышки)

        repeat
          mousecondition(x,y,lt,rt,ct);
        until lt;

процедура эта возращает координаты мышки и признак нажатия клавиш "левой", "правой", "центральной". Работает, как уже и было верно сказано выше, через INT (прерывание) 33h

  procedure mousecondition;
    begin
      reg.ax:=3; intr($33,reg);
      x:=reg.cx; y:=reg.dx;
      if reg.bx and 1 = 0 then left:=false else left:=true;
      if reg.bx and 2 = 0 then right:=false else right:=true;
      if reg.bx and 4 = 0 then centr:=false else centr:=true;
    end;

Определять, когда мы навели на область, где другой цвет?

можно по разному делать, но я бы лично, банально, по координатам X и Y определял, в какую область ткнули мышкой. Если эта облать совпадает с областью, где наш пункт меню - значит этот пункт и выбран!