diff options
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/gui/filedialog/filedialog.lpr | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/examples/gui/filedialog/filedialog.lpr b/examples/gui/filedialog/filedialog.lpr index e7fa99ce..53e79b9a 100644 --- a/examples/gui/filedialog/filedialog.lpr +++ b/examples/gui/filedialog/filedialog.lpr @@ -122,6 +122,8 @@ var begin dlg := TfpgFileDialog.Create(nil); try + if edFilename.Text <> '' then + dlg.Filename := edFilename.Text; if dlg.RunSaveFile then edFilename.Text := dlg.FileName; finally |