Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.11.2007, 15:18   #1
Newnata
 
Регистрация: 20.11.2007
Сообщений: 4
По умолчанию PASCAL - работа с мышью

напишите, пожалуйста, программу где курсор мыши играет роль карандаша.

Последний раз редактировалось Newnata; 20.11.2007 в 15:43.
Newnata вне форума Ответить с цитированием
Старый 20.11.2007, 16:57   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Жаль что я не могу тебе написать точный код работы с мышой в паскале, ибо убегаю домой, скажу только одно есть два пути: воспользоваться юнитом mouse.pas или рулить прерыванием 33H примерно так:

Код:
uses graph,dos,crt;
var   r:registers;
  grDriver: Integer;
  grMode: Integer;
  ErrCode: Integer;

 FUNCTION push_mouse:integer;
BEGIN R.AX:=5; r.bx:=0;INTR($33,r);push_mouse:=R.AX;END;

 procedure _mouse;
BEGIN
 R.AX:=0; INTR($33,r);
 R.AX:=1; INTR($33,r);
END;

begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');
  ErrCode := GraphResult;
  if ErrCode = grOk then
  begin  { Do graphics }
    Line(0, 0, GetMaxX, GetMaxY);
    Readln;
    CloseGraph;
  end
  else
    Writeln('Graphics error:', GraphErrorMsg(ErrCode));
_mouse;
repeat
 if push_mouse=1 then begin
  /// А тут получаем координаты мышыи и рисуем в них точку
  Как? почитай про прерывания 33H.
 end;
until keypressed;
Closegraph;
end.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 21.02.2011, 07:28   #3
ArtGrek
DelphiProger
Участник клуба
 
Аватар для ArtGrek
 
Регистрация: 14.11.2010
Сообщений: 1,023
По умолчанию

даже модуль показано как делать
http://pascal.proweb.kz/index.php?page=33
VirusN13
ArtGrek вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа с мышью Amery Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 4 28.05.2008 21:19
Win Api, работа с мышью Petrr Win Api 2 26.04.2008 19:58