Industrial: More screenshots, minor refinements in some demos

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8778 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/industrialstuff/Example/u_industrial.lfm

@@ -1,16 +1,16 @@
 object Form1: TForm1
   Left = 159
-  Height = 223
+  Height = 295
   Top = 156
   Width = 824
   Caption = 'IndustrialStuff Example'
-  ClientHeight = 223
+  ClientHeight = 295
   ClientWidth = 824
-  LCLVersion = '2.1.0.0'
+  LCLVersion = '2.3.0.0'
   object indLed1: TindLed
-    Left = 200
+    Left = 168
     Height = 35
-    Top = 33
+    Top = 32
     Width = 34
     LedValue = False
     Bevels = <    
@@ -36,7 +36,7 @@ object Form1: TForm1
     ShapeLedColorDisabled = 13416
   end
   object StopLightSensor1: TStopLightSensor
-    Left = 96
+    Left = 32
     Height = 59
     Top = 24
     Width = 25
@@ -54,10 +54,10 @@ object Form1: TForm1
     State = slRED
   end
   object LEDNumber1: TLEDNumber
-    Left = 40
-    Height = 28
-    Top = 128
-    Width = 177
+    Left = 32
+    Height = 30
+    Top = 104
+    Width = 170
     Caption = 'Lazarus'
   end
   object AnalogSensor1: TAnalogSensor
@@ -81,7 +81,6 @@ object Form1: TForm1
     ColorRed = clYellow
     ColorYellow = clRed
     Value = 50
-    ValueMin = 0
     ValueMax = 100
     ValueRed = 25
     ValueYellow = 75
@@ -89,14 +88,13 @@ object Form1: TForm1
   end
   object indGnouMeter1: TindGnouMeter
     Left = 440
-    Height = 155
+    Height = 202
     Top = 13
     Width = 120
     Caption = 'Voltage'
     Value = 50
     ParentColor = False
     SignalUnit = 'mV'
-    ValueMin = 0
     ValueMax = 100
     Digits = 0
     Increment = 10
@@ -105,22 +103,12 @@ object Form1: TForm1
     BarThickness = 6
     MarkerColor = clBlue
   end
-  object Arrow1: TArrow
-    Left = 48
-    Height = 20
-    Top = 41
-    Width = 20
-    Constraints.MinHeight = 8
-    Constraints.MinWidth = 8
-  end
   object AdvLed1: TAdvLed
-    Left = 152
+    Left = 104
     Height = 24
     Top = 40
     Width = 24
     Kind = lkYellowLight
-    State = lsOn
-    Blink = False
   end
   object A3nalogGauge1: TA3nalogGauge
     Left = 568
@@ -140,9 +128,9 @@ object Form1: TForm1
     Position = 50
   end
   object MultiSlider1: TMultiSlider
-    Left = 25
+    Left = 144
     Height = 35
-    Top = 180
+    Top = 240
     Width = 504
     ColorAbove = clRed
     ColorBelow = clYellow
@@ -171,4 +159,15 @@ object Form1: TForm1
     TabOrder = 3
     Text = 'akVertical'
   end
+  object LCDDisplay1: TLCDDisplay
+    Left = 16
+    Height = 61
+    Top = 165
+    Width = 320
+    DisplayLineCount = 1
+    Lines.Strings = (
+      'Lazarus'
+      ' '
+    )
+  end
 end