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

educationlaz: fixed showing options

Browse Source 
git-svn-id: trunk@22144 -
This commit is contained in:
mattias 2009-10-13 14:20:52 +00:00
parent 76769b2c6b
commit 72d5a66dc2
3 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/education/README.txt
View File

@ -9,6 +9,7 @@ option to hide various tools
option to hide menu items for frames
option to hide menu items for packages
option to hide menu items for forms
option to hide components in the component palette
speed button for single file program
option component name at create
option file name at create

2
components/education/eduenvoptsframe.pas
View File

@ -69,7 +69,7 @@ implementation
procedure Register;
begin
RegisterIDEOptionsGroup(EduOptionID,'Education');
RegisterIDEOptionsGroup(EduOptionID,TEduOptions);
RegisterIDEOptionsEditor(EduOptionID,TEduEnvFrame,EduOptionGeneralID);
EduGeneralOptions:=TEduGeneralOptions.Create;
EducationOptions.Root.Add(EduGeneralOptions);

9
components/education/eduoptions.pas
View File

@ -27,6 +27,9 @@ uses
Classes, SysUtils, LazConfigStorage, Controls, Forms, BaseIDEIntf, FileUtil,
LazIDEIntf, IDEOptionsIntf;
resourcestring
EduRSEducation = 'Education';
const
DefaultEduOptionsFilename = 'education.xml';
@ -90,6 +93,7 @@ type
public
constructor Create;
destructor Destroy; override;
class function GetGroupCaption: string; override;
property Root: TEduOptionsNode read FRoot;
function Load(Config: TConfigStorage): TModalResult; virtual;
function Save(Config: TConfigStorage): TModalResult; virtual;
@ -250,6 +254,11 @@ begin
inherited Destroy;
end;
class function TEduOptions.GetGroupCaption: string;
begin
Result:=EduRSEducation;
end;
function TEduOptions.Load(Config: TConfigStorage): TModalResult;
begin
Result:=FRoot.Load(Config);