diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-22 15:07:28 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-08-22 15:07:28 +0000 |
| commit | 220f4bb067887a8c7dadcf2c56ee1aa24032b195 (patch) | |
| tree | d7a7acf5385c6c5deb9753e954ed76262c26a914 /examples/gui/filedialog/filedialog.lpr | |
| parent | 9dcbacc1b11c874d3e1ec3ee864418478ec9e00e (diff) | |
| download | fpGUI-220f4bb067887a8c7dadcf2c56ee1aa24032b195.tar.xz | |
* Started the implementation of a StringGrid. It is
not complete yet.
Diffstat (limited to 'examples/gui/filedialog/filedialog.lpr')
| -rw-r--r-- | examples/gui/filedialog/filedialog.lpr | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/examples/gui/filedialog/filedialog.lpr b/examples/gui/filedialog/filedialog.lpr index d7b1f176..01793a6f 100644 --- a/examples/gui/filedialog/filedialog.lpr +++ b/examples/gui/filedialog/filedialog.lpr @@ -42,6 +42,7 @@ var begin dlg := TfpgFileDialog.Create(nil); try + // defines 3 filters (All Files, Object Pascal and Lazarus Project) dlg.Filter := 'All Files (*)|*|Object Pascal (*.pas;*.lpr;*.pp)|*.pas;*.lpr;*.pp|Lazarus Project (*.lpi)|*.lpi'; if dlg.RunOpenFile then edFilename.Text := dlg.FileName; |