From 9b1bc94150d763c37131f0e625a20d5d36ab32d3 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sat, 7 Sep 2013 07:23:49 +0000
Subject: [PATCH] LCL: register TArrow to Misc component page again. Remove
 extra register procedures from Industrial components.

git-svn-id: trunk@42656 -
---
 components/IndustrialStuff/source/AdvLed.pas | 10 +---------
 components/IndustrialStuff/source/indled.pas |  7 -------
 lcl/arrow.pp                                 |  2 +-
 3 files changed, 2 insertions(+), 17 deletions(-)

diff --git a/components/IndustrialStuff/source/AdvLed.pas b/components/IndustrialStuff/source/AdvLed.pas
index c9be09d95a..4413bdea3d 100644
--- a/components/IndustrialStuff/source/AdvLed.pas
+++ b/components/IndustrialStuff/source/AdvLed.pas
@@ -19,7 +19,7 @@ unit AdvLed;
 interface
 
 uses
-  LCLIntf, LCLType,LResources,Classes, Types, ExtCtrls,Controls,Graphics;
+  LCLIntf, LCLType,LResources,Classes, Types, ExtCtrls, Controls, Graphics;
 
 type
 
@@ -56,7 +56,6 @@ type
     procedure DoTimer(Sender: TObject);
     procedure GlyphChanged(Sender: TObject);
 
-
   protected
     FlipFLop : Boolean;
 {    procedure Paint; override;     }
@@ -123,8 +122,6 @@ type
     property OnContextPopup;  }
   end;
 
-procedure Register;
-
 implementation
 
 (*****************************************
@@ -149,11 +146,6 @@ end;
 (*****************************************
  * TAdvLed control                       *
  *****************************************)
-procedure Register;
-begin
-  RegisterComponents('Industrial',[TAdvLed]);
-end;
-
 
 // create control
 constructor TAdvLed.Create(AOwner: TComponent);
diff --git a/components/IndustrialStuff/source/indled.pas b/components/IndustrialStuff/source/indled.pas
index f52a3d602d..61062ad466 100644
--- a/components/IndustrialStuff/source/indled.pas
+++ b/components/IndustrialStuff/source/indled.pas
@@ -139,16 +139,9 @@ type
     property Transparent;
   end;
 
-procedure Register;
-
 
 implementation
 
-procedure Register;
-begin
-  RegisterComponents('Industrial Stuff',[TindLed]);
-end;
-
 constructor TcyCustomLed.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
diff --git a/lcl/arrow.pp b/lcl/arrow.pp
index 356f9c152f..dd21091f94 100644
--- a/lcl/arrow.pp
+++ b/lcl/arrow.pp
@@ -88,7 +88,7 @@ const
 
 procedure Register;
 begin
-  RegisterComponents('Industrial',[TArrow]);
+  RegisterComponents('Misc',[TArrow]);
 end;
 
 { TArrow }