paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 14:39:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

replaced TOpenDialog with TSelectDirectoryDialog for compiler opts unit output path

Browse Source 
git-svn-id: trunk@6919 -
This commit is contained in:
mattias 2005-03-07 23:44:11 +00:00
parent 27d716057f
commit a586609a0a
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/compileroptionsdlg.pp
View File

@ -534,7 +534,10 @@ var
DefaultFilename: String; DefaultFilename: String;
NewFilename: String; NewFilename: String;
begin begin
OpenDialog:=TOpenDialog.Create(Self); if Sender=btnCompiler then
OpenDialog:=TOpenDialog.Create(Self)
else
OpenDialog:=TSelectDirectoryDialog.Create(Self);
try try
if Sender=btnCompiler then begin if Sender=btnCompiler then begin
OpenDialog.Title:=Format(lisBrowseForCompiler, [GetDefaultCompilerFilename OpenDialog.Title:=Format(lisBrowseForCompiler, [GetDefaultCompilerFilename