Помощь - Поиск - Пользователи - Календарь
Полная версия: Кнопки
Форум «Всё о Паскале» > Pascal, Object Pascal > Теоретические вопросы
Anton
Привет!
Может кто сталкивался, как сделать на паскале кнопки. Так что бы курсорными клавишами можно было передвигать маску или как её назвать, с кнопки на кнопку, а при нажатии enter'a или пробела кнопка утоплялась и нажималась, тоесть производились какие-нибудь действия.
volvo
Anton
Уточни, текст или графика?
Anton
Графика
GoodWind
один из выходов - getImage и putimage
набросал бы прогу, да только ТП накрылся вместе с винтом...
надо будет поставить....
volvo
Anton
Я тебе могу прислать проект с кнопками, мышью, и т.д. (но он с ООП)... Нужно?
arsen86
а можно пример меню с кнопками в текстовом режиме ? (без ООП)
APAL
Цитата(arsen86 @ 28.11.04 23:32)
а можно пример меню с кнопками в текстовом режиме ? (без ООП)

Прикрепляю свой модуль.... хотя где-то на форуме я его уже оставлял...
Посмотри там процедурки меню:
Код
Procedure GMenu(k1,k2,Kp:Byte;ss1,ss2,ss3,ss4,ss5,ss6,ss7:dlina;
       Var Result:Byte);
Procedure VMenu(k1,k2,kp:Byte;ss1,ss2,ss3,ss4,ss5,ss6,ss7:dlina;
       Var Result:Byte);
Procedure VMenuColor(k1,k2,Kp,cc,ff:Byte;ss1,ss2,ss3,ss4,ss5,ss6,ss7:dlina;
       Var Result:Byte);
Procedure GMenuColor(k1,k2,kp,cc,ff:Byte;ss1,ss2,ss3,ss4,ss5,ss6,ss7:dlina;
       Var Result:Byte);
Procedure VM(x,y:Byte;ss1,ss2,ss3,ss4,ss5,ss6,ss7,
                     ss8,ss9,ss10,ss11,ss12,ss13,ss14,
                     ss15,ss16,ss17,ss18,ss19,ss20 :dlin; NP:Byte;
                                                         Var Result:Byte);
Procedure VMcf(x,y,c0,f0,cCur,fCur:Byte;ss1,ss2,ss3,ss4,ss5,ss6,ss7,
                     ss8,ss9,ss10,ss11,ss12,ss13,ss14,
                     ss15,ss16,ss17,ss18,ss19,ss20 :dlin;
                     NP:Byte; Var Result:Byte);

Это конечно не кнопки, но вдруг понадобятся.
Делал это очень давно, потому и не ругайте если что вдруг не оптимально... smile.gif
Anton
Цитата(volvo @ 28.11.04 23:16)
Anton
Я тебе могу прислать проект с кнопками, мышью, и т.д. (но он с ООП)... Нужно?

Давай! smile.gif
Посмотрим...
volvo
Anton
Ногами сильно не пинать - я убрал все, что не относится к кнопкам (программка начала немножко подглючивать). Компилируй MAINFILE.EXE и запускай... Для выхода - жми "Exit"...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.