From 9dcbacc1b11c874d3e1ec3ee864418478ec9e00e Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Wed, 22 Aug 2007 08:06:44 +0000
Subject: * Minor improvements to the File Dialog. * Added some documenation
 comments explaining the File Dialog Filters property. * Extended the
 FileDialog example using custom Filters.

---
 examples/gui/filedialog/filedialog.lpr | 1 +
 1 file changed, 1 insertion(+)

(limited to 'examples/gui/filedialog/filedialog.lpr')

diff --git a/examples/gui/filedialog/filedialog.lpr b/examples/gui/filedialog/filedialog.lpr
index a5ff4d2a..d7b1f176 100644
--- a/examples/gui/filedialog/filedialog.lpr
+++ b/examples/gui/filedialog/filedialog.lpr
@@ -42,6 +42,7 @@ var
 begin
   dlg := TfpgFileDialog.Create(nil);
   try
+    dlg.Filter := 'All Files (*)|*|Object Pascal (*.pas;*.lpr;*.pp)|*.pas;*.lpr;*.pp|Lazarus Project (*.lpi)|*.lpi';
     if dlg.RunOpenFile then
       edFilename.Text := dlg.FileName;
   finally
-- 
cgit v1.2.3-70-g09d2