1 { 2 Abstract: 3 This unit registers all LCL components in a predefined order. 4 It is called by ide/formeditor.pp 5 } 6 unit RegisterLCL; 7 8 {$mode objfpc}{$H+} 9 10 interface 11 12 uses 13 LazarusPackageIntf, Menus, Buttons, StdCtrls, ExtCtrls, ComCtrls, MaskEdit, 14 CheckLst, Forms, Grids, Controls, Dialogs, Spin, Arrow, Calendar, 15 PairSplitter, ExtDlgs, StdActns, DbCtrls, DbExtCtrls, DBGrids, DBActns, EditBtn, 16 ActnList, FileCtrl, Graphics, XMLPropStorage, IniPropStorage, JSONPropStorage, 17 ColorBox, ButtonPanel, LResources, LazHelpHTML, PopupNotifier, AsyncProcess, 18 UTF8Process, ShellCtrls, ValEdit, ComboEx; 19 20 procedure Register; 21 procedure RegisterLCLBase; 22 23 implementation 24 25 procedure Register; 26 begin 27 // register manually to get a predefined order in the component palette 28 RegisterUnit('Menus',@Menus.Register); 29 RegisterUnit('Buttons',@Buttons.Register); 30 RegisterUnit('StdCtrls',@StdCtrls.Register); 31 RegisterUnit('ExtCtrls',@ExtCtrls.Register); 32 RegisterUnit('ComCtrls',@ComCtrls.Register); 33 RegisterUnit('MaskEdit',@MaskEdit.Register); 34 RegisterUnit('CheckLst',@CheckLst.Register); 35 RegisterUnit('Forms',@Forms.Register); 36 RegisterUnit('Grids',@Grids.Register); 37 RegisterUnit('Controls',@Controls.Register); 38 RegisterUnit('Dialogs',@Dialogs.Register); 39 RegisterUnit('Spin',@Spin.Register); 40 RegisterUnit('Arrow',@Arrow.Register); 41 RegisterUnit('Calendar',@Calendar.Register); 42 RegisterUnit('PairSplitter',@PairSplitter.Register); 43 RegisterUnit('ExtDlgs',@ExtDlgs.Register); 44 RegisterUnit('StdActns',@StdActns.Register); 45 RegisterUnit('DBCtrls',@DBCtrls.Register); 46 RegisterUnit('DBExtCtrls',@DBExtCtrls.Register); 47 RegisterUnit('DBGrids',@DBGrids.Register); 48 RegisterUnit('DBActns',@DBActns.Register); 49 RegisterUnit('EditBtn',@EditBtn.Register); 50 RegisterUnit('ActnList',@ActnList.Register); 51 RegisterUnit('FileCtrl',@FileCtrl.Register); 52 RegisterUnit('ComboEx', @ComboEx.Register); 53 RegisterUnit('Graphics',@Graphics.Register); 54 RegisterUnit('ColorBox',@ColorBox.Register); 55 RegisterUnit('ValEdit', @ValEdit.Register); 56 RegisterUnit('ButtonPanel',@ButtonPanel.Register); 57 RegisterUnit('LResources',@LResources.Register); 58 RegisterUnit('LazHelpHTML',@LazHelpHTML.Register); 59 RegisterUnit('PopupNotifier', @PopupNotifier.Register); 60 RegisterUnit('AsyncProcess', @AsyncProcess.Register); 61 RegisterUnit('ShellCtrls', @ShellCtrls.Register); 62 RegisterUnit('XMLPropStorage',@XMLPropStorage.Register); 63 RegisterUnit('IniPropStorage',@IniPropStorage.Register); 64 RegisterUnit('JSONPropStorage',@JSONPropStorage.Register); 65 end; 66 67 procedure RegisterLCLBase; 68 begin 69 RegisterPackage('LCLBase', @Register); 70 end; 71 72 end. 73 74