Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / панелька Print Preview / 14 сообщений из 14, страница 1 из 1
11.02.2006, 18:12
    #33538944
Лисонька
Лисонька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
панелька Print Preview
Леди и джентльмены!
Скажите, а можно ли сделать так, чтобы при запуске репорта панелька Print Preview не "болталась" бы в каком-нибудь месте экрана, а была бы в тулбаре или была бы прикреплена к определенным координатам?
VFP 8 SP1. Проект запускается не в главном окне Фокса.
Благодарю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2006, 19:41
    #33538996
Hel!Riser
Hel!Riser
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
панелька Print Preview
Код: plaintext
MOVE WINDOW "Print Preview" TO  0 ,  0
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2006, 19:43
    #33538997
Hel!Riser
Hel!Riser
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
панелька Print Preview
Добафчик
Код: plaintext
DOCK WINDOW "Print Preview"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2006, 20:12
    #33539019
Лисонька
Лисонька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
панелька Print Preview
Да, ответ прост. Но теперь я не знаю, как вложить эту строку в Report. Report-файл я делаю в проекте через конструктор, а где там можно прописать программный код - понятия не имею. (((
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.02.2006, 22:24
    #33539103
Hel!Riser
Hel!Riser
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
панелька Print Preview
правык клик по репорту в области деталей и выбрать Data Env.. В появившекмся окошке снова правый клик и выбрать Property ну а дальше выбрать нужное событие. например в Инит(). ТОка я не проверямши
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.02.2006, 15:44
    #33539544
Лисонька
Лисонька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
панелька Print Preview
Нет, не получается - все равно выдается ошибка: окно "Print Preview" не определено. Может, оно как по другому зовется?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.02.2006, 19:03
    #33539643
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
панелька Print Preview
ЛисонькаНет, не получается - все равно выдается ошибка: окно "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
| Ответить | Цитировать | Написать  
15.02.2006, 15:11
    #33546688
Лисонька
Лисонька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
панелька 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
| Ответить | Цитировать | Написать  
15.02.2006, 15:18
    #33546722
О_В_Д
О_В_Д
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
панелька Print Preview
ЛисонькаНет ((((((((((((((
Все-равно окно не определяется...
Плюнуть, что ли на это дело, пусть девчонки в конторе сами тянут эту панельку, куда хотят?..

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

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

Правильна, Лиска!
Наплюй на них, слюной наплюй!
Эти юзерши иногда сами не знають че хотять
Народ! Кого еще юзерши на работе достали мелкими придирками?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.02.2006, 15:27
    #33546773
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
панелька Print Preview
Лисонька ВладимирМ
Код: 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:51
    #33546875
FOXFOX
FOXFOX
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
панелька Print Preview
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, 17:21
    #33547207
Лисонька
Лисонька
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
панелька Print Preview
FOXFOXVFP9 est takoy kod.
Вы немного невнимательны, какой у меня Фокс указано сразу в вопросе.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.02.2006, 20:56
    #33547622
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
панелька Print Preview
Лисонька, посмотри пример во вложении.

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

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

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

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

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

2) В событии On entry полосы отчета Header сделан вызов этой процедуры
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.02.2006, 07:33
    #33547949
piva
piva
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
панелька Print Preview
Дык - до выполнения команды 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
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / панелька Print Preview / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 400ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1592341]:
 0ms
get settings:
 4ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 159ms
get topic data:
 5ms
get forum data:
 1ms
get page messages:
 25ms
get tp. blocked users:
 1ms
others: 192ms
total:  400ms
x
x
Закрыть


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