paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 19:04:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

educationlaz: fixed loading options

Browse Source 
git-svn-id: trunk@23528 -
This commit is contained in:
mattias 2010-01-22 11:56:30 +00:00
parent 03e7d1d70b
commit 5e5bbda36b
1 changed files with 0 additions and 2 deletions

2
components/education/eduenvoptsframe.pas
View File

@ -109,13 +109,11 @@ end;
procedure TEduEnvFrame.ReadSettings(AOptions: TAbstractIDEOptions);
begin
EnableCheckBox.Checked:=EducationOptions.Enabled;
OnLoadIDEOptions(Self,EducationOptions);
end;
procedure TEduEnvFrame.WriteSettings(AOptions: TAbstractIDEOptions);
begin
EducationOptions.Enabled:=EnableCheckBox.Checked;
OnSaveIDEOptions(Self,EducationOptions);
if EducationOptions.Save<>mrOk then
DebugLn(['TEduEnvFrame.WriteSettings Failed']);
EducationOptions.Apply;