Industrial comps: fix example etc.

git-svn-id: trunk@41247 -

components/IndustrialStuff/Example/u_industrial.lfm

@@ -8,7 +8,7 @@ object Form1: TForm1
   ClientWidth = 568
   LCLVersion = '1.1'
   object indAdvLed1: TindAdvLed
-    Left = 95
+    Left = 144
     Height = 36
     Top = 32
     Width = 36
@@ -75,7 +75,7 @@ object Form1: TForm1
     }
   end
   object indLed1: TindLed
-    Left = 175
+    Left = 200
     Height = 35
     Top = 33
     Width = 34
@@ -103,7 +103,7 @@ object Form1: TForm1
     ShapeLedColorDisabled = 13416
   end
   object StopLightSensor1: TStopLightSensor
-    Left = 32
+    Left = 104
     Height = 59
     Top = 24
     Width = 25
@@ -131,7 +131,7 @@ object Form1: TForm1
     OnColor = clLime
   end
   object AnalogSensor1: TAnalogSensor
-    Left = 240
+    Left = 256
     Height = 136
     Top = 8
     Width = 153
@@ -178,4 +178,12 @@ object Form1: TForm1
     MarkerColor = clBlue
     ShowMarker = True
   end
+  object Arrow1: TArrow
+    Left = 39
+    Height = 20
+    Top = 41
+    Width = 20
+    Constraints.MinHeight = 8
+    Constraints.MinWidth = 8
+  end
 end

components/IndustrialStuff/Example/u_industrial.pas

@@ -5,8 +5,8 @@ unit u_industrial;
 interface
 
 uses
-  Classes, SysUtils, FileUtil, indAdvLed, IndLed, grArrow, Sensors, LedNumber,
-  indGnouMeter, Forms, Controls, Graphics, Dialogs;
+  Classes, SysUtils, FileUtil, indAdvLed, IndLed, Sensors, LedNumber,
+  indGnouMeter, Forms, Controls, Graphics, Dialogs, Arrow;
 
 type
 
@@ -14,6 +14,7 @@ type
 
   TForm1 = class(TForm)
     AnalogSensor1: TAnalogSensor;
+    Arrow1: TArrow;
     indAdvLed1: TindAdvLed;
     indGnouMeter1: TindGnouMeter;
     indLed1: TindLed;

lcl/arrow.pp

@@ -91,7 +91,7 @@ procedure Register;
 implementation
 
 const
-  Default_Height_Width = 10;
+  Default_Height_Width = 20;
   ArrowMinHeight = 8;