Здесь я публикую исходники моих программ. Пока
только самых маленьких, так как настоящие БОЛЬШИЕ программы я не публикую,
надеюсь понятно почему...
Сначала скачайте мой фирменный модуль
mouse.tpu и установите его
в директорию UNITS. Это модуль, который позволяет
работать в Turbo Pascal с мышью.
************************************************************************************************************************
program risovalk;
uses mouse,
{подключение модулей}
crt,
graph;
var x,y,gd,gm,color:integer;
b:tbtnstate;
begin
gd:=detect;
initgraph(gd,gm,'');
{инициализация графического режима}
showmouse;
{вывод мыши на экран}
line(500,0,500,500);
{вывод линии, разграничивающей рабочее пространство и настройки цвета}
setfillstyle(solidfill,green);
{вывод зеленого прямоугольника, при нажатии на который
bar(510,100,520,200);
устанавливается зеленый цвет линий}
setfillstyle(solidfill,yellow);{вывод
желтого прямоугольника, при нажатии на который
bar(510,300,520,400);
устанавливается желтый цвет линий}
setfillstyle(solidfill,red);
{вывод красный прямоугольника, при нажатии
на который
bar(530,100,540,200);
устанавливается красный цвет линий}
repeat
getmouse(x,y,b);
{получение координат мыши}
if (leftbutton in b) and (x>500) then
begin
if ((x>510) and (x<520)) and ((y>100)
and (y<200)) then color:=green; {настройка
if ((x>510) and (x<520)) and ((y>300)
and (y<400)) then color:=yellow; цветов
if ((x>530) and (x<540)) and ((y>100)
and (y<200)) then color:=red; мыши}
if (leftbutton in b) and (x<500) then
putpixel(x,y,color);
end;
until keypressed;
end.
************************************************************************************************************************