Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

QReport PrintPreview - как запретить? [D5, Win2k]

Юра © (2003-01-23 15:11:00)
Есть QReport, вызываю QReport.Preview. Далее минимизирую окно превью, снова кликаю на кнопку, которая вызывает QReport.Preview - получаю еще одно окно превью. Повторять можно до бесконечности. Пробовал сделать так:
if not(QuickReport.State in [qrPrepare, qrPreview, qrPrint, qrEdit]) then QuickReport.preview;
не помогает. Как запретить QReport"у выполнение превью, если один раз превью уже вызвано?

Anatoly Podgoretsky (2003-01-23 16:16:00) [1]
Ты просто запрети свою кнопку, а потом разреши, кромето учти, что есть PreviewModal

gsu (2003-01-23 16:11:00) [2]
>> Да, так работает. Но есть в этом что-то неправильное...
Напиши Биллу Гейтсу

Юра (2003-01-23 16:06:00) [3]
Да, так работает. Но есть в этом что-то неправильное...

gsu (2003-01-23 15:55:00) [4]
тогда AfterPreview:
P:=TRUE

Юра (2003-01-23 15:54:00) [5]
Есть:
Available
Type : boolean; Run-time, read only

Before calling the ‘Print’ .or ‘Preview’ method check if the report is already running by reading the ‘Available’ property.
Qreport 3.5.0.

Равно False в процессе формирования репорта, когда он уже сформирован - TRUE.

gsu (2003-01-23 15:46:00) [6]
св-во есть тама Availabled

Юра (2003-01-23 15:42:00) [7]
qrAvailable

Anatoly Podgoretsky (2003-01-23 15:31:00) [8]
Поставь там точку останова и посмотри в каком оно состоянии

Юра (2003-01-23 15:22:00) [9]
В программе это TToolButton, в ее обработчкие стоит:
if not(QuickReport.State in [qrPrepare, qrPreview, qrPrint, qrEdit]) then QuickReport.preview;

Anatoly Podgoretsky (2003-01-23 15:17:00) [10]
Это какая кнопка, в твоей программе?

Юра (2003-01-23 15:16:00) [11]
Обязательно найдется кто-то, кто породит миллион этих окон, так что эту ситуацию нужно предусмотреть. С AfterPreview попробую.
Интересно, а почему мое условие не работает, это ошибка QReport или qrPreview - это какое-то еще состояние?

gsu (2003-01-23 15:13:00) [12]
не вызывай ???
AfterPreview есть, там что-нить присвой

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »