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

IDE: build laz dlg: auto lowercase OS

Browse Source 
git-svn-id: trunk@24866 -
This commit is contained in:
mattias 2010-04-23 21:02:54 +00:00
parent 3c000da319
commit 7fb0cae2cf
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/buildlazdialog.lfm
View File

@ -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

7
ide/buildlazdialog.pas
View File

@ -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