added IDEIntf/idedialogs.pas

git-svn-id: trunk@9185 -

.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

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.
+