Назойливое поведение дизайнера
Vasily Grechishnikov
г. Воронеж
Здравствуйте!
Во всех версия FR имеется одна очень неприятная особенность:
1. Открываем какой либо файл в дизайнере отчетов
2. Закрываем окно дизайнера, возвращаемся в Delphi
3. Снова открываем дизайнер
4. Пытаемся открыть какой-либо файл который находится в том-же каталоге что и ранее редактруемый файл.
5. Получаем текущий каталог в диалог открытия файла очень далеким от нужной папки
6. Тратим массу времени на вход в нужную папку.
Предлагаю очень простой патч чтобы избежать данной багофичи.
=== modified file 'Source/frxDesgn.pas'
--- Source/frxDesgn.pas 2009-02-26 05:15:52 +0000
+++ Source/frxDesgn.pas 2009-02-26 05:53:17 +0000
end;
if frxDesignerComp <> nil then
- OpenDialog.InitialDir := frxDesignerComp.OpenDir;
+ OpenDialog.InitialDir := frxDesignerComp.OpenDir
+ else begin
+ if RecentFiles.Count > 0 then
+ OpenDialog.InitialDir := RecentFiles[RecentFiles.Count - 1];
+ end;
+
if OpenDialog.Execute then
begin
if SaveCurrentFile then
Во всех версия FR имеется одна очень неприятная особенность:
1. Открываем какой либо файл в дизайнере отчетов
2. Закрываем окно дизайнера, возвращаемся в Delphi
3. Снова открываем дизайнер
4. Пытаемся открыть какой-либо файл который находится в том-же каталоге что и ранее редактруемый файл.
5. Получаем текущий каталог в диалог открытия файла очень далеким от нужной папки
6. Тратим массу времени на вход в нужную папку.
Предлагаю очень простой патч чтобы избежать данной багофичи.
=== modified file 'Source/frxDesgn.pas'
--- Source/frxDesgn.pas 2009-02-26 05:15:52 +0000
+++ Source/frxDesgn.pas 2009-02-26 05:53:17 +0000
end;
if frxDesignerComp <> nil then
- OpenDialog.InitialDir := frxDesignerComp.OpenDir;
+ OpenDialog.InitialDir := frxDesignerComp.OpenDir
+ else begin
+ if RecentFiles.Count > 0 then
+ OpenDialog.InitialDir := RecentFiles[RecentFiles.Count - 1];
+ end;
+
if OpenDialog.Execute then
begin
if SaveCurrentFile then