From a586609a0a6d9a0a364a28a971d3841358d8ef9a Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 7 Mar 2005 23:44:11 +0000
Subject: [PATCH] replaced TOpenDialog with TSelectDirectoryDialog for compiler
 opts unit output path

git-svn-id: trunk@6919 -
---
 ide/compileroptionsdlg.pp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/ide/compileroptionsdlg.pp b/ide/compileroptionsdlg.pp
index cc1828ee0d..45fa8fe612 100644
--- a/ide/compileroptionsdlg.pp
+++ b/ide/compileroptionsdlg.pp
@@ -534,7 +534,10 @@ var
   DefaultFilename: String;
   NewFilename: String;
 begin
-  OpenDialog:=TOpenDialog.Create(Self);
+  if Sender=btnCompiler then
+    OpenDialog:=TOpenDialog.Create(Self)
+  else
+    OpenDialog:=TSelectDirectoryDialog.Create(Self);
   try
     if Sender=btnCompiler then begin
       OpenDialog.Title:=Format(lisBrowseForCompiler, [GetDefaultCompilerFilename