diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-07-25 13:56:29 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-07-25 13:56:29 +0000 |
| commit | 5c6676fba342effe70fcb2d34ab5543ccf3a3896 (patch) | |
| tree | 42797498321daa2fea5f31948b5e90af756316b2 /examples/gui/filedialog | |
| parent | 75d3837ca94070bb7070beaa57e225de69a53a0b (diff) | |
| download | fpGUI-5c6676fba342effe70fcb2d34ab5543ccf3a3896.tar.xz | |
* Applied Vladimir's gui_dialog patch. Adding a helper function for file dialog usage.
* I move HighlightFile from public to private in TfpgFileDialog class. It's a internal function.
* Updated the filedialog example to show pre-highlighted files in the save dialog.
Diffstat (limited to 'examples/gui/filedialog')
| -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 |