paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 17:39:18 +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] Anchors = [akTop, akLeft, akRight, akBottom]
OnEnter = NotebookPageChanged OnEnter = NotebookPageChanged
OnPageChanged = NotebookPageChanged OnPageChanged = NotebookPageChanged
PageIndex = 0 PageIndex = 1
TabOrder = 1 TabOrder = 1
object QuickBuildOptionsPage: TPage object QuickBuildOptionsPage: TPage
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
@ -366,6 +366,7 @@ object ConfigureBuildLazarusDlg: TConfigureBuildLazarusDlg
Width = 325 Width = 325
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
OnEditingDone = TargetOsEditEditingDone
TabOrder = 5 TabOrder = 5
end end
object TargetDirectoryComboBox: TComboBox object TargetDirectoryComboBox: TComboBox

7
ide/buildlazdialog.pas
View File

@ -235,6 +235,7 @@ type
procedure QuickBuildOptionsRadioGroupClick(Sender: TObject); procedure QuickBuildOptionsRadioGroupClick(Sender: TObject);
procedure SaveSettingsButtonClick(Sender: TObject); procedure SaveSettingsButtonClick(Sender: TObject);
procedure TargetDirectoryButtonClick(Sender: TObject); procedure TargetDirectoryButtonClick(Sender: TObject);
procedure TargetOsEditEditingDone(Sender: TObject);
private private
FAdvanced: Boolean; FAdvanced: Boolean;
FOptions: TBuildLazarusOptions; FOptions: TBuildLazarusOptions;
@ -1052,6 +1053,12 @@ begin
end; end;
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; function TConfigureBuildLazarusDlg.GetMakeModeAtX(const X: Integer;
out MakeMode: TMakeMode): boolean; out MakeMode: TMakeMode): boolean;
var var