From 34412e24ab8617edf876f6e4cef38aba09acbf4a Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 25 Apr 2006 17:17:19 +0000
Subject: [PATCH] added IDEIntf/idedialogs.pas

git-svn-id: trunk@9185 -
---
 .gitattributes         |  1 +
 ideintf/idedialogs.pas | 46 ++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 47 insertions(+)
 create mode 100644 ideintf/idedialogs.pas

diff --git a/.gitattributes b/.gitattributes
index 95ba9580bf..1e76f352f4 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -1289,6 +1289,7 @@ ideintf/helpfpdoc.pas svneol=native#text/pascal
 ideintf/helphtml.pas svneol=native#text/pascal
 ideintf/helpintf.pas svneol=native#text/pascal
 ideintf/idecommands.pas svneol=native#text/pascal
+ideintf/idedialogs.pas svneol=native#text/plain
 ideintf/idemsgintf.pas svneol=native#text/plain
 ideintf/idewindowintf.pas svneol=native#text/plain
 ideintf/imagelisteditor.lfm svneol=native#text/plain
diff --git a/ideintf/idedialogs.pas b/ideintf/idedialogs.pas
new file mode 100644
index 0000000000..99fcd5f153
--- /dev/null
+++ b/ideintf/idedialogs.pas
@@ -0,0 +1,46 @@
+{ Copyright (C) 2004
+
+ *****************************************************************************
+ *                                                                           *
+ *  See the file COPYING.modifiedLGPL, included in this distribution,        *
+ *  for details about the copyright.                                         *
+ *                                                                           *
+ *  This program is distributed in the hope that it will be useful,          *
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of           *
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                     *
+ *                                                                           *
+ *****************************************************************************
+
+  Author: Mattias Gaertner
+  
+  Abstract:
+    Common IDE dialogs.
+}
+unit IDEDialogs;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, Forms, Dialogs;
+  
+function LazSelectDirectory(const Title: string; const InitialDir: string = ''
+  ): string;
+
+type
+  TIDESelectDirectory = function(const Title, InitialDir: string): string of object;
+var
+  LazIDESelectDirectory: TIDESelectDirectory;// set by the IDE
+
+
+implementation
+
+function LazSelectDirectory(const Title: string; const InitialDir: string
+  ): string;
+begin
+  Result:=LazIDESelectDirectory(Title,InitialDir);
+end;
+
+end.
+