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/designtime/spkte_AppearanceEditor.lfm

@@ -13,7 +13,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
   OnCreate = FormCreate
   OnShow = FormShow
   ShowHint = True
-  LCLVersion = '1.9.0.0'
+  LCLVersion = '1.6.4.0'
   object gbPreview: TGroupBox
     Left = 0
     Height = 132
@@ -125,6 +125,8 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         CustomAppearance.Element.ActiveCaptionColor = 8405614
         CustomAppearance.Element.Style = esRounded
         Caption = 'Sample toolbar'
+        OverrideAppearance = False
+        Visible = True
         Panes = (
           'SpkPane1'
           'SpkPane2'
@@ -132,21 +134,29 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         )
         object SpkPane1: TSpkPane
           Caption = 'Sample large buttons'
+          Visible = True
           Items = (
             'SpkLargeButton1'
             'SpkLargeButton3'
             'SpkLargeButton2'
           )
           object SpkLargeButton1: TSpkLargeButton
+            Visible = True
+            Enabled = True
             Caption = 'Default'
             LargeImageIndex = 0
+            ButtonKind = bkButton
           end
           object SpkLargeButton3: TSpkLargeButton
+            Visible = True
+            Enabled = True
             Caption = 'Button and dropdown'
             LargeImageIndex = 0
             ButtonKind = bkButtonDropdown
           end
           object SpkLargeButton2: TSpkLargeButton
+            Visible = True
+            Enabled = True
             Caption = 'Dropdown'
             LargeImageIndex = 0
             ButtonKind = bkDropdown
@@ -154,34 +164,49 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         end
         object SpkPane2: TSpkPane
           Caption = 'Sample small buttons'
+          Visible = True
           Items = (
             'SpkSmallButton1'
             'SpkSmallButton2'
             'SpkSmallButton3'
           )
           object SpkSmallButton1: TSpkSmallButton
+            Visible = True
+            Enabled = True
             Caption = 'Default'
+            GroupBehaviour = gbSingleItem
             HideFrameWhenIdle = True
             ImageIndex = 0
+            ShowCaption = True
             TableBehaviour = tbBeginsRow
+            ButtonKind = bkButton
           end
           object SpkSmallButton2: TSpkSmallButton
+            Visible = True
+            Enabled = True
             Caption = 'Button and dropdown'
+            GroupBehaviour = gbSingleItem
             HideFrameWhenIdle = True
             ImageIndex = 0
+            ShowCaption = True
             TableBehaviour = tbBeginsRow
             ButtonKind = bkButtonDropdown
           end
           object SpkSmallButton3: TSpkSmallButton
+            Visible = True
+            Enabled = True
             Caption = 'Dropdown'
+            GroupBehaviour = gbSingleItem
             HideFrameWhenIdle = True
             ImageIndex = 0
+            ShowCaption = True
             TableBehaviour = tbBeginsRow
             ButtonKind = bkDropdown
           end
         end
         object SpkPane3: TSpkPane
           Caption = 'Tool buttons'
+          Visible = True
           Items = (
             'SpkSmallButton4'
             'SpkSmallButton5'
@@ -190,31 +215,59 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
             'SpkSmallButton8'
           )
           object SpkSmallButton4: TSpkSmallButton
+            Visible = True
+            Enabled = True
             Caption = 'Button'
             GroupBehaviour = gbBeginsGroup
+            HideFrameWhenIdle = False
             ImageIndex = 0
             ShowCaption = False
+            TableBehaviour = tbContinuesRow
+            ButtonKind = bkButton
           end
           object SpkSmallButton5: TSpkSmallButton
+            Visible = True
+            Enabled = True
             Caption = 'Button'
             GroupBehaviour = gbContinuesGroup
+            HideFrameWhenIdle = False
             ImageIndex = 0
             ShowCaption = False
+            TableBehaviour = tbContinuesRow
+            ButtonKind = bkButton
           end
           object SpkSmallButton6: TSpkSmallButton
+            Visible = True
+            Enabled = True
             Caption = 'Button'
             GroupBehaviour = gbEndsGroup
+            HideFrameWhenIdle = False
             ImageIndex = 0
             ShowCaption = False
+            TableBehaviour = tbContinuesRow
+            ButtonKind = bkButton
           end
           object SpkSmallButton7: TSpkSmallButton
+            Visible = True
+            Enabled = True
             Caption = 'Btn1'
+            GroupBehaviour = gbSingleItem
+            HideFrameWhenIdle = False
             ImageIndex = 0
+            ShowCaption = True
             TableBehaviour = tbBeginsRow
+            ButtonKind = bkButton
           end
           object SpkSmallButton8: TSpkSmallButton
+            Visible = True
+            Enabled = True
             Caption = 'Btn2'
+            GroupBehaviour = gbSingleItem
+            HideFrameWhenIdle = False
             ImageIndex = 0
+            ShowCaption = True
+            TableBehaviour = tbContinuesRow
+            ButtonKind = bkButton
           end
         end
       end
@@ -263,6 +316,8 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         CustomAppearance.Element.ActiveCaptionColor = 8405614
         CustomAppearance.Element.Style = esRounded
         Caption = 'Another tab'
+        OverrideAppearance = False
+        Visible = True
         Panes = (        )
       end
     end
@@ -272,13 +327,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
     Height = 382
     Top = 132
     Width = 552
-    ActivePage = TabSheet2
+    ActivePage = TabSheet1
     Align = alClient
-    TabIndex = 1
+    TabIndex = 0
     TabOrder = 1
     object TabSheet1: TTabSheet
       Caption = 'Tab'
-      ClientHeight = 360
+      ClientHeight = 354
       ClientWidth = 544
       object sTabRectangle: TShape
         AnchorSideLeft.Control = LblInactiveTabHeaderFontColor

components/spktoolbar/designtime/spkte_AppearanceEditor.pas

@@ -321,7 +321,7 @@ implementation
 {$R *.lfm}
 
 uses
-  Types, clipbrd;
+  Types, clipbrd, spkt_Const;
 
 var
   CurrPageIndex: Integer = 0;