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

educationlaz: load/save options

Browse Source 
git-svn-id: trunk@22173 -
This commit is contained in:
mattias 2009-10-14 14:27:39 +00:00
parent 5c3bf6fbea
commit d1d342eb3c
2 changed files with 30 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
components/education/eduenvoptsframe.pas
View File

@ -40,10 +40,11 @@ type
FEnabled: boolean;
procedure SetEnabled(const AValue: boolean);
public
constructor Create;
destructor Destroy; override;
function Load(Config: TConfigStorage): TModalResult; override;
function Save(Config: TConfigStorage): TModalResult; override;
property Enabled: boolean read FEnabled write SetEnabled;
property Enabled: boolean read FEnabled write SetEnabled default true;
end;
{ TEduEnvFrame }
@ -94,17 +95,20 @@ procedure TEduEnvFrame.ReadSettings(AOptions: TAbstractIDEOptions);
begin
debugln(['TEduEnvFrame.ReadSettings ',EduGeneralOptions.Enabled]);
EnableCheckBox.Checked:=EduGeneralOptions.Enabled;
DebugLn(['TEduEnvFrame.ReadSettings ',EnableCheckBox.Checked,' ',EduGeneralOptions.Enabled]);
end;
procedure TEduEnvFrame.WriteSettings(AOptions: TAbstractIDEOptions);
begin
debugln(['TEduEnvFrame.WriteSettings ',EnableCheckBox.Checked]);
EduGeneralOptions.Enabled:=EnableCheckBox.Checked;
if EducationOptions.Save<>mrOk then
DebugLn(['TEduEnvFrame.WriteSettings Failed']);
end;
class function TEduEnvFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
begin
Result := TEduOptions;
Result := nil;
end;
{ TEduGeneralOptions }
@ -116,6 +120,13 @@ begin
Changed;
end;
constructor TEduGeneralOptions.Create;
begin
inherited Create;
Name:='General';
FEnabled:=true;
end;
destructor TEduGeneralOptions.Destroy;
begin
if EduGeneralOptions=Self then EduGeneralOptions:=nil;
@ -124,14 +135,14 @@ end;
function TEduGeneralOptions.Load(Config: TConfigStorage): TModalResult;
begin
FEnabled:=Config.GetValue('Enabled',True);
Result:=inherited Load(Config);
FEnabled:=Config.GetValue('Enabled',true);
end;
function TEduGeneralOptions.Save(Config: TConfigStorage): TModalResult;
begin
Result:=inherited Save(Config);
Config.SetDeleteValue('Enabled',Enabled,true);
Result:=inherited Save(Config);
end;
initialization

24
components/education/eduoptions.pas
View File

@ -24,8 +24,8 @@ unit EduOptions;
interface
uses
Classes, SysUtils, LazConfigStorage, Controls, Forms, BaseIDEIntf, FileUtil,
LazIDEIntf, IDEOptionsIntf;
Classes, SysUtils, LCLProc, LazConfigStorage, Controls, Forms, BaseIDEIntf,
FileUtil, LazIDEIntf, IDEOptionsIntf;
resourcestring
EduRSEducation = 'Education';
@ -206,9 +206,12 @@ begin
Child:=Childs[i];
if (Child.Name='') or (not IsValidIdent(Child.Name)) then continue;
Config.AppendBasePath(Child.Name);
Result:=Child.Load(Config);
if Result<>mrOK then exit;
Config.UndoAppendBasePath;
try
Result:=Child.Load(Config);
if Result<>mrOK then exit;
finally
Config.UndoAppendBasePath;
end;
end;
Result:=mrOk;
end;
@ -222,9 +225,12 @@ begin
Child:=Childs[i];
if (Child.Name='') or (not IsValidIdent(Child.Name)) then continue;
Config.AppendBasePath(Child.Name);
Result:=Child.Save(Config);
if Result<>mrOK then exit;
Config.UndoAppendBasePath;
try
Result:=Child.Save(Config);
if Result<>mrOK then exit;
finally
Config.UndoAppendBasePath;
end;
end;
Result:=mrOk;
end;
@ -295,7 +301,7 @@ end;
function TEduOptions.Load: TModalResult;
begin
Result:=LoadFromFile(GetFullFilename);
Result:=LoadFromFile(Filename);
FLastSavedChangeStep:=TEduOptsRootNode(Root).ChangeStep;
end;