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

educationlaz: register component palette page

Browse Source 
git-svn-id: trunk@22232 -
This commit is contained in:
mattias 2009-10-19 13:00:47 +00:00
parent 8d8f0ae9d7
commit 97c17bf8a9
5 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/education/educationlaz.lpk
View File

@ -36,6 +36,7 @@
</Item4>
<Item5>
<Filename Value="educomppalette.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="EduCompPalette"/>
</Item5>
</Files>

1
components/education/educationlaz.pas
View File

@ -16,6 +16,7 @@ procedure Register;
begin
RegisterUnit('EduEnvOptsFrame', @EduEnvOptsFrame.Register);
RegisterUnit('EduPkgSystem', @EduPkgSystem.Register);
RegisterUnit('EduCompPalette', @EduCompPalette.Register);
end;
initialization

2
components/education/educomppalette.pas
View File

@ -189,7 +189,7 @@ end;
class function TEduCompPaletteFrame.SupportedOptionsClass: TAbstractIDEOptionsClass;
begin
Result:=nil;
Result:=TEduOptions;
end;
procedure TEduCompPaletteFrame.WriteSettings(AOptions: TAbstractIDEOptions);

3
components/education/eduenvoptsframe.pas
View File

@ -110,12 +110,13 @@ 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;

2
ideintf/lazideintf.pas
View File

@ -131,7 +131,7 @@ type
lihtOnProjectClose, // called before IDE closes a project
lihtOnProjectBuilding, // called before IDE builds the project
lihtOnProjectDependenciesCompiling, // called before IDE compiles dependencies of project
lihtOnProjectDependenciesCompiled // called after IDE compiled dependencies of project
lihtOnProjectDependenciesCompiled, // called after IDE compiled dependencies of project
);
{ TLazIDEInterface }