tvplanit: Fix LCLScaling in TVpLEDLabel and TVpClock. Some refactoring.

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

components/tvplanit/examples/gadgets/unit1.lfm

@@ -1,13 +1,14 @@
 object Form1: TForm1
-  Left = 320
+  Left = 142
   Height = 292
-  Top = 160
-  Width = 457
+  Top = 71
+  Width = 459
   Caption = 'TvPlanit Gadgets demo'
   ClientHeight = 292
-  ClientWidth = 457
+  ClientWidth = 459
   Font.Color = clWindowText
   OnShow = FormShow
+  LCLVersion = '2.3.0.0'
   object VpClock: TVpClock
     AnchorSideLeft.Control = Owner
     AnchorSideTop.Control = Panel1
@@ -51,14 +52,13 @@ object Form1: TForm1
   object BtnStartStop: TButton
     AnchorSideLeft.Control = RgClockMode
     AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = RgClockMode
     AnchorSideRight.Side = asrBottom
-    AnchorSideBottom.Control = RgClockMode
     AnchorSideBottom.Side = asrBottom
     Left = 342
     Height = 25
-    Top = 190
+    Top = 168
     Width = 80
-    Anchors = [akLeft]
     AutoSize = True
     BorderSpacing.Left = 16
     Caption = 'Start'
@@ -118,7 +118,7 @@ object Form1: TForm1
     AnchorSideBottom.Control = BtnStartStop
     Left = 342
     Height = 19
-    Top = 159
+    Top = 137
     Width = 98
     Anchors = [akLeft, akBottom]
     BorderSpacing.Top = 4
@@ -180,7 +180,7 @@ object Form1: TForm1
     AnchorSideBottom.Control = BtnStartStop
     Left = 342
     Height = 19
-    Top = 159
+    Top = 137
     Width = 85
     Anchors = [akLeft, akBottom]
     BorderSpacing.Top = 12
@@ -238,7 +238,7 @@ object Form1: TForm1
     AnchorSideRight.Side = asrBottom
     Left = 342
     Height = 25
-    Top = 217
+    Top = 195
     Width = 80
     AutoSize = True
     BorderSpacing.Top = 2