Pomoqite kto mojet / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Pomoqite kto mojet

3 сообщений из 3, страница 1 из 1

Pomoqite kto mojet

#33191695

FoxGuest

Гость

Dobroe den dami I qospada.

Sozdal dinamicheskoe menu ,I vot vapros.Pomoqite kto mojet.
Zarane bloqadaren

LOCAL nBar
* ON KEY LABEL ESC KEYBOARD CHR(13)

DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF shortcut PROMPT "\<Cut" KEY CTRL+F, 'CTRL+F' PICTURE 'C:\ FoxPrj\Icons\cut.ico'
DEFINE BAR 2 OF shortcut PROMPT "\-"
DEFINE BAR 3 OF shortcut PROMPT "\<Copy" KEY CTRL+C, 'CTRL+C' PICTURE 'C:\ FoxPrj\Icons\copy.ico'
DEFINE BAR 4 OF shortcut PROMPT "\-"
DEFINE BAR 6 OF shortcut PROMPT "\<Paste" KEY CTRL+I, 'CTRL+I' PICTURE 'C:\ FoxPrj\Icons\paste.ico'
ON SELECTION POPUP shortcut nBar=BAR()

ACTIVATE POPUP shortcut

* Kakie kodi nujni cto menu deystvoval?

DO CASE

CASE BAR()=1
...

CASE BAR()=3
...

CASE BAR()=6

ENDCASE

...

Рейтинг:

0 / 0

29.07.2005, 14:07:04

| Ответить | Цитировать | Написать

Pomoqite kto mojet

#33191726

AleksMed

Участник

Откуда: Россия, Серпухов-Москва

Сообщения: 1 527

Рейтинг: 0 / 0

LOCAL nBar
* ON KEY LABEL ESC KEYBOARD CHR(13)

DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF shortcut PROMPT "\<Cut" KEY CTRL+F, 'CTRL+F' PICTURE 'C:\ FoxPrj\Icons\cut.ico'
DEFINE BAR 2 OF shortcut PROMPT "\-"
DEFINE BAR 3 OF shortcut PROMPT "\<Copy" KEY CTRL+C, 'CTRL+C' PICTURE 'C:\ FoxPrj\Icons\copy.ico'
DEFINE BAR 4 OF shortcut PROMPT "\-"
DEFINE BAR 6 OF shortcut PROMPT "\<Paste" KEY CTRL+I, 'CTRL+I' PICTURE 'C:\ FoxPrj\Icons\paste.ico'
ON SELECTION POPUP shortcut do MenuAction with BAR()

ACTIVATE POPUP shortcut

PROCEDURE MenuAction
PARAMETERS tnBar
DO CASE

CASE tnBar=1
...

CASE tnBar=3
...

CASE tnBar=6

ENDCASE

...

Рейтинг:

0 / 0

29.07.2005, 14:14:24

| Ответить | Цитировать | Написать

Pomoqite kto mojet

#33191732

ВладимирМ

Участник

Откуда: г. Москва

Сообщения: 7 937

Рейтинг: 0 / 0

FoxGuest* Kakie kodi nujni cto menu deystvoval?
Никакие. Это не шутка. Просто все действия "зашиты" в самой среде FoxPro. Надо только чуть изменить код определения меню

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.

DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()

DEFINE BAR _MED_UNDO OF shortcut PROMPT "Отменить" 
DEFINE BAR _MED_REDO OF shortcut PROMPT "Вернуть" 
DEFINE BAR _MED_SP100 OF shortcut PROMPT "\-"
DEFINE BAR _MED_CUT OF _medit PROMPT "Вырезать" 
DEFINE BAR _MED_COPY OF shortcut PROMPT "Копировать" 
DEFINE BAR _MED_PASTE OF shortcut PROMPT "Вставить" 
DEFINE BAR _MED_CLEAR OF shortcut PROMPT "Очистить"
DEFINE BAR _MED_SP200 OF shortcut PROMPT "\-"
DEFINE BAR _MED_SLCTA OF shortcut PROMPT "Выделить все" 

ACTIVATE POPUP shortcut

Ну, можешь добавить еще картинку, это уже детали. Команда ON SELECTION здесь вообще не нужна.

Здесь весь фокус в специальных константах FoxPro. Обрати внимание на то, что стоит за словом BAR в команде определения. Именно эти константы и заставят выполнить "системные" действия при выборе соответсвующего пункта меню.

...

Рейтинг:

0 / 0

29.07.2005, 14:15:43

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Pomoqite kto mojet

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&fpage=310&tid=1593773]:	0ms
get settings:	9ms
get forum list:	15ms
check forum access:	2ms
check topic access:	2ms
track hit:	23ms
get topic data:	9ms
get forum data:	2ms
get page messages:	42ms
get tp. blocked users:	1ms
others:	194ms

total:	299ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы