diff --git a/components/lazcontrols/checkboxthemed.pas b/components/lazcontrols/checkboxthemed.pas
index a4317310d3..04f3291aee 100644
--- a/components/lazcontrols/checkboxthemed.pas
+++ b/components/lazcontrols/checkboxthemed.pas
@@ -151,16 +151,8 @@ type
property OnUTF8KeyPress;
end;
-procedure Register;
-
implementation
-procedure Register;
-begin
- RegisterComponents('LazControls', [TCheckBoxThemed]);
- //RegisterPropertyEditor(TypeInfo(TCaption), TCheckBoxThemed, 'Caption', TStringMultilinePropertyEditor);
-end;
-
{ TCheckBoxThemedActionLink }
procedure TCheckBoxThemedActionLink.AssignClient(AClient: TObject);
diff --git a/components/lazcontrols/design/registerlazcontrols.pas b/components/lazcontrols/design/registerlazcontrols.pas
index 44b55b1167..acf8b5440b 100644
--- a/components/lazcontrols/design/registerlazcontrols.pas
+++ b/components/lazcontrols/design/registerlazcontrols.pas
@@ -6,7 +6,8 @@ interface
uses
Classes, SysUtils, ExtendedTabControls, ComponentEditors, ObjInspStrConsts, PropEdits,
- ComCtrls;
+ ComCtrls, CheckBoxThemed, DividerBevel, ExtendedNotebook, ListFilterEdit,
+ ListViewFilterEdit, LvlGraphCtrl, ShortPathEdit, SpinEx, TreeFilterEdit;
type
@@ -25,9 +26,15 @@ procedure Register;
implementation
+{$R ../lazcontrols.res}
+
procedure Register;
begin
- RegisterComponents('LazControls',[TExtendedTabControl]);
+ RegisterComponents('LazControls', [TCheckBoxThemed,
+ TDividerBevel, TExtendedNotebook, TListFilterEdit, TListViewFilterEdit,
+ TLvlGraphControl, TShortPathEdit, TSpinEditEx, TFloatSpinEditEx,
+ TTreeFilterEdit, TExtendedTabControl]);
+ //RegisterPropertyEditor(TypeInfo(TCaption), TCheckBoxThemed, 'Caption', TStringMultilinePropertyEditor);
RegisterNoIcon([TExtendedTabToolbar, TExtendedTabToolButton, TExtendedTabSheet]);
RegisterComponentEditor(TExtendedTabControl, TExtendedTabControlComponentEditor);
end;
diff --git a/components/lazcontrols/dividerbevel.pas b/components/lazcontrols/dividerbevel.pas
index 4b6fa5c256..8f6f55ef27 100644
--- a/components/lazcontrols/dividerbevel.pas
+++ b/components/lazcontrols/dividerbevel.pas
@@ -100,15 +100,8 @@ type
property OnStartDrag;
end;
-procedure Register;
-
implementation
-procedure Register;
-begin
- RegisterComponents('LazControls', [TDividerBevel]);
-end;
-
{ TDividerBevel }
procedure TDividerBevel.SetBevelStyle(AValue: TBevelStyle);
diff --git a/components/lazcontrols/extendednotebook.pas b/components/lazcontrols/extendednotebook.pas
index 30ec22dc5a..8248e7cc1b 100644
--- a/components/lazcontrols/extendednotebook.pas
+++ b/components/lazcontrols/extendednotebook.pas
@@ -102,15 +102,8 @@ type
default dmManual;
end;
-procedure Register;
-
implementation
-procedure Register;
-begin
- RegisterComponents('LazControls',[TExtendedNotebook]);
-end;
-
{ TExtendedNotebook }
procedure TExtendedNotebook.InitDrag;
diff --git a/components/lazcontrols/lazcontrols.lpk b/components/lazcontrols/lazcontrols.lpk
index cdfb03e19c..db846fbc16 100644
--- a/components/lazcontrols/lazcontrols.lpk
+++ b/components/lazcontrols/lazcontrols.lpk
@@ -12,9 +12,6 @@
-
-
-
@@ -22,42 +19,34 @@
-
-
-
-
-
-
-
-
@@ -66,7 +55,6 @@
-
diff --git a/components/lazcontrols/lazcontrols.pas b/components/lazcontrols/lazcontrols.pas
index c836f73937..fcfbc1502e 100644
--- a/components/lazcontrols/lazcontrols.pas
+++ b/components/lazcontrols/lazcontrols.pas
@@ -16,15 +16,6 @@ implementation
procedure Register;
begin
- RegisterUnit('CheckBoxThemed', @CheckBoxThemed.Register);
- RegisterUnit('DividerBevel', @DividerBevel.Register);
- RegisterUnit('ExtendedNotebook', @ExtendedNotebook.Register);
- RegisterUnit('ListFilterEdit', @ListFilterEdit.Register);
- RegisterUnit('ListViewFilterEdit', @ListViewFilterEdit.Register);
- RegisterUnit('TreeFilterEdit', @TreeFilterEdit.Register);
- RegisterUnit('ShortPathEdit', @ShortPathEdit.Register);
- RegisterUnit('LvlGraphCtrl', @LvlGraphCtrl.Register);
- RegisterUnit('SpinEx', @SpinEx.Register);
end;
initialization
diff --git a/components/lazcontrols/listfilteredit.pas b/components/lazcontrols/listfilteredit.pas
index 21035a22a2..0f0211fcb1 100644
--- a/components/lazcontrols/listfilteredit.pas
+++ b/components/lazcontrols/listfilteredit.pas
@@ -68,15 +68,8 @@ type
var
ListFilterGlyph: TBitmap;
-procedure Register;
-
implementation
-procedure Register;
-begin
- RegisterComponents('LazControls',[TListFilterEdit]);
-end;
-
{ TListBoxFilterEdit }
constructor TListFilterEdit.Create(AOwner: TComponent);
diff --git a/components/lazcontrols/listviewfilteredit.pas b/components/lazcontrols/listviewfilteredit.pas
index 38a171a552..8dd2a7246c 100644
--- a/components/lazcontrols/listviewfilteredit.pas
+++ b/components/lazcontrols/listviewfilteredit.pas
@@ -71,15 +71,8 @@ type
var
ListFilterGlyph: TBitmap;
-procedure Register;
-
implementation
-procedure Register;
-begin
- RegisterComponents('LazControls',[TListViewFilterEdit]);
-end;
-
{ TListViewFilterEdit }
constructor TListViewFilterEdit.Create(AOwner: TComponent);
diff --git a/components/lazcontrols/lvlgraphctrl.pas b/components/lazcontrols/lvlgraphctrl.pas
index 86269d7933..8bb7cdde2a 100644
--- a/components/lazcontrols/lvlgraphctrl.pas
+++ b/components/lazcontrols/lvlgraphctrl.pas
@@ -606,8 +606,6 @@ function dbgs(p: TLvlGraphNodeCaptionPosition): string; overload;
function dbgs(o: TLvlGraphCtrlOption): string; overload;
function dbgs(Options: TLvlGraphCtrlOptions): string; overload;
-procedure Register;
-
implementation
type
@@ -991,11 +989,6 @@ begin
Result:='['+Result+']';
end;
-procedure Register;
-begin
- RegisterComponents('LazControls',[TLvlGraphControl]);
-end;
-
{ TLvlGraphEdgeStyle }
procedure TLvlGraphEdgeStyle.SetMouseDistMax(AValue: integer);
diff --git a/components/lazcontrols/shortpathedit.pas b/components/lazcontrols/shortpathedit.pas
index 8771890758..33d8a5e3db 100644
--- a/components/lazcontrols/shortpathedit.pas
+++ b/components/lazcontrols/shortpathedit.pas
@@ -2,8 +2,6 @@ unit ShortPathEdit;
{$mode objfpc}{$H+}
-{$R lazcontrols.res}
-
interface
uses
@@ -25,8 +23,6 @@ type
property OnAcceptDirectory: TAcceptFileNameEvent read FOnAcceptDir write FonAcceptDir;
end;
-procedure Register;
-
implementation
function TShortPathEdit.CreateDialog: TCommonDialog;
@@ -73,11 +69,5 @@ begin
end;
end;
-procedure Register;
-begin
- RegisterComponents('LazControls',[TShortPathEdit]);
-end;
-
-
end.
diff --git a/components/lazcontrols/spinex.pp b/components/lazcontrols/spinex.pp
index 904b1340d5..957eed3432 100644
--- a/components/lazcontrols/spinex.pp
+++ b/components/lazcontrols/spinex.pp
@@ -356,15 +356,8 @@ type
function DbgS(ANvb: TNullValueBehaviour): String; overload;
-procedure Register;
-
implementation
-procedure Register;
-begin
- RegisterComponents('LazControls', [TSpinEditEx, TFloatSpinEditEx]);
-end;
-
{$I spinex.inc}
end.
diff --git a/components/lazcontrols/treefilteredit.pas b/components/lazcontrols/treefilteredit.pas
index fbf5606d61..7e2bf4e729 100644
--- a/components/lazcontrols/treefilteredit.pas
+++ b/components/lazcontrols/treefilteredit.pas
@@ -130,15 +130,8 @@ type
var
TreeFilterGlyph: TBitmap;
-procedure Register;
-
implementation
-procedure Register;
-begin
- RegisterComponents('LazControls',[TTreeFilterEdit]);
-end;
-
{ TTreeFilterBranch }
constructor TTreeFilterBranch.Create(AOwner: TTreeFilterEdit; ARootNode: TTreeNode);