Пишу ард-отчет по загрузке данных из dbf- файла в Галактику.
При этом выдаю запрос на выбор каталога, из которого брать файлы для загрузки:
p:=GetDirName('Выберете каталог с данными для загрузки');
Но когда я запускаю свой ард-отчет, выдается окошко для выбора каталога, а поверх него окно "Процесс"-"Формирование отчета".
Без проблем можно сделать активным окно для выбора каталога, и далее все нормально.
Но хотелось бы, чтобы это окно не перекрывалось другим.
Что-то тут с визуализацией?! Но я в ней ничего не понимаю - может кто-нить пояснит на пальцах?
Спасибо!
Визуализация
Модераторы: m0p3e, edward_K, Модераторы
-
- Местный житель
- Сообщения: 2896
- Зарегистрирован: 24 июн 2005, 12:12
- Откуда: Иркутская область
При запуске АРД отчета всегда автоматом выдается визуализация "Формирование отчета".
Может быть GetDirName поставить первой строкой в программе?
У меня стоит так:
.......
.begin
set path := GetFileName('*.dbf','Выберите файл с хххххххххх');
Handle := DBFOpen(path,stOpenRead);
i:=0
........
при этом споконой выбирается файл, а далее уже высвечивается окно визуализации.
(Гал 5.85)
Может быть GetDirName поставить первой строкой в программе?
У меня стоит так:
.......
.begin
set path := GetFileName('*.dbf','Выберите файл с хххххххххх');
Handle := DBFOpen(path,stOpenRead);
i:=0
........
при этом споконой выбирается файл, а далее уже высвечивается окно визуализации.
(Гал 5.85)
-
- Местный житель
- Сообщения: 474
- Зарегистрирован: 29 мар 2005, 17:49
- Откуда: Сибирь-матушка
- Контактная информация:
Перед выбором каталога
//Гасим текущий активный визуализатор
StopVisual('',0);
После выбора
//Подсоввываем системе визуализатор, который она погасит
StartNewVisual(vtRotateVisual,vfTimer,'Печать отчета ...',0);
//Гасим текущий активный визуализатор
StopVisual('',0);
После выбора
//Подсоввываем системе визуализатор, который она погасит
StartNewVisual(vtRotateVisual,vfTimer,'Печать отчета ...',0);
Питаю патологические отвращение и ненависть в особо тяжелой и крайне запущенной формах к семейству программ Microsoft Business Solution !
Восславим господа Кришну за то, что у нас есть ГАЛАКТИКА !
Восславим господа Кришну за то, что у нас есть ГАЛАКТИКА !