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

@@ -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);

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);

lcl/arrow.pp

@@ -88,7 +88,7 @@ const
 
 procedure Register;
 begin
-  RegisterComponents('Industrial',[TArrow]);
+  RegisterComponents('Misc',[TArrow]);
 end;
 
 { TArrow }