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

IDE: moved registration of base packages to formeditor.pp

Browse Source 
git-svn-id: trunk@33947 -
This commit is contained in:
mattias 2011-12-04 11:48:39 +00:00
parent df502ab1be
commit d94bc8529a
4 changed files with 18 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/formeditor.pp
View File

@ -32,6 +32,9 @@ interface
uses
Classes, LCLProc, Controls, Forms, Buttons, SysUtils, Graphics,
// register IDE base packages
RegisterLCL, FCLLaz, allsynedit, LazControls, LazarusPackageIntf,
// IDE
ObjectInspector, Designer, IDECommands, FormEditingIntf, CustomFormEditor;
type
@ -130,4 +133,12 @@ begin
Result:=nil;
end;
procedure Register;
begin
RegisterUnit('RegisterLCL', @RegisterLCL.Register);
end;
initialization
RegisterPackage('LCLBase', @Register);
end.

4
ide/main.pp
View File

@ -74,7 +74,7 @@ uses
AllSynEdit, SynEditKeyCmds, SynBeautifier, SynEditMarks,
// IDE interface
IDEIntf, BaseIDEIntf, ObjectInspector, PropEdits, PropEditUtils,
MacroIntf, IDECommands, IDEWindowIntf,
MacroIntf, IDECommands, IDEWindowIntf, ComponentReg, FormEditingIntf,
SrcEditorIntf, NewItemIntf, IDEExternToolIntf, IDEMsgIntf,
PackageIntf, ProjectIntf, CompOptsIntf, MenuIntf, LazIDEIntf, IDEDialogs,
IDEOptionsIntf, IDEImagesIntf,
@ -89,7 +89,7 @@ uses
// help manager
IDEContextHelpEdit, IDEHelpIntf, IDEHelpManager, CodeHelp, HelpOptions,
// designer
JITForms, ComponentPalette, ComponentList, ComponentReg, FormEditingIntf,
JITForms, ComponentPalette, ComponentList,
ObjInspExt, Designer, FormEditor, CustomFormEditor,
ControlSelection, AnchorEditor, TabOrderDlg, MenuEditorForm,
// LRT stuff

5
ideintf/componentreg.pas
View File

@ -47,7 +47,10 @@ type
const
ComponentPriorityNormal: TComponentPriority = (Category: cpNormal; Level:0);
LCLCompPriority: TComponentPriority = (Category: cpBase; Level: 10);
FCLCompPriority: TComponentPriority = (Category: cpBase; Level: 9);
IDEIntfCompPriority: TComponentPriority = (Category: cpBase; Level: 8);
type
TBaseComponentPage = class;
TBaseComponentPalette = class;

7
packager/packagesystem.pas
View File

@ -59,8 +59,7 @@ uses
// IDE
LazarusIDEStrConsts, EnvironmentOpts, IDEProcs, LazConf, TransferMacros,
DialogProcs, IDETranslations, CompilerOptions, PackageLinks, PackageDefs,
ComponentReg, ProjectIntf,
FCLLaz, AllLCLUnits, allsynedit, LazControls;
ComponentReg, ProjectIntf;
type
TFindPackageFlag = (
@ -80,10 +79,6 @@ const
fpfSearchInPckgsWithEditor,fpfSearchInPkgLinks,fpfSearchInLoadedPkgs];
fpfSearchAllExisting = fpfSearchEverywhere+[fpfPkgLinkMustExist];
LCLCompPriority: TComponentPriority = (Category: cpBase; Level: 10);
FCLCompPriority: TComponentPriority = (Category: cpBase; Level: 9);
IDEIntfCompPriority: TComponentPriority = (Category: cpBase; Level: 8);
type
TPkgUninstallFlag = (
puifDoNotConfirm,