paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 11:20:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed saving debugger type none

Browse Source 
git-svn-id: trunk@4510 -
This commit is contained in:
mattias 2003-08-22 08:10:06 +00:00
parent 36ca9e7471
commit 54adae69b8
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/environmentopts.pp
View File

@ -229,7 +229,7 @@ type
procedure InternOnApplyWindowLayout(ALayout: TIDEWindowLayout);
procedure SetFileName(const NewFilename: string);
function FileHasChangedOnDisk: boolean;
function GetXMLCfg: TXMLConfig;
function GetXMLCfg(CleanConfig: boolean): TXMLConfig;
procedure FileUpdated;
procedure SetTestBuildDirectory(const AValue: string);
public
@ -941,7 +941,7 @@ var XMLConfig: TXMLConfig;
begin
try
XMLConfig:=GetXMLCfg;
XMLConfig:=GetXMLCfg(false);
FileVersion:=XMLConfig.GetValue('EnvironmentOptions/Version/Value',0);
// language
@ -1146,7 +1146,7 @@ var XMLConfig: TXMLConfig;
begin
try
XMLConfig:=GetXMLCfg;
XMLConfig:=GetXMLCfg(true);
XMLConfig.SetValue('EnvironmentOptions/Version/Value',EnvOptsVersion);
// language
@ -1377,11 +1377,14 @@ begin
FFileHasChangedOnDisk:=Result;
end;
function TEnvironmentOptions.GetXMLCfg: TXMLConfig;
function TEnvironmentOptions.GetXMLCfg(CleanConfig: boolean): TXMLConfig;
begin
if FileHasChangedOnDisk or (FXMLCfg=nil) then begin
FXMLCfg.Free;
FXMLCfg:=TXMLConfig.Create(Filename);
if CleanConfig then
FXMLCfg:=TXMLConfig.CreateClean(Filename)
else
FXMLCfg:=TXMLConfig.Create(Filename);
ObjectInspectorOptions.Filename:=Filename;
ObjectInspectorOptions.CustomXMLCfg:=FXMLCfg;
end;