IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> Кнопки, чтобы нажимались :)
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 6
Пол: Мужской

Репутация: -  0  +


Привет!
Может кто сталкивался, как сделать на паскале кнопки. Так что бы курсорными клавишами можно было передвигать маску или как её назвать, с кнопки на кнопку, а при нажатии enter'a или пробела кнопка утоплялась и нажималась, тоесть производились какие-нибудь действия.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Anton
Уточни, текст или графика?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 6
Пол: Мужской

Репутация: -  0  +


Графика
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Автооответчик
*****

Группа: Пользователи
Сообщений: 1 188
Пол: Мужской
Реальное имя: Александр

Репутация: -  16  +


один из выходов - getImage и putimage
набросал бы прогу, да только ТП накрылся вместе с винтом...
надо будет поставить....


--------------------
Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Anton
Я тебе могу прислать проект с кнопками, мышью, и т.д. (но он с ООП)... Нужно?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Мужской

Репутация: -  0  +


а можно пример меню с кнопками в текстовом режиме ? (без ООП)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Смотрю...
*****

Группа: Пользователи
Сообщений: 1 055
Пол: Мужской
Реальное имя: Пшеничный Алексей Анатольевич

Репутация: -  6  +


Цитата(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


Прикрепленные файлы
Прикрепленный файл  MYSERVIS.PAS ( 64.81 килобайт ) Кол-во скачиваний: 502


--------------------
Если что-то не делает того, что вы запланировали ему делать - это еще не означает, что оно бесполезно.
--------------------
Прежде, чем задать вопрос - Правила :: FAQ :: Поиск
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8





Группа: Пользователи
Сообщений: 6
Пол: Мужской

Репутация: -  0  +


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

Давай! smile.gif
Посмотрим...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гость






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


Прикрепленные файлы
Прикрепленный файл  project.zip ( 13.24 килобайт ) Кол-во скачиваний: 376
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 27.11.2021 15:30
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name