Форум на Исходниках.RU

Мышиный support.

Romtek — Tue, 05 Apr 2005 21:17:27 +0000

Romtek: Так тоже пойдёт. :D

Мышиный support.

KiRiK — Tue, 05 Apr 2005 21:17:07 +0000

Мышиный support.

Romtek — Tue, 05 Apr 2005 21:11:11 +0000

Romtek: Окей, всё правильно сделал. Новую тему теперь я перемещу в ФАК, а эту переименую (или ты, ссылкой "редактировать" в 1-м сообщении). Вопрос: как лучше назвать эту тему?

Мышиный support.

KiRiK — Tue, 05 Apr 2005 21:10:49 +0000

KiRiK: Т.е. вот так: Программируем мышу. ?

Мышиный support.

Romtek — Tue, 05 Apr 2005 20:55:52 +0000

Romtek: Теперь создай здесь же другую тему про мышу, в которой помести сообщение #1 отсюда (просто скопируй). А я в нём позже помещу ссылку на готовый топик, удалив дубль. Сия тема будет продолжать собирать мнения и пожелания.

Мышиный support.

KiRiK — Tue, 05 Apr 2005 20:48:37 +0000

KiRiK: Это все, конечно, хорошо. :lol:
Но что с ней дальше то делать?

Мышиный support.

Romtek — Tue, 05 Apr 2005 15:37:33 +0000

Romtek: Оформленная статья читается гораздо лучше. Молодец!

Мышиный support.

KiRiK — Tue, 05 Apr 2005 15:06:13 +0000

KiRiK:

Цитата Romtek @ 05.04.05, 12:52

и грамматические ошибки тоже.

Исправил.. :wacko:
Йошкорныбабай, сколько же их там было..

Люди! Запомните! Не рекомендую дописывать статьи посреди ночи. :whistle:

Мышиный support.

Romtek — Tue, 05 Apr 2005 12:52:59 +0000

Romtek:

Цитата KiRiK @ 03.04.05, 15:47

Нет проблем, сейчас поправим.

и грамматические ошибки тоже. ;)

Добавлено 05.04.05, 12:54

Цитата KiRiK @ 13.02.04, 21:38

Теперь к модераторам. Сейчас прикреплен один архив, который содержит 4 файла. Можно ли всех их прикрепить по отдельности?

:no:

Мышиный support.

KiRiK — Sun, 03 Apr 2005 15:47:31 +0000

KiRiK:

Цитата Romtek @ 03.04.05, 15:37

Ты не вкрадываешься, а описываешь вкратце.

Ступил, каюсь. ;)

Цитата Romtek @ 03.04.05, 15:37

Неправда! Я тебе подсказал, как лучше всего показать на примере эту техлологию. Не вкладывай в мои слова другой смысл.

Нет проблем, сейчас поправим.

Мышиный support.

Romtek — Sun, 03 Apr 2005 15:37:43 +0000

Romtek:

Цитата KiRiK @ 13.02.04, 21:38

вкрадце

Ты не вкрадываешься, а описываешь вкратце. ;)

Цитата KiRiK @ 13.02.04, 21:38

Что, собственно говоря, такое Drag&Drop. Согласно Romtek'у это когда "на экране прямоугольник, ты его тянешь в заданную область, и там он становится другим цветом при отпускании кнопки мышки".

Неправда! Я тебе подсказал, как лучше всего показать на примере эту техлологию. Не вкладывай в мои слова другой смысл. :huh:
Технология так и называется: "хватай и бросай": навели курсор на какой-то объект, нажимаем кнопку мыши, и, удерживая её в этом положении, переносим туда, где хотим "бросить". Там мышку и отпускаем.

Мышиный support.

KiRiK — Sun, 03 Apr 2005 10:07:20 +0000

KiRiK: Отредактировал.

Мышиный support.

Romtek — Thu, 10 Mar 2005 18:11:05 +0000

Romtek: Окей, только сильно долго не тяни.

P.S.
В асю стучи, правда я в ней в последнее время редко бываю.

Это сообщение было перенесено сюда или объединено из темы "Еще чуть-чуть о мышке."

Мышиный support.

KiRiK — Thu, 10 Mar 2005 16:36:56 +0000

KiRiK:

Цитата Romtek @ 10.03.05, 16:29

Вместо того, чтобы спать ночью, лучше бы форуму помог!

И так не более 5ти сплю. Куда уж меньше? (Злобный шепет: "ну, например, четыре").

Цитата Romtek @ 10.03.05, 16:29

В течение 2-х недель справишься, надеюсь?

К тем выходным, которые через 2 недели. Т.е. 1-2 апреля. Если вопросы будут - постучусь в асю. Ладно?

Это сообщение было перенесено сюда или объединено из темы "Еще чуть-чуть о мышке."

Мышиный support.

Romtek — Thu, 10 Mar 2005 16:29:18 +0000

Romtek: В течение 2-х недель справишься, надеюсь?
Вместо того, чтобы спать ночью, лучше бы форуму помог! :))

Это сообщение было перенесено сюда или объединено из темы "Еще чуть-чуть о мышке."

Мышиный support.

KiRiK — Thu, 10 Mar 2005 15:39:35 +0000

KiRiK: Сделаем :)
Сроки?

Добавлено 10.03.05, 15:57
Просто сейчас имеет место некоторый напряг с учебой - сдачи заданий. Но это временно.. я так думаю.. :whistle:

Это сообщение было перенесено сюда или объединено из темы "Еще чуть-чуть о мышке."

Мышиный support.

Romtek — Thu, 10 Mar 2005 13:51:27 +0000

Romtek: KiRiK, ты не мог бы довести тему про мышу до окончательного варианта?

Цитата KiRiK

Описывать - комментировать код или написать по поводу каждой несколько предложений?

Комментарии в коде всегда обязательны, тем более в ЧАВО. Но ещё нужно описание технологии (алгоритма) программ. А то ты знаешь что и как, а другим будет непонятно.

И ещё я тебе не так давно говорил о том, что инфа по прерываниям не так важна, как технология её управления (т.е. обработка нажатий кнопок мыши и т.д.). Отредактируй своё 1-е сообщение в Программируем мышу., чтобы можно было двинуть тему в ФАК. а то она здесь застоялась. Описание прерываний пусть качают в виде дополнительной информации по мышке (прикрепи архив).

Это сообщение было перенесено сюда или объединено из темы "Еще чуть-чуть о мышке."

Мышиный support.

KiRiK — Wed, 09 Feb 2005 19:34:29 +0000

KiRiK: Описывать - комментировать код или написать по поводу каждой несколько предложений?

Это сообщение было перенесено сюда или объединено из темы "Еще чуть-чуть о мышке."

Мышиный support.

Romtek — Wed, 09 Feb 2005 19:33:42 +0000

Romtek:

Цитата Romtek @ 09.02.05, 19:32

А чем был вызван запрет произвольного редактирования ФАКа?

Тем, что туда часто писали гости-чайники, вместо того, чтобы задавать свои вопросы в форуме.

Это сообщение было перенесено сюда или объединено из темы "Еще чуть-чуть о мышке."

Мышиный support.

KiRiK — Wed, 09 Feb 2005 19:32:39 +0000

KiRiK:

Цитата Romtek @ 09.02.05, 19:25

Вот есть тема в ФАКе: Программируем мышу.

А то я не знаю ;)

Это сообщение было перенесено сюда или объединено из темы "Еще чуть-чуть о мышке."

Мышиный support.

Romtek — Wed, 09 Feb 2005 19:32:32 +0000

Romtek: KiRiK, эти 2 демки опиши, хоть вкратце, что и как. А в теме Программируем мышу на мой взгляд, нет необходимости выкладывать список функций мыши, только сами процедуры: что выполняет каждая из них.

Это сообщение было перенесено сюда или объединено из темы "Еще чуть-чуть о мышке."

Мышиный support.

KiRiK — Wed, 09 Feb 2005 19:31:55 +0000

KiRiK:

Цитата Romtek @ 09.02.05, 19:25

Вот есть тема в ФАКе: Программируем мышу.
Туда её надо.

А я туда ее и хотел. :D

Цитата Romtek @ 09.02.05, 19:25

А вверху можно прикрепить ссылку на тему Работа с картинками с твоим модулем.

:yes: Замечательно.

А чем был вызван запрет произвольного редактирования ФАКа?

Это сообщение было перенесено сюда или объединено из темы "Еще чуть-чуть о мышке."

Мышиный support.

Romtek — Wed, 09 Feb 2005 19:25:21 +0000

Romtek:

Цитата KiRiK @ 09.02.05, 18:59

А как ты предлагаешь обновить?

Вот есть тема в ФАКе: Программируем мышу.
Туда её надо. А вверху можно прикрепить ссылку на тему Работа с картинками с твоим модулем.

Это сообщение было перенесено сюда или объединено из темы "Еще чуть-чуть о мышке."

Мышиный support.

KiRiK — Wed, 09 Feb 2005 18:59:33 +0000

KiRiK: Я хотел просто добавить..
А как ты предлагаешь обновить?

Это сообщение было перенесено сюда или объединено из темы "Еще чуть-чуть о мышке."

Мышиный support.

Romtek — Wed, 09 Feb 2005 18:19:48 +0000

Romtek: Вот это как раз то, что надо!
А что именно обновлять надо?

Это сообщение было перенесено сюда или объединено из темы "Еще чуть-чуть о мышке."

Мышиный support.

KiRiK — Tue, 08 Feb 2005 17:28:43 +0000

KiRiK: #6 моё

Вот вторая демка:

Это сообщение было перенесено сюда или объединено из темы "Еще чуть-чуть о мышке."

Мышиный support.

KiRiK — Mon, 07 Feb 2005 20:39:19 +0000

KiRiK:

Цитата Romtek @ 07.02.05, 17:43

Вот твоя же программа, но вариант по-проще (без узлов)

Да, зато в моей результат выводится по окончанию, так интереснее :)
А память, насколько помню, освобождается при GetNode.

Цитата Romtek @ 07.02.05, 17:43

2-я демка ничуть не сложнее первой.

Однако, правда.

Это сообщение было перенесено сюда или объединено из темы "Еще чуть-чуть о мышке."

Мышиный support.

Romtek — Mon, 07 Feb 2005 17:43:53 +0000

Romtek: Вот твоя же программа, но вариант по-проще (без узлов):

USES

Graph,

GrMouse;

VAR

cursor :tMouseCursor;

y :SmallInt;

FirstClick: boolean;

BEGIN

SetSVGAMode(640,480,16,0);

SetFillColor(RGBCOlor(0,0,255));

Bar(0,0,GetMaxX,GetMaxY);

LoadMouseCursor(cursor,'pen.gmc');

InitMouse(@cursor);

ShowMouse;

SetColor(RGBColor(255,255,0));

FirstClick := true;

Repeat

GetMouseXY(x,y);

If TestMouseButtons(mouseLeft,FALSE)

Then

Begin

if FirstClick then

begin

MoveTo(x,y);

FirstClick := false;

end

else

LineTo(x,y);

HideMouse;

Circle (x,y,5);

ShowMouse;

Repeat

MoveMouse

Until not TestMouseButtons(mouseLeft,FALSE)

End

Until TestMouseButtons(mouseRight,FALSE);

SetColor(RGBColor(255,0,0));

Repeat

MoveMouse

Until TestMouseButtons(mouseRight,FALSE);

CloseGraph;

END.

Кстати, в твоём варианте ты забыл освободить память по окончанию работы.

2-я демка ничуть не сложнее первой.

Это сообщение было перенесено сюда или объединено из темы "Еще чуть-чуть о мышке."

Мышиный support.

KiRiK — Mon, 07 Feb 2005 16:17:41 +0000

KiRiK:

Цитата Romtek @ 05.02.05, 21:05

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

Рисует ломаную по точкам, смысл тот же. Завершение - правая кнопка.

Цитата Romtek @ 05.02.05, 21:05

2-я демка - технология Drag'n'Drop: на экране прямоугольник, ты его тянешь в заданную область, и там он становится другим цветом при отпускании кнопки мышки.

Меня, признаться, ломает писАть.. :whistle: В конце концов, это уже не совсем демка мышки..

Это сообщение было перенесено сюда или объединено из темы "Еще чуть-чуть о мышке."

Мышиный support.

KiRiK — Mon, 07 Feb 2005 05:04:41 +0000

KiRiK:

Цитата Romtek @ 05.02.05, 21:05

Желательно добавить ещё пару демок.
Допустим, построение многоугольника с помощью мыши. Каждый клик будет означать новую точку, а двойной щелчок - окончание рисования.
2-я демка - технология Drag'n'Drop: на экране прямоугольник, ты его тянешь в заданную область, и там он становится другим цветом при отпускании кнопки мышки.

Это, конечно, можно сделать (и, скорее всего, сделаю), только особого смысла, по-моему, нет.. просто сейчас чуток другим занимаюсь.

Тут исправление перерисовки (пару минусиков нужно было на плюсики заменить :) , а я то думал на ЖКмонитор, работающий не в своем режиме):

Это сообщение было перенесено сюда или объединено из темы "Еще чуть-чуть о мышке."

Мышиный support.

Romtek — Sat, 05 Feb 2005 21:05:38 +0000

Romtek: KiRiK, по-моему, курсор затирает фоновое изображение. Проверь.
А, вообще, мне понравилось. Молодец!
Желательно добавить ещё пару демок.
Допустим, построение многоугольника с помощью мыши. Каждый клик будет означать новую точку, а двойной щелчок - окончание рисования.
2-я демка - технология Drag'n'Drop: на экране прямоугольник, ты его тянешь в заданную область, и там он становится другим цветом при отпускании кнопки мышки.
;)

Это сообщение было перенесено сюда или объединено из темы "Еще чуть-чуть о мышке."

Мышиный support.

KiRiK — Sat, 05 Feb 2005 19:58:37 +0000

KiRiK: Вот исходник немного обновленного модуля для работы с мышой. Опирается на последнюю версию модуля Images.

Это сообщение было перенесено сюда или объединено из темы "Еще чуть-чуть о мышке."

Мышиный support.

Romtek — Sun, 19 Sep 2004 20:00:45 +0000

Romtek:

Материал прислал Oleg_Z.

2 Oleg_Z:
Требуется привести рабочий пример с использованием процедуры MouseGraphCursor.
Готовый материал будет помещён в Программируем мышу.
Важно также уделить внимание стилю написания кода, чтобы его понимание не было затруднено.

Форма указателя в графическом режиме

uses dos {, ...};

{...}

Procedure MouseGraphCursor(var ScrCurMask;X,Y: Byte);

var

reg:registers;

begin

with Reg do

begin

ax := ;

bx := X;

cx := Y;

es := seg(ScrCurMask);

dx := ofs(ScrCurMask);

Intr(,Reg)

end

end;

Для использования этой процедуры, пропишите в разделе подключаемых модулей, модуль DOS. Эта процедура специально написанна без использования ассемблера, чтобы у Вас, читающих это, не возникло ощущения отсупления в этой теме, от Паскаля. Все предыдущие процедуры и функции тоже могут быть написанны на Паскале, без использования ассемблера (о переводе Паскаль <--> Ассемблер скоро появится тема...)
Здесь ScrCurMasc - это 64 байтный массив, определяющий маску экрана и маску указателя.
x,y - смещение координатной точки относительно левого верзенго угла указателя.
Попробуем создать свой указатель.
Сразу скажу, что максимальный размер указателя - 16*16 пикселей.
Для начала нам надо создать 64 байтный массив.
Это делается следующим образом:
первые 32 байта заполним единицами:

const

a: array[1..64] of byte =

(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,

1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,

{...}

Теперь составляем вторую часть массива (тоже 32 байта )
Тут правило такое: (для удобства)
располагаем по 2 столбика:

const

a: array[1..64] of byte =

(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,

1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,

255,255,

255,255);

Теперь, если мы попробуем создать такой указатель:

Var grDriver : Integer;

grMode : Integer;

Procedure MouseGraphCursor(var ScrCurMask;X,Y: Byte);

var reg:registers;

begin

with Reg do

begin ax := ;

bx := X;

cx := Y;

es := seg(ScrCurMask);

dx := ofs(ScrCurMask);

Intr(,Reg)

end

end;

Begin

grDriver:=Detect;

InitGraph(grDriver, grMode, '');

initmouse;

showmouse;

testmous.mousegraphcursor(a,0,0);

readkey;

closegraph;

end.

(представлено в трудночитаемой форме, т.к. я это вырезал из окна TP.)
Предварительно не забудьте прописать uses dos,graph,crt;
И описать константу a, как мы это уже сделали.
На экране вы увидите белый квадрат 16*16 пикселей. Это получаеться следующим образом:
первый столбец (из двух) в константе-массиве, это вторая часть указателя мыши!!!
т.е.
указатель:

********00000000

нули здесь показывают вторую часть указателя мыши (описываеться первым столбцом в массиве!!!!).
И наоборот, первая часть описывается вторым столбцом массива.
Каждой число типа byte (эл-т массива) - это как раз 8 бит (как раз половина указателя).
Т.е. для создания указателя придется пользоваться двоичной арифметикой.
Проще всего запустить стандартный калькулятор в Windows, переключить его в инженерный вид, и в двоичную форму, записать нужное число и конвертировать его в десятичную или шестадцатиричную.
Ну и в заключении, вот пример массива - маски, позволяющий создать указатель в виде восклицательного знака:

{

00000001 10000000

00000111 11100000

00001111 11110000

00000111 11110000

00000011 11000000

00000001 10000000

00000000 00000000

00000111 11100000

00000011 11100000

}

a:array[1..64] of byte =

(1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,

1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,

128,1,

224,7,

240,15,

224,7,

192,3,

128,1,

0,0,

224,7,

192,3);

Эта тема была разделена из темы "Неотёсанные топики"

Это сообщение было перенесено сюда или объединено из темы "Мышиный курсор"

Мышиный support.

KiRiK — Thu, 15 Apr 2004 19:11:52 +0000

KiRiK: Вот пример модуля, работающего с графической мышой в TMT Pascal'е.

Мышиный support.

vot — Sun, 28 Mar 2004 11:48:38 +0000

vot: Дополнительные материалы можно найти на Исходниках:
http://pascal.sources.ru/mouse/

Мышиный support.

KiRiK — Fri, 13 Feb 2004 21:38:11 +0000

KiRiK: Тема в FAQ'е: Программируем мышу.

Цитата Romtek @ 05.04.05, 20:55

Сия тема будет продолжать собирать мнения и пожелания.