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

IDE: compiler options: load,save build modes

Browse Source 
git-svn-id: trunk@18276 -
This commit is contained in:
mattias 2009-01-13 16:38:53 +00:00
parent 7f7c0b3387
commit 843133346d
2 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/compileroptions.pp
View File

@ -1126,7 +1126,9 @@ begin
{ Conditionals } { Conditionals }
TCompOptConditionals(FConditionals).LoadFromXMLConfig(XMLConfigFile, TCompOptConditionals(FConditionals).LoadFromXMLConfig(XMLConfigFile,
Path+'Conditionals/',PathDelimChange); Path+'Conditionals/',PathDelimChange);
TIDEBuildModes(fBuildModes).LoadFromXMLConfig(XMLConfigFile,
Path+'BuildModes/',PathDelimChange);
// ToDo: replace this with conditional compiler options // ToDo: replace this with conditional compiler options
LCLWidgetType := XMLConfigFile.GetValue(p+'LCLWidgetType/Value', ''); LCLWidgetType := XMLConfigFile.GetValue(p+'LCLWidgetType/Value', '');
@ -1313,7 +1315,9 @@ begin
{ Conditionals } { Conditionals }
TCompOptConditionals(FConditionals).SaveToXMLConfig(XMLConfigFile, TCompOptConditionals(FConditionals).SaveToXMLConfig(XMLConfigFile,
Path+'Conditionals/',UsePathDelim); Path+'Conditionals/',UsePathDelim);
TIDEBuildModes(fBuildModes).SaveToXMLConfig(XMLConfigFile,
Path+'BuildModes/',UsePathDelim);
// ToDo: remove // ToDo: remove
XMLConfigFile.SetDeleteValue(p+'LCLWidgetType/Value', LCLWidgetType,''); XMLConfigFile.SetDeleteValue(p+'LCLWidgetType/Value', LCLWidgetType,'');

9
ide/lazarus.lpi
View File

@ -504,6 +504,15 @@
<OtherUnitFiles Value="frames/;../debugger/;../debugger/frames/"/> <OtherUnitFiles Value="frames/;../debugger/;../debugger/frames/"/>
<UnitOutputDirectory Value="$(LazarusDir)/units/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="$(LazarusDir)/units/$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<BuildModes>
<Count Value="2"/>
<Item1 DefaultValueNodeType="AddValue">
<Identifier Value="Mode1"/>
</Item1>
<Item2 DefaultValueNodeType="AddValue">
<Identifier Value="Mode2"/>
</Item2>
</BuildModes>
<Parsing> <Parsing>
<SyntaxOptions> <SyntaxOptions>
<CStyleOperator Value="False"/> <CStyleOperator Value="False"/>