paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 19:16:16 +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
Classes, SysUtils, LCLProc, LConvEncoding, Forms, Controls, LCLType, LCLIntf,
Graphics, GraphType, StdCtrls, ExtCtrls, Buttons, FileUtil, Dialogs, Types,
Laz_XMLCfg, InterfaceBase, Themes, ComCtrls,
InterfaceBase, Themes, ComCtrls,
DefineTemplates, Laz_XMLCfg,
LazarusIDEStrConsts, TransferMacros, LazConf, IDEProcs, DialogProcs,
IDEMsgIntf, IDEContextHelpEdit, IDEImagesIntf,
InputHistory, ExtToolDialog, ExtToolEditDlg, EnvironmentOpts,
@ -999,14 +1000,14 @@ procedure TConfigureBuildLazarusDlg.CopyUIToProfile(AProfile: TBuildLazarusProfi
begin
AProfile.CleanAll :=CleanAllCheckBox.Checked;
AProfile.ExtraOptions :=OptionsEdit.Text;
AProfile.TargetPlatform :=TLCLPlatform(LCLInterfaceRadioGroup.ItemIndex);
AProfile.TargetPlatform :=TLCLPlatform(LCLInterfaceRadioGroup.ItemIndex);
AProfile.WithStaticPackages:=WithStaticPackagesCheckBox.Checked;
AProfile.UpdateRevisionInc :=UpdateRevisionIncCheckBox.Checked;
AProfile.RestartAfterBuild :=RestartAfterBuildCheckBox.Checked;
AProfile.ConfirmBuild :=ConfirmBuildCheckBox.Checked;
AProfile.TargetOS :=TargetOSComboBox.Text;
AProfile.TargetOS :=GetFPCTargetOS(TargetOSComboBox.Text);
AProfile.TargetDirectory :=TargetDirectoryComboBox.Text;
AProfile.TargetCPU :=TargetCPUComboBox.Text;
AProfile.TargetCPU :=GetFPCTargetCPU(TargetCPUComboBox.Text);
end;
procedure TConfigureBuildLazarusDlg.UpdateProfileNamesUI;

12
ide/buildprofilemanager.pas
View File

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