paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 17:19:19 +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> </Item4>
<Item5> <Item5>
<Filename Value="educomppalette.pas"/> <Filename Value="educomppalette.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="EduCompPalette"/> <UnitName Value="EduCompPalette"/>
</Item5> </Item5>
</Files> </Files>

1
components/education/educationlaz.pas
View File

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

2
components/education/educomppalette.pas
View File

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

3
components/education/eduenvoptsframe.pas
View File

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

2
ideintf/lazideintf.pas
View File

@ -131,7 +131,7 @@ type
lihtOnProjectClose, // called before IDE closes a project lihtOnProjectClose, // called before IDE closes a project
lihtOnProjectBuilding, // called before IDE builds the project lihtOnProjectBuilding, // called before IDE builds the project
lihtOnProjectDependenciesCompiling, // called before IDE compiles dependencies of 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 } { TLazIDEInterface }