powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как убрать кнопку...
9 сообщений из 9, страница 1 из 1
Как убрать кнопку...
    #32691636
TarasV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подскажите пожалуста, где искать?

...
REPORT FORM report1 PREVIEW
...

появляется толбар "Print Prewiev".
так вот на ней надо програмно, при определённом условии,
как-то убрать или сделать не активной кнопку "Print Report".

Как быть?
...
Рейтинг: 0 / 0
Как убрать кнопку...
    #32691762
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно, но не очень хорошо. Скачай пример:

http://www.foxclub.ru/sol/index.php?act=view&id=165

Идея в том, что ты тащишь на клиента файл FoxUser.dbf с нужными настройками и подключаешь его на момент выполнения отчета.
...
Рейтинг: 0 / 0
Как убрать кнопку...
    #32692155
TarasV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну цепляю я на клиента FoxUser.dbf "без кнопки" ,
так в Run-Time модуле не работает...
...
Рейтинг: 0 / 0
Как убрать кнопку...
    #32692245
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
LOCAL llIsResource, lcResource
llIsResource = SET("Resource")
lcResource = SET("Resource", 1 )
SET RESOURCE ON
SET RESOURCE TO NoPrint.DBF

REPORT FORM ... PREVIEW

SET RESOURCE TO (m.lcResource)
SET RESOURCE &llIsResource

Объяснять, что я здесь написал, или все-таки скачаешь примерчик по ссылке?
...
Рейтинг: 0 / 0
Как убрать кнопку...
    #32692337
TarasV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Примерчик давно скачал. Спасибо за ссылку.
Но проблема в том, что не работает в Run-Time (в ЕXE-файле)
так как там этот тулбар называется "Предварительный просмотр", а не "Print Preview"
...
Рейтинг: 0 / 0
Как убрать кнопку...
    #32692373
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
RUN-Time библиотеки имеют имена вроде:

VFPxRenu.dll - англоязычная версия
VFPxRrus.dll - русскоязычная версия

Здесь x - это номер версии - 6,7,8, ...

Чтобы все названия остались по английски удали русскоязычную Run-Time библиотеку. Оставь только англоязычную.

И еще, можешь использовать вариант с прерыванием печати по нажатию кнопки "Cansel" в окне "Printing...". В русскоязычной Run-Time библиотеке это будет окно с именем "Печать..." Для стабильного срабатывания нажатия этой кнопки надо дать команду DoEvents вместо Inkey() или Wait window как в примере.
...
Рейтинг: 0 / 0
Как убрать кнопку...
    #32692526
TarasV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо.
Но хотелось бы сделать красиво.
Нету кнопки - и юзеру нету чего жать, раз не разрешено ему печатать...
...
Рейтинг: 0 / 0
Как убрать кнопку...
    #32692762
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну, хорошо, раз сам не догадываешся :)

Файл ресурсов - это обычная DBF-таблица. Открываешь ее и находишь в ней запись со следующими значениями полей:

TYPE="PREFW"
ID="TTOOLBAR"
NAME="Print Preview"

Поле Name - это как раз имя ToolBar. Для русскоязычной Run-Time библиотеки создай копию этой строки в файле FoxUser, но в поле Name напиши "Предварительный просмотр".

Да, еще проверь, чтобы кодовая страница файла FoxUser была 1251.

Теоретически, это должно сработать и с русскоязычной Run-Time библиотекой. Если получится, напиши.
...
Рейтинг: 0 / 0
Как убрать кнопку...
    #32693209
TarasV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Огромное спасибо.
Проблема была имено в кодовой странице.
Работает отлично.
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как убрать кнопку...
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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