Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Правила раздела!1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
  |
| Кнопки, чтобы нажимались :) |
| Anton |
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация:  0   |
Привет!
Может кто сталкивался, как сделать на паскале кнопки. Так что бы курсорными клавишами можно было передвигать маску или как её назвать, с кнопки на кнопку, а при нажатии enter'a или пробела кнопка утоплялась и нажималась, тоесть производились какие-нибудь действия. |
   |
 
|
| volvo |
Сообщение
#2
|
|
Гость |
Anton
Уточни, текст или графика? |
|
|
|
| Anton |
Сообщение
#3
|
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
Графика
|
|
|
|
| GoodWind |
Сообщение
#4
|
 Автооответчик  Группа: Пользователи Сообщений: 1 188 Пол: Мужской Реальное имя: Александр Репутация: 16 |
один из выходов - getImage и putimage
набросал бы прогу, да только ТП накрылся вместе с винтом... надо будет поставить.... -------------------- Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
|
|
|
|
| volvo |
Сообщение
#5
|
|
Гость |
Anton
Я тебе могу прислать проект с кнопками, мышью, и т.д. (но он с ООП)... Нужно? |
|
|
|
| arsen86 |
Сообщение
#6
|
 Новичок Группа: Пользователи Сообщений: 12 Пол: Мужской Репутация: 0 |
а можно пример меню с кнопками в текстовом режиме ? (без ООП)
|
|
|
|
| APAL |
Сообщение
#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); Это конечно не кнопки, но вдруг понадобятся. Делал это очень давно, потому и не ругайте если что вдруг не оптимально...  Прикрепленные файлы 
MYSERVIS.PAS ( 64.81 килобайт )
Кол-во скачиваний: 580-------------------- |
|
|
|
| Anton |
Сообщение
#8
|
|
Группа: Пользователи Сообщений: 6 Пол: Мужской Репутация: 0 |
Цитата(volvo @ 28.11.04 23:16) Anton Я тебе могу прислать проект с кнопками, мышью, и т.д. (но он с ООП)... Нужно? Давай! Посмотрим... |
|
|
|
| volvo |
Сообщение
#9
|
|
Гость |
Anton
Ногами сильно не пинать - я убрал все, что не относится к кнопкам (программка начала немножко подглючивать). Компилируй MAINFILE.EXE и запускай... Для выхода - жми "Exit"... Прикрепленные файлы 
project.zip ( 13.24 килобайт )
Кол-во скачиваний: 456 |
|
|
|
|
|
Текстовая версия | 20.04.2024 0:10 |
