ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / панелька Print Preview
14 сообщений из 14, страница 1 из 1
панелька Print Preview
    #33538944
Лисонька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лисонька
Участник
Леди и джентльмены!
Скажите, а можно ли сделать так, чтобы при запуске репорта панелька Print Preview не "болталась" бы в каком-нибудь месте экрана, а была бы в тулбаре или была бы прикреплена к определенным координатам?
VFP 8 SP1. Проект запускается не в главном окне Фокса.
Благодарю
...
Рейтинг: 0 / 0
11.02.2006, 18:12
| Ответить | Цитировать | Написать  
панелька Print Preview
    #33538996
Фотография Hel!Riser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hel!Riser
Участник
Код: plaintext
MOVE WINDOW "Print Preview" TO  0 ,  0
...
Рейтинг: 0 / 0
11.02.2006, 19:41
| Ответить | Цитировать | Написать  
панелька Print Preview
    #33538997
Фотография Hel!Riser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hel!Riser
Участник
Добафчик
Код: plaintext
DOCK WINDOW "Print Preview"
...
Рейтинг: 0 / 0
11.02.2006, 19:43
| Ответить | Цитировать | Написать  
панелька Print Preview
    #33539019
Лисонька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лисонька
Участник
Да, ответ прост. Но теперь я не знаю, как вложить эту строку в Report. Report-файл я делаю в проекте через конструктор, а где там можно прописать программный код - понятия не имею. (((
...
Рейтинг: 0 / 0
11.02.2006, 20:12
| Ответить | Цитировать | Написать  
панелька Print Preview
    #33539103
Фотография Hel!Riser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hel!Riser
Участник
правык клик по репорту в области деталей и выбрать Data Env.. В появившекмся окошке снова правый клик и выбрать Property ну а дальше выбрать нужное событие. например в Инит(). ТОка я не проверямши
...
Рейтинг: 0 / 0
11.02.2006, 22:24
| Ответить | Цитировать | Написать  
панелька Print Preview
    #33539544
Лисонька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лисонька
Участник
Нет, не получается - все равно выдается ошибка: окно "Print Preview" не определено. Может, оно как по другому зовется?
...
Рейтинг: 0 / 0
12.02.2006, 15:44
| Ответить | Цитировать | Написать  
панелька Print Preview
    #33539643
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
ЛисонькаНет, не получается - все равно выдается ошибка: окно "Print Preview" не определено. Может, оно как по другому зовется?
А ты посмотри, что в заголовке этого ToolBar написано. Это и есть его имя.

Вероятно, проблема в том, что при запуске EXE ты используешь русскоязычную Run-Time библиотеку (или на том языке, который используешь). В этом случае имя ToolBar будет переведено на соответствующий язык. Тогда следует писать примерно так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
LOCAL lcNameEng, lcNameRus
lcNameEng = "Print Preview"
lcNameRus = "Предварительный просмотр"
If Wexist(m.lcNameEng)
	MOVE WINDOW (m.lcNameEng) TO  0 ,  0 
ENDIF
If Wexist(m.lcNameRus)
	MOVE WINDOW (m.lcNameRus) TO  0 ,  0 
ENDIF

Я помещаю весь подобный код в событие BeforOpenTable в DataEnvironment отчета. Имя окна предварительного просмотра на соответствующем языке зависит от версии FoxPro. Поэтому надо смотреть "по месту" как именно оно называется.
...
Рейтинг: 0 / 0
12.02.2006, 19:03
| Ответить | Цитировать | Написать  
панелька Print Preview
    #33546688
Лисонька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лисонька
Участник
ВладимирМ
А ты посмотри, что в заголовке этого ToolBar написано. Это и есть его имя.
Вероятно, проблема в том, что при запуске EXE ты используешь русскоязычную Run-Time библиотеку (или на том языке, который используешь). В этом случае имя ToolBar будет переведено на соответствующий язык. Тогда следует писать примерно так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
LOCAL lcNameEng, lcNameRus
lcNameEng = "Print Preview"
lcNameRus = "Предварительный просмотр"
If Wexist(m.lcNameEng)
	MOVE WINDOW (m.lcNameEng) TO  0 ,  0 
ENDIF
If Wexist(m.lcNameRus)
	MOVE WINDOW (m.lcNameRus) TO  0 ,  0 
ENDIF
Я помещаю весь подобный код в событие BeforOpenTable в DataEnvironment отчета. Имя окна предварительного просмотра на соответствующем языке зависит от версии FoxPro. Поэтому надо смотреть "по месту" как именно оно называется.
Нет ((((((((((((((
Все-равно окно не определяется...
Плюнуть, что ли на это дело, пусть девчонки в конторе сами тянут эту панельку, куда хотят?..

Благодарю все-всех-всех!

Елизавета Скрунскайте
...
Рейтинг: 0 / 0
15.02.2006, 15:11
| Ответить | Цитировать | Написать  
панелька Print Preview
    #33546722
О_В_Д
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
О_В_Д
Участник
ЛисонькаНет ((((((((((((((
Все-равно окно не определяется...
Плюнуть, что ли на это дело, пусть девчонки в конторе сами тянут эту панельку, куда хотят?..

Благодарю все-всех-всех!

Елизавета Скрунскайте

Правильна, Лиска!
Наплюй на них, слюной наплюй!
Эти юзерши иногда сами не знають че хотять
Народ! Кого еще юзерши на работе достали мелкими придирками?
...
Рейтинг: 0 / 0
15.02.2006, 15:18
| Ответить | Цитировать | Написать  
панелька Print Preview
    #33546773
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Лисонька ВладимирМ
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
LOCAL lcNameEng, lcNameRus
lcNameEng = "Print Preview"
lcNameRus = "Предварительный просмотр"
If Wexist(m.lcNameEng)
	MOVE WINDOW (m.lcNameEng) TO  0 ,  0 
ENDIF
If Wexist(m.lcNameRus)
	MOVE WINDOW (m.lcNameRus) TO  0 ,  0 
ENDIF

Нет ((((((((((((((
Все-равно окно не определяется...
Плюнуть, что ли на это дело, пусть девчонки в конторе сами тянут эту панельку, куда хотят?..
Т.е. по прежнему возникает сообщение об ошибке?

Обрати внимание на пример. Там прежде чем обращаться к окну проверяется факт его существования. Функция WEXIST() как раз и делает эту проверку. Если эта проверка прошла, но все-равно возникло сообщение об ошибке, то есть подозрение, что у тебя где-то осталось что-то лишнее.

Т.е. где-то в коде "зашито" прямое обращение к окну без предварительной проверки факта его существования.

Попробуй сделать простенький тестовый отчет с этим кодом в DataEnvironment.BeforOpenTable(). Если выполниться без ошибок, значит остался какой-то мусор в твоих отчетах.
...
Рейтинг: 0 / 0
15.02.2006, 15:27
| Ответить | Цитировать | Написать  
панелька Print Preview
    #33546875
FOXFOX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
FOXFOX
Гость
VFP9 est takoy kod.Poprobuy:
SET DEFAULT TO C:\My_prj\Report

pc = .NULL.
DO (_REPORTPREVIEW) WITH pc

* Set some initial properties:
WITH pc
.Caption = "My Preview "
.ZoomLevel = 10
.CanvasCount = 4
.ToolbarIsVisible =.t.
.Caption = "Salam"
.TopForm =.t.
.CurrentPage = 20
.TextOnToolbar=.f.

ENDWITH

* Set up a report listener and give it our preview:
rl = NEWOBJECT("Reportlistener")
rl.ListenerType = 1
rl.PreviewContainer = pc

* Run a report:
REPORT FORM ('C:\My_prj\Report\myrep.frx') OBJECT rl
...
Рейтинг: 0 / 0
15.02.2006, 15:51
| Ответить | Цитировать | Написать  
панелька Print Preview
    #33547207
Лисонька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лисонька
Участник
FOXFOXVFP9 est takoy kod.
Вы немного невнимательны, какой у меня Фокс указано сразу в вопросе.
...
Рейтинг: 0 / 0
15.02.2006, 17:21
| Ответить | Цитировать | Написать  
панелька Print Preview
    #33547622
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Лисонька, посмотри пример во вложении.

Оказалось, действительно есть проблема.

Дело в том, что при запуске на предварительный просмотр из окна дизайнера отчета ToolBar с именем "Print Preview" виден уже при выполнении события Before OpenTables.

А вот при запуске из командного окна (команда REPORT FORM) при выполнении этого события "Print Preview" еще не видно.

Я обошел эту проблему так:

1) Процедура перемещения ToolBar вынесена в отдельную процедуру вне самого отчета

2) В событии On entry полосы отчета Header сделан вызов этой процедуры
...
Рейтинг: 0 / 0
15.02.2006, 20:56
| Ответить | Цитировать | Написать  
панелька Print Preview
    #33547949
piva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
piva
Участник
Дык - до выполнения команды Report Form окна "Print Preview" еще и не существует
Код: plaintext
1.
2.
Report Form xxx preview nowait 
Dock Window "Print preview" position  0 
Report Form xxx noconsole to printer prompt preview
...
Рейтинг: 0 / 0
16.02.2006, 07:33
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / панелька Print Preview
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=33547622&tid=1592341]:
 0ms
get settings:
 9ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 167ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 207ms
total:  469ms
созд. / загр.: 469ms
x
x
Закрыть


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