powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / при создании меню как изменить комбинации с русской клавиатуры
18 сообщений из 18, страница 1 из 1
при создании меню как изменить комбинации с русской клавиатуры
    #35033257
Фотография FasterHarder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
I started in 1983, in 2007 i still on a case!

Всем программистам привет! Respect! Забыл как бороться с такой проблемой: сформировал меню, затем сгенерировал, а когда пытаюсь запустить начинает ругаться на комбинации русских клавиш:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
DEFINE PAD _29c0zt913 OF _MSYSMENU PROMPT "ФОРМЫ" COLOR SCHEME  3  ;
	KEY ALT+Ф, ""
DEFINE PAD _29c0zt914 OF _MSYSMENU PROMPT "ИНДЕКСИРОВНИЕ" COLOR SCHEME  3  ;
	KEY ALT+И, ""
DEFINE PAD _29c0zt915 OF _MSYSMENU PROMPT "ПОИСК" COLOR SCHEME  3  ;
	KEY ALT+П, ""
DEFINE PAD _29c0zt916 OF _MSYSMENU PROMPT "ОТЧЕТНОСТЬ" COLOR SCHEME  3  ;
	KEY ALT+О, ""
DEFINE PAD _29c0zt917 OF _MSYSMENU PROMPT "ЭТИКЕТКИ" COLOR SCHEME  3  ;
	KEY ALT+Э, ""
DEFINE PAD _29c0zt91d OF _MSYSMENU PROMPT "ВЫХОД" COLOR SCHEME  3  ;
	KEY ALT+В, ""
ON PAD _29c0zt913 OF _MSYSMENU ACTIVATE POPUP формы
ON SELECTION PAD _29c0zt91d OF _MSYSMENU qiut
меняю их на что нить английское, но при повтоном запуске опять все по новой. Подскажите как быть то?

P.S. на фоксе больше года не прогил, позабыл много чего, так что сильно не пинайте.
...
Рейтинг: 0 / 0
при создании меню как изменить комбинации с русской клавиатуры
    #35033304
Сходи на forum.foxclub.ru? в разделе FAQ по меню все написано.
...
Рейтинг: 0 / 0
при создании меню как изменить комбинации с русской клавиатуры
    #35033336
Фотография FasterHarder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
I started in 1983, in 2007 i still on a case!
я ранее на том форуме тусовался очень даже активно. Еще вопрос по отчетам(все позабыл), как в pageFooter вывести количество строк на странице(заранее известно, что страница будет одна). А также как сделать вывод, мол стр. № 1. Я знаю, что есть переменная _pageno, а как к ней приконкатенировать слова забыл( и так "" + _pageno и так пытался '' + _pageno, а все не хочет). Подскажите как быть то?
...
Рейтинг: 0 / 0
при создании меню как изменить комбинации с русской клавиатуры
    #35033342
Не надо к ней ничего конкатенировать. Надпись "Стр." и поле для _pageno рядом ставишь и наслаждаешься полученным результатом.
...
Рейтинг: 0 / 0
при создании меню как изменить комбинации с русской клавиатуры
    #35033371
Фотография FasterHarder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
I started in 1983, in 2007 i still on a case!
не спорю, так можно, но я делал конкатенацией такие вещи, но в принципе и так можно. А по поводу количества строк, нет никакой глобальной переменной, типа _rowcol?
...
Рейтинг: 0 / 0
при создании меню как изменить комбинации с русской клавиатуры
    #35033398
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
FasterHarder
Код: plaintext
I started in 1983, in 2007 i still on a case!
не спорю, так можно, но я делал конкатенацией такие вещи, но в принципе и так можно. А по поводу количества строк, нет никакой глобальной переменной, типа _rowcol?
1. "Стр. " + alltrim(str(_pageno))
2. Глобальной нет. Заводишь переменную в отчете (меню report->Variables) ставишь value to store: 1 и Calculation: Sum
...
Рейтинг: 0 / 0
при создании меню как изменить комбинации с русской клавиатуры
    #35033438
Фотография FasterHarder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
I started in 1983, in 2007 i still on a case!
спасибо Dima_T, начинаю вспоминать, сделал так:
Код: plaintext
"стр № " + alltrim(str(_pageno)) + "из " + alltrim(str(_pagetotal))
...
Рейтинг: 0 / 0
при создании меню как изменить комбинации с русской клавиатуры
    #35033469
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
FasterHarder... начинаю вспоминать ... Чтобы не вспоминать банальные вещи достаточно хранить исходники того что когда либо было написано.
Я иногда нахожу полезные вещи в давно забытых много лет назад проектах.
...
Рейтинг: 0 / 0
при создании меню как изменить комбинации с русской клавиатуры
    #35033517
Фотография FasterHarder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
I started in 1983, in 2007 i still on a case!
у меня на текущий момент нет даже строки кода на фоксе(акромя хелпа:)), даже забыл как прогу, состоящую из одной строки сделать:)(разобрался методом тыка + хелп). У меня будут вопросы еще по мелочам, думаю что знающему человеку на них ответить потребутеся от 10 до 30 сек(а чтобы найти в хелпе мне нужно будет минут по 5 - 10 на каждый), так что если что сильно не пинайте за глупые вопросы.
...
Рейтинг: 0 / 0
при создании меню как изменить комбинации с русской клавиатуры
    #35033664
Фотография FasterHarder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
I started in 1983, in 2007 i still on a case!

есть некая модальная формочка(малого размера) с комбобоксом(содержит перечень полей некой таблицы). Также есть кнопка при нажатии на которую происходит индексирование данной таблицы и она должна открыться для просмотра. Как сделать так, чтобы форма открылась на весь экран, а не на пол или на размер этого модального окна(in screen). Подскажите как быть то?
Local nameField As String * храним поле, по которому пойдет индексация
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
If(Empty(This.Parent.cmbIndex.Text)) Then
	Messagebox("Выберите поле, по которому провести индексацию.",  0 , "Сообщение для пользователя")
	This.Parent.cmbIndex.SetFocus()
Else
	nameField = Alltrim(This.Parent.cmbIndex.Text)
	Clear
	Close Databases

	Use expon!organization Exclusive

	Index On &nameField TAG IND   * используем макроподстановку
	Browse;
		TITLE 'ПРОИНДЕКСИРОВАННАЯ ТАБЛИЦА ОРГАНИЗАЦИЙ';
		NORMAL
		
	DELETE TAG IND  	* удаляем созданный индекс
Endif

P.S. пока только на пол экрана.
...
Рейтинг: 0 / 0
при создании меню как изменить комбинации с русской клавиатуры
    #35033699
Фотография FasterHarder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
I started in 1983, in 2007 i still on a case!
Подскажите, какое событие происходит у комбобокса в момент, когда он раскрыт и по одному из пунктов сделан щелчок мыши(т е в момент выбора чего либо из комбо)? Подскажите как быть то?
...
Рейтинг: 0 / 0
при создании меню как изменить комбинации с русской клавиатуры
    #35033771
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
FasterHarder... Как сделать так, чтобы форма открылась на весь экран, а не на пол или на размер этого модального окна(in screen). Подскажите как быть то?
...
поиск в форуме по AsTopLevel должен помочь.

FasterHarder
Код: plaintext
I started in 1983, in 2007 i still on a case!
Подскажите, какое событие происходит у комбобокса в момент, когда он раскрыт и по одному из пунктов сделан щелчок мыши(т е в момент выбора чего либо из комбо)? Подскажите как быть то? Меню Tools->Debuger, там Tools->EventTracking включаешь, делаешь необходимые тебе действия и смотришь в логе какие события в каком порядке отрабатывают
...
Рейтинг: 0 / 0
при создании меню как изменить комбинации с русской клавиатуры
    #35033782
Фотография FasterHarder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
I started in 1983, in 2007 i still on a case!

Astoplevel не помог, а вот событие нашел, interactiveChange:).
...
Рейтинг: 0 / 0
при создании меню как изменить комбинации с русской клавиатуры
    #35033788
Фотография FasterHarder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
I started in 1983, in 2007 i still on a case!
так то реально непонятно как таблицу browserom отобразить на всем экране?
...
Рейтинг: 0 / 0
при создании меню как изменить комбинации с русской клавиатуры
    #35033803
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
FasterHarder
Код: plaintext
I started in 1983, in 2007 i still on a case!
так то реально непонятно как таблицу browserom отобразить на всем экране?
Форма в окно фокса
Код: plaintext
1.
2.
thisform.windowstate =  2 
thisform.MDIform = .T.
Окно фокса на весь экран:
Код: plaintext
_screen.windowstate =  2 
Окно отдельно от фокса
Код: plaintext
thisform.showwindow =  2 
C последним много ньюансов
...
Рейтинг: 0 / 0
при создании меню как изменить комбинации с русской клавиатуры
    #35033812
Фотография FasterHarder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
I started in 1983, in 2007 i still on a case!

получил ошибку: свойство showWindow только для чтения.
...
Рейтинг: 0 / 0
при создании меню как изменить комбинации с русской клавиатуры
    #35033919
Фотография FasterHarder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
I started in 1983, in 2007 i still on a case!
остался очень важный нерешенный вопрос, связанный с меню. Комбинации с русскими буквами сделал, но не понятно, почему при запуске меню лиса ругается на неизвестную команду:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
DEFINE PAD _29c1c6uka OF _MSYSMENU PROMPT "ФОРМЫ" COLOR SCHEME  3  ;
	KEY CTRL+F, "CTRL+F"
DEFINE PAD _29c1c6ukb OF _MSYSMENU PROMPT "ИНДЕКСИРОВНИЕ" COLOR SCHEME  3  ;
	KEY CTRL+I, "CTRL+I"
DEFINE PAD _29c1c6ukc OF _MSYSMENU PROMPT "ПОИСК" COLOR SCHEME  3  ;
	KEY CTRL+P, "CTRL+P"
DEFINE PAD _29c1c6ukd OF _MSYSMENU PROMPT "ОТЧЕТНОСТЬ" COLOR SCHEME  3  ;
	KEY CTRL+O, "CTRL+O"
DEFINE PAD _29c1c6uke OF _MSYSMENU PROMPT "ЭТИКЕТКИ" COLOR SCHEME  3  ;
	KEY CTRL+E, "CTRL+E"
DEFINE PAD _29c1c6ukf OF _MSYSMENU PROMPT "ВЫХОД" COLOR SCHEME  3  ;
	KEY CTRL+V, "CTRL+V"
ON PAD _29c1c6uka OF _MSYSMENU ACTIVATE POPUP формы
ON SELECTION PAD _29c1c6ukf OF _MSYSMENU qiut

DEFINE POPUP формы MARGIN RELATIVE SHADOW COLOR SCHEME  4 
DEFINE BAR  1  OF формы PROMPT "ОРГАНИЗАЦИИ" ;
	KEY CTRL+O, "CTRL+O"
DEFINE BAR  2  OF формы PROMPT "\-"
DEFINE BAR  3  OF формы PROMPT "УЧАСТНИКИ ОТ ОРГАНИЗАЦИЙ" ;
	KEY CTRL+U, "CTRL+U"
DEFINE BAR  4  OF формы PROMPT "\-"
DEFINE BAR  5  OF формы PROMPT "УЧАСТНИКИ" ;
	KEY CTRL+T, "CTRL+T"
ON SELECTION BAR  1  OF формы do form org.scx
на эту строку:
Код: plaintext
ON PAD _29c1c6uka OF _MSYSMENU ACTIVATE POPUP формы
все уже перепробовал, но так и не понял, как это убрать. Подскажите как быть то?, буду очень благодарен.

P.S. проект готов по частям, а вот с меню неполадки.
...
Рейтинг: 0 / 0
при создании меню как изменить комбинации с русской клавиатуры
    #35033969
Фотография FasterHarder
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
I started in 1983, in 2007 i still on a case!
полностью поборол проблемы с меню. не хватало read events clear events.
...
Рейтинг: 0 / 0
18 сообщений из 18, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / при создании меню как изменить комбинации с русской клавиатуры
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]