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

IDE: auto fix case of IDE target cpu/os, bug #17734

Browse Source 
git-svn-id: trunk@27912 -
This commit is contained in:
mattias 2010-10-27 22:53:32 +00:00
parent 6082d0a0e1
commit 1cd4b77593
2 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/buildlazdialog.pas
View File

@ -46,7 +46,8 @@ interface
uses uses
Classes, SysUtils, LCLProc, LConvEncoding, Forms, Controls, LCLType, LCLIntf, Classes, SysUtils, LCLProc, LConvEncoding, Forms, Controls, LCLType, LCLIntf,
Graphics, GraphType, StdCtrls, ExtCtrls, Buttons, FileUtil, Dialogs, Types, Graphics, GraphType, StdCtrls, ExtCtrls, Buttons, FileUtil, Dialogs, Types,
Laz_XMLCfg, InterfaceBase, Themes, ComCtrls, InterfaceBase, Themes, ComCtrls,
DefineTemplates, Laz_XMLCfg,
LazarusIDEStrConsts, TransferMacros, LazConf, IDEProcs, DialogProcs, LazarusIDEStrConsts, TransferMacros, LazConf, IDEProcs, DialogProcs,
IDEMsgIntf, IDEContextHelpEdit, IDEImagesIntf, IDEMsgIntf, IDEContextHelpEdit, IDEImagesIntf,
InputHistory, ExtToolDialog, ExtToolEditDlg, EnvironmentOpts, InputHistory, ExtToolDialog, ExtToolEditDlg, EnvironmentOpts,
@ -999,14 +1000,14 @@ procedure TConfigureBuildLazarusDlg.CopyUIToProfile(AProfile: TBuildLazarusProfi
begin begin
AProfile.CleanAll :=CleanAllCheckBox.Checked; AProfile.CleanAll :=CleanAllCheckBox.Checked;
AProfile.ExtraOptions :=OptionsEdit.Text; AProfile.ExtraOptions :=OptionsEdit.Text;
AProfile.TargetPlatform :=TLCLPlatform(LCLInterfaceRadioGroup.ItemIndex); AProfile.TargetPlatform :=TLCLPlatform(LCLInterfaceRadioGroup.ItemIndex);
AProfile.WithStaticPackages:=WithStaticPackagesCheckBox.Checked; AProfile.WithStaticPackages:=WithStaticPackagesCheckBox.Checked;
AProfile.UpdateRevisionInc :=UpdateRevisionIncCheckBox.Checked; AProfile.UpdateRevisionInc :=UpdateRevisionIncCheckBox.Checked;
AProfile.RestartAfterBuild :=RestartAfterBuildCheckBox.Checked; AProfile.RestartAfterBuild :=RestartAfterBuildCheckBox.Checked;
AProfile.ConfirmBuild :=ConfirmBuildCheckBox.Checked; AProfile.ConfirmBuild :=ConfirmBuildCheckBox.Checked;
AProfile.TargetOS :=TargetOSComboBox.Text; AProfile.TargetOS :=GetFPCTargetOS(TargetOSComboBox.Text);
AProfile.TargetDirectory :=TargetDirectoryComboBox.Text; AProfile.TargetDirectory :=TargetDirectoryComboBox.Text;
AProfile.TargetCPU :=TargetCPUComboBox.Text; AProfile.TargetCPU :=GetFPCTargetCPU(TargetCPUComboBox.Text);
end; end;
procedure TConfigureBuildLazarusDlg.UpdateProfileNamesUI; procedure TConfigureBuildLazarusDlg.UpdateProfileNamesUI;

12
ide/buildprofilemanager.pas
View File

@ -32,9 +32,11 @@ interface
uses uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
ExtCtrls, Buttons, StdCtrls, ComCtrls, Contnrs, ExtCtrls, Buttons, StdCtrls, ComCtrls, Contnrs, ButtonPanel,
LazarusIDEStrConsts, LazConf, Laz_XMLCfg, InterfaceBase, IDEProcs, Laz_XMLCfg, DefineTemplates,
IDEMsgIntf, IDEContextHelpEdit, IDEImagesIntf, CompilerOptions, ButtonPanel; IDEImagesIntf, IDEMsgIntf,
LazarusIDEStrConsts, LazConf, InterfaceBase, IDEProcs,
IDEContextHelpEdit, CompilerOptions;
type type
@ -438,8 +440,8 @@ begin
MakeModeNames[fMakeModeDefs[i].DefaultMakeMode])); MakeModeNames[fMakeModeDefs[i].DefaultMakeMode]));
FCleanAll :=XMLConfig.GetValue(Path+'CleanAll/Value',false); FCleanAll :=XMLConfig.GetValue(Path+'CleanAll/Value',false);
FExtraOptions :=XMLConfig.GetValue(Path+'ExtraOptions/Value',''); FExtraOptions :=XMLConfig.GetValue(Path+'ExtraOptions/Value','');
TargetOS :=XMLConfig.GetValue(Path+'TargetOS/Value',''); TargetOS :=GetFPCTargetOS(XMLConfig.GetValue(Path+'TargetOS/Value',''));
TargetCPU :=XMLConfig.GetValue(Path+'TargetCPU/Value',''); TargetCPU :=GetFPCTargetCPU(XMLConfig.GetValue(Path+'TargetCPU/Value',''));
LCLPlatformStr :=XMLConfig.GetValue(Path+'LCLPlatform/Value',''); LCLPlatformStr :=XMLConfig.GetValue(Path+'LCLPlatform/Value','');
if LCLPlatformStr='' then if LCLPlatformStr='' then
fTargetPlatform :=GetDefaultLCLWidgetType fTargetPlatform :=GetDefaultLCLWidgetType