spktoolbar: Fix LCLScaling (minor issue remaining when form is loaded from hi-dpi system into low-dpi system: modify form a bit, save and load again).

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

components/spktoolbar/demos/actions/unit1.lfm

@@ -1,23 +1,25 @@
 object Form1: TForm1
-  Left = 301
-  Height = 378
-  Top = 242
-  Width = 585
+  Left = 368
+  Height = 304
+  Top = 248
+  Width = 501
   Caption = 'Form1'
-  ClientHeight = 358
-  ClientWidth = 585
+  ClientHeight = 284
+  ClientWidth = 501
   Menu = MainMenu
   OnCloseQuery = FormCloseQuery
   OnCreate = FormCreate
   LCLVersion = '1.9.0.0'
   object ToolBar1: TToolBar
     Left = 0
-    Height = 26
+    Height = 24
     Top = 0
-    Width = 585
+    Width = 501
+    AutoSize = True
     Caption = 'ToolBar1'
     EdgeBorders = [ebBottom]
     Images = ImageList
+    ParentFont = False
     TabOrder = 0
     object ToolButton1: TToolButton
       Left = 1
@@ -30,71 +32,71 @@ object Form1: TForm1
       Action = AcSave
     end
     object ToolButton3: TToolButton
-      Left = 47
+      Left = 70
       Height = 22
       Top = 0
       Caption = 'ToolButton3'
       Style = tbsDivider
     end
     object ToolButton4: TToolButton
-      Left = 52
+      Left = 47
       Top = 0
       Action = AcEditCut
     end
     object ToolButton5: TToolButton
-      Left = 75
+      Left = 73
       Top = 0
       Action = AcEditCopy
     end
     object ToolButton6: TToolButton
-      Left = 98
+      Left = 96
       Top = 0
       Action = AcEditPaste
     end
     object ToolButton7: TToolButton
-      Left = 121
+      Left = 188
       Height = 22
       Top = 0
       Caption = 'ToolButton7'
       Style = tbsDivider
     end
     object ToolButton8: TToolButton
-      Left = 269
+      Left = 260
       Top = 0
       Action = AcQuit
     end
     object ToolButton9: TToolButton
-      Left = 126
+      Left = 119
       Top = 0
       Action = AcBold
     end
     object ToolButton10: TToolButton
-      Left = 149
+      Left = 142
       Top = 0
       Action = AcItalic
     end
     object ToolButton11: TToolButton
-      Left = 195
+      Left = 191
       Top = 0
       Action = AcLeftJustify
     end
     object ToolButton12: TToolButton
-      Left = 172
+      Left = 165
       Top = 0
       Action = AcUnderline
     end
     object ToolButton13: TToolButton
-      Left = 218
+      Left = 214
       Top = 0
       Action = AcCenter
     end
     object ToolButton14: TToolButton
-      Left = 241
+      Left = 237
       Top = 0
       Action = AcRightJustify
     end
     object ToolButton15: TToolButton
-      Left = 264
+      Left = 283
       Height = 22
       Top = 0
       Caption = 'ToolButton15'
@@ -103,27 +105,30 @@ object Form1: TForm1
   end
   object Panel1: TPanel
     Left = 0
-    Height = 220
-    Top = 138
-    Width = 585
+    Height = 185
+    Top = 99
+    Width = 501
     Align = alClient
     BevelOuter = bvNone
-    ClientHeight = 220
-    ClientWidth = 585
+    ClientHeight = 185
+    ClientWidth = 501
+    ParentFont = False
     TabOrder = 1
     object Label1: TLabel
-      Left = 16
+      Left = 24
       Height = 15
-      Top = 8
+      Top = 12
       Width = 34
       Caption = 'Label1'
       ParentColor = False
+      ParentFont = False
     end
   end
   object SpkToolbar1: TSpkToolbar
     Left = 0
-    Top = 26
-    Width = 585
+    Height = 75
+    Top = 24
+    Width = 501
     Appearance.Tab.TabHeaderFont.Color = 9126421
     Appearance.Tab.BorderColor = 14922381
     Appearance.Tab.GradientFromColor = 16115934

components/spktoolbar/demos/basic/Unit1.lfm

@@ -10,9 +10,10 @@ object Form2: TForm2
   Font.Color = clWindowText
   Font.Height = -11
   Font.Name = 'Tahoma'
-  LCLVersion = '1.9.0.0'
+  LCLVersion = '1.6.4.0'
   object SpkToolbar1: TSpkToolbar
     Left = 0
+    Height = 112
     Top = 0
     Width = 777
     Color = clBtnFace

components/spktoolbar/demos/styles/unit1.lfm

@@ -1,26 +1,27 @@
 object Form1: TForm1
   Left = 280
-  Height = 667
+  Height = 614
   Top = 130
   Width = 636
   Caption = 'spkToolbar Styles'
-  ClientHeight = 667
+  ClientHeight = 614
   ClientWidth = 636
   Color = clMedGray
-  LCLVersion = '1.9.0.0'
+  LCLVersion = '1.6.4.0'
   object ScrollBox1: TScrollBox
     Left = 0
-    Height = 667
+    Height = 614
     Top = 0
     Width = 636
     HorzScrollBar.Page = 75
-    VertScrollBar.Page = 660
+    VertScrollBar.Page = 608
     Align = alClient
-    ClientHeight = 663
+    ClientHeight = 610
     ClientWidth = 632
     TabOrder = 0
     object SpkToolbar1: TSpkToolbar
       Left = 0
+      Height = 112
       Top = 0
       Width = 632
       Color = clMedGray
@@ -268,7 +269,8 @@ object Form1: TForm1
     end
     object SpkToolbar2: TSpkToolbar
       Left = 0
-      Top = 137
+      Height = 112
+      Top = 124
       Width = 632
       Color = clMedGray
       Style = spkOffice2007Silver
@@ -515,7 +517,8 @@ object Form1: TForm1
     end
     object SpkToolbar3: TSpkToolbar
       Left = 0
-      Top = 274
+      Height = 112
+      Top = 248
       Width = 632
       Color = clMedGray
       Style = spkOffice2007SilverTurquoise
@@ -762,7 +765,7 @@ object Form1: TForm1
     end
     object Panel1: TPanel
       Left = 0
-      Height = 25
+      Height = 12
       Top = 112
       Width = 632
       Align = alTop
@@ -771,8 +774,8 @@ object Form1: TForm1
     end
     object Panel4: TPanel
       Left = 0
-      Height = 25
-      Top = 523
+      Height = 12
+      Top = 484
       Width = 632
       Align = alTop
       BevelOuter = bvNone
@@ -780,8 +783,8 @@ object Form1: TForm1
     end
     object Panel3: TPanel
       Left = 0
-      Height = 25
-      Top = 386
+      Height = 12
+      Top = 360
       Width = 632
       Align = alTop
       BevelOuter = bvNone
@@ -789,7 +792,8 @@ object Form1: TForm1
     end
     object SpkToolbar4: TSpkToolbar
       Left = 0
-      Top = 411
+      Height = 112
+      Top = 372
       Width = 632
       Color = clMedGray
       Style = spkMetroLight
@@ -1038,8 +1042,8 @@ object Form1: TForm1
     end
     object Panel2: TPanel
       Left = 0
-      Height = 25
-      Top = 249
+      Height = 12
+      Top = 236
       Width = 632
       Align = alTop
       BevelOuter = bvNone
@@ -1049,7 +1053,8 @@ object Form1: TForm1
     end
     object SpkToolbar5: TSpkToolbar
       Left = 0
-      Top = 548
+      Height = 112
+      Top = 496
       Width = 632
       Color = clMedGray
       Style = spkMetroDark