diff options
Diffstat (limited to 'src/gui')
-rw-r--r-- | src/gui/gui_dialogs.pas | 7 | ||||
-rw-r--r-- | src/gui/gui_form.pas | 7 |
2 files changed, 12 insertions, 2 deletions
diff --git a/src/gui/gui_dialogs.pas b/src/gui/gui_dialogs.pas index 0cad667f..715685d4 100644 --- a/src/gui/gui_dialogs.pas +++ b/src/gui/gui_dialogs.pas @@ -716,8 +716,11 @@ begin if grid.CurrentEntry.EntryType <> etDir then edFileName.Text := grid.CurrentEntry.Name; - - btnOK.Enabled := grid.CurrentEntry.EntryType = etFile; + + if FOpenMode then + btnOK.Enabled := grid.CurrentEntry.EntryType = etFile + else + btnOK.Enabled := edFileName.Text <> ''; lbFileInfo.Text := s; end; diff --git a/src/gui/gui_form.pas b/src/gui/gui_form.pas index 4e075068..7acab61c 100644 --- a/src/gui/gui_form.pas +++ b/src/gui/gui_form.pas @@ -112,6 +112,13 @@ begin if (fpgApplication.TopModalForm = nil) or (fpgApplication.TopModalForm = self) then begin FocusRootWidget := self; + + if FFormDesigner <> nil then + begin + FFormDesigner.Dispatch(msg); + Exit; + end; + if ActiveWidget = nil then ActiveWidget := FindFocusWidget(nil, fsdFirst) else |