From 7fb0cae2cf7a2eebeb654db413727e17481b43d4 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Fri, 23 Apr 2010 21:02:54 +0000
Subject: [PATCH] IDE: build laz dlg: auto lowercase OS

git-svn-id: trunk@24866 -
---
 ide/buildlazdialog.lfm | 3 ++-
 ide/buildlazdialog.pas | 7 +++++++
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/ide/buildlazdialog.lfm b/ide/buildlazdialog.lfm
index d09fef03d7..27979957e2 100644
--- a/ide/buildlazdialog.lfm
+++ b/ide/buildlazdialog.lfm
@@ -103,7 +103,7 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
     Anchors = [akTop, akLeft, akRight, akBottom]
     OnEnter = NotebookPageChanged
     OnPageChanged = NotebookPageChanged
-    PageIndex = 0
+    PageIndex = 1
     TabOrder = 1
     object QuickBuildOptionsPage: TPage
       AnchorSideBottom.Side = asrBottom
@@ -366,6 +366,7 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
         Width = 325
         Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Around = 6
+        OnEditingDone = TargetOsEditEditingDone
         TabOrder = 5
       end
       object TargetDirectoryComboBox: TComboBox
diff --git a/ide/buildlazdialog.pas b/ide/buildlazdialog.pas
index 1bc5db2518..f694c526bd 100644
--- a/ide/buildlazdialog.pas
+++ b/ide/buildlazdialog.pas
@@ -235,6 +235,7 @@ type
     procedure QuickBuildOptionsRadioGroupClick(Sender: TObject);
     procedure SaveSettingsButtonClick(Sender: TObject);
     procedure TargetDirectoryButtonClick(Sender: TObject);
+    procedure TargetOsEditEditingDone(Sender: TObject);
   private
     FAdvanced: Boolean;
     FOptions: TBuildLazarusOptions;
@@ -1052,6 +1053,12 @@ begin
   end;
 end;
 
+procedure TConfigureBuildLazarusDlg.TargetOsEditEditingDone(Sender: TObject);
+begin
+  TargetOsEdit.Text:=lowercase(TargetOsEdit.Text);
+  DebugLn(['TConfigureBuildLazarusDlg.TargetOsEditEditingDone ',TargetOsEdit.Text]);
+end;
+
 function TConfigureBuildLazarusDlg.GetMakeModeAtX(const X: Integer;
   out MakeMode: TMakeMode): boolean;
 var