SpkToolbar: Complete all color picker buttons in the Appearance Editor.

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

components/spktoolbar/designtime/spkte_AppearanceEditor.lfm

@@ -2,10 +2,10 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
   Left = 617
   Height = 540
   Top = 138
-  Width = 536
+  Width = 562
   Caption = 'Toolbar appearance editor'
   ClientHeight = 540
-  ClientWidth = 536
+  ClientWidth = 562
   Color = clBtnFace
   Font.Color = clWindowText
   Font.Height = -12
@@ -18,17 +18,17 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
     Left = 0
     Height = 132
     Top = 0
-    Width = 536
+    Width = 562
     Align = alTop
     AutoSize = True
     Caption = ' Preview '
     ClientHeight = 112
-    ClientWidth = 532
+    ClientWidth = 558
     TabOrder = 0
     object tbPreview: TSpkToolbar
       Left = 0
       Top = 0
-      Width = 532
+      Width = 558
       Color = clBtnFace
       Appearance.Tab.TabHeaderFont.Color = 9126421
       Appearance.Tab.TabHeaderFont.Height = -13
@@ -320,15 +320,15 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
     Left = 0
     Height = 368
     Top = 132
-    Width = 536
+    Width = 562
-    ActivePage = TabSheet2
+    ActivePage = TabSheet1
     Align = alClient
-    TabIndex = 1
+    TabIndex = 0
     TabOrder = 1
     object TabSheet1: TTabSheet
       Caption = 'Tab'
-      ClientHeight = 320
+      ClientHeight = 340
-      ClientWidth = 528
+      ClientWidth = 554
       object sTabRectangle: TShape
         AnchorSideLeft.Control = LblInactiveTabHeaderFontColor
         AnchorSideLeft.Side = asrBottom
@@ -487,12 +487,12 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideLeft.Control = pInactiveTabHeaderFont
         AnchorSideTop.Control = pInactiveTabHeaderFont
         AnchorSideTop.Side = asrBottom
-        AnchorSideRight.Control = pInactiveTabHeaderFont
+        AnchorSideRight.Control = bInactiveTabHeaderFontColor
         AnchorSideRight.Side = asrBottom
         Left = 187
         Height = 25
         Top = 234
-        Width = 100
+        Width = 127
         Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Top = 6
         BevelInner = bvRaised
@@ -668,7 +668,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
     object TabSheet2: TTabSheet
       Caption = 'Pane'
       ClientHeight = 340
-      ClientWidth = 528
+      ClientWidth = 554
       ImageIndex = 1
       object Label8: TLabel
         AnchorSideTop.Control = pPaneBorderDark
@@ -1096,8 +1096,8 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
     end
     object TabSheet3: TTabSheet
       Caption = 'Item'
-      ClientHeight = 319
+      ClientHeight = 340
-      ClientWidth = 528
+      ClientWidth = 554
       ImageIndex = 2
       object sItemRectangle: TShape
         AnchorSideTop.Control = cbLinkItem
@@ -1105,7 +1105,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         Left = 107
         Height = 242
         Top = 27
-        Width = 137
+        Width = 142
         BorderSpacing.Top = 4
         Visible = False
       end
@@ -1229,7 +1229,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
       object LblHotTrack: TLabel
         AnchorSideLeft.Control = pItemHottrackFrame
         AnchorSideTop.Control = LblIdle
-        Left = 253
+        Left = 259
         Height = 13
         Top = 31
         Width = 121
@@ -1241,7 +1241,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
       object LblActive: TLabel
         AnchorSideLeft.Control = pItemActiveFrame
         AnchorSideTop.Control = LblHotTrack
-        Left = 390
+        Left = 402
         Height = 13
         Top = 31
         Width = 121
@@ -1270,10 +1270,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideLeft.Control = pItemIdleGradientFrom
         AnchorSideTop.Control = pItemIdleGradientTo
         AnchorSideTop.Side = asrBottom
+        AnchorSideRight.Control = pItemIdleGradientTo
+        AnchorSideRight.Side = asrBottom
         Left = 116
         Height = 23
         Top = 143
-        Width = 121
+        Width = 100
+        Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Top = 6
         ItemHeight = 15
         ItemIndex = 0
@@ -1292,10 +1295,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideLeft.Control = pItemIdleGradientFrom
         AnchorSideTop.Control = pItemIdleGradientFrom
         AnchorSideTop.Side = asrBottom
+        AnchorSideRight.Control = pItemIdleGradientFrom
+        AnchorSideRight.Side = asrBottom
         Left = 116
         Height = 25
         Top = 112
-        Width = 121
+        Width = 100
+        Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Top = 6
         BevelInner = bvRaised
         BevelOuter = bvLowered
@@ -1307,10 +1313,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideLeft.Control = pItemIdleFrame
         AnchorSideTop.Control = pItemIdleFrame
         AnchorSideTop.Side = asrBottom
+        AnchorSideRight.Control = pItemIdleFrame
+        AnchorSideRight.Side = asrBottom
         Left = 116
         Height = 25
         Top = 81
-        Width = 121
+        Width = 100
+        Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Top = 6
         BevelInner = bvRaised
         BevelOuter = bvLowered
@@ -1325,7 +1334,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         Left = 116
         Height = 25
         Top = 50
-        Width = 121
+        Width = 100
         BorderSpacing.Top = 6
         BevelInner = bvRaised
         BevelOuter = bvLowered
@@ -1337,10 +1346,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideLeft.Control = cbItemIdleGradientKind
         AnchorSideTop.Control = cbItemIdleGradientKind
         AnchorSideTop.Side = asrBottom
+        AnchorSideRight.Control = pItemIdleGradientTo
+        AnchorSideRight.Side = asrBottom
         Left = 116
         Height = 25
         Top = 172
-        Width = 121
+        Width = 100
+        Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Top = 6
         BevelInner = bvRaised
         BevelOuter = bvLowered
@@ -1352,10 +1364,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideLeft.Control = pItemIdleCaptionColor
         AnchorSideTop.Control = pItemIdleCaptionColor
         AnchorSideTop.Side = asrBottom
+        AnchorSideRight.Control = pItemIdleCaptionColor
+        AnchorSideRight.Side = asrBottom
         Left = 116
         Height = 25
         Top = 203
-        Width = 121
+        Width = 100
+        Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Top = 6
         BevelInner = bvRaised
         BevelOuter = bvLowered
@@ -1367,10 +1382,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideLeft.Control = pItemIdleInnerDark
         AnchorSideTop.Control = pItemIdleInnerDark
         AnchorSideTop.Side = asrBottom
+        AnchorSideRight.Control = pItemIdleInnerDark
+        AnchorSideRight.Side = asrBottom
         Left = 116
         Height = 25
         Top = 234
-        Width = 121
+        Width = 100
+        Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Top = 6
         BevelInner = bvRaised
         BevelOuter = bvLowered
@@ -1382,10 +1400,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideLeft.Control = pItemHottrackGradientTo
         AnchorSideTop.Control = pItemHottrackGradientTo
         AnchorSideTop.Side = asrBottom
-        Left = 253
+        AnchorSideRight.Control = pItemHottrackGradientTo
+        AnchorSideRight.Side = asrBottom
+        Left = 259
         Height = 23
         Top = 143
-        Width = 121
+        Width = 100
+        Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Top = 6
         ItemHeight = 15
         ItemIndex = 0
@@ -1404,10 +1425,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideLeft.Control = pItemHottrackGradientFrom
         AnchorSideTop.Control = pItemHottrackGradientFrom
         AnchorSideTop.Side = asrBottom
-        Left = 253
+        AnchorSideRight.Control = pItemHottrackGradientFrom
+        AnchorSideRight.Side = asrBottom
+        Left = 259
         Height = 25
         Top = 112
-        Width = 121
+        Width = 100
+        Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Top = 6
         BevelInner = bvRaised
         BevelOuter = bvLowered
@@ -1419,10 +1443,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideLeft.Control = pItemHottrackFrame
         AnchorSideTop.Control = pItemHottrackFrame
         AnchorSideTop.Side = asrBottom
-        Left = 253
+        AnchorSideRight.Control = pItemHottrackFrame
+        AnchorSideRight.Side = asrBottom
+        Left = 259
         Height = 25
         Top = 81
-        Width = 121
+        Width = 100
+        Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Top = 6
         BevelInner = bvRaised
         BevelOuter = bvLowered
@@ -1434,11 +1461,11 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideLeft.Control = pItemIdleFrame
         AnchorSideLeft.Side = asrBottom
         AnchorSideTop.Control = pItemIdleFrame
-        Left = 253
+        Left = 259
         Height = 25
         Top = 50
-        Width = 121
+        Width = 100
-        BorderSpacing.Left = 16
+        BorderSpacing.Left = 43
         BevelInner = bvRaised
         BevelOuter = bvLowered
         Caption = 'Color'
@@ -1449,10 +1476,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideLeft.Control = cbItemHottrackGradientKind
         AnchorSideTop.Control = cbItemHottrackGradientKind
         AnchorSideTop.Side = asrBottom
-        Left = 253
+        AnchorSideRight.Control = pItemHottrackGradientTo
+        AnchorSideRight.Side = asrBottom
+        Left = 259
         Height = 25
         Top = 172
-        Width = 121
+        Width = 100
+        Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Top = 6
         BevelInner = bvRaised
         BevelOuter = bvLowered
@@ -1464,10 +1494,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideLeft.Control = pItemHottrackCaptionColor
         AnchorSideTop.Control = pItemHottrackCaptionColor
         AnchorSideTop.Side = asrBottom
-        Left = 253
+        AnchorSideRight.Control = pItemHottrackCaptionColor
+        AnchorSideRight.Side = asrBottom
+        Left = 259
         Height = 25
         Top = 203
-        Width = 121
+        Width = 100
+        Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Top = 6
         BevelInner = bvRaised
         BevelOuter = bvLowered
@@ -1479,10 +1512,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideLeft.Control = pItemHottrackInnerDark
         AnchorSideTop.Control = pItemHottrackInnerDark
         AnchorSideTop.Side = asrBottom
-        Left = 253
+        AnchorSideRight.Control = pItemHottrackInnerDark
+        AnchorSideRight.Side = asrBottom
+        Left = 259
         Height = 25
         Top = 234
-        Width = 121
+        Width = 100
+        Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Top = 6
         BevelInner = bvRaised
         BevelOuter = bvLowered
@@ -1494,10 +1530,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideLeft.Control = pItemActiveGradientTo
         AnchorSideTop.Control = pItemActiveGradientTo
         AnchorSideTop.Side = asrBottom
-        Left = 390
+        AnchorSideRight.Control = pItemActiveGradientTo
+        AnchorSideRight.Side = asrBottom
+        Left = 402
         Height = 23
         Top = 143
-        Width = 121
+        Width = 100
+        Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Top = 6
         ItemHeight = 15
         ItemIndex = 0
@@ -1516,10 +1555,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideLeft.Control = pItemActiveGradientFrom
         AnchorSideTop.Control = pItemActiveGradientFrom
         AnchorSideTop.Side = asrBottom
-        Left = 390
+        AnchorSideRight.Control = pItemActiveGradientFrom
+        AnchorSideRight.Side = asrBottom
+        Left = 402
         Height = 25
         Top = 112
-        Width = 121
+        Width = 100
+        Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Top = 6
         BevelInner = bvRaised
         BevelOuter = bvLowered
@@ -1531,10 +1573,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideLeft.Control = pItemActiveFrame
         AnchorSideTop.Control = pItemActiveFrame
         AnchorSideTop.Side = asrBottom
-        Left = 390
+        AnchorSideRight.Control = pItemActiveFrame
+        AnchorSideRight.Side = asrBottom
+        Left = 402
         Height = 25
         Top = 81
-        Width = 121
+        Width = 100
+        Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Top = 6
         BevelInner = bvRaised
         BevelOuter = bvLowered
@@ -1546,12 +1591,11 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideLeft.Control = pItemHottrackFrame
         AnchorSideLeft.Side = asrBottom
         AnchorSideTop.Control = pItemHottrackFrame
-        Left = 390
+        Left = 402
         Height = 25
         Top = 50
-        Width = 121
+        Width = 100
-        BorderSpacing.Left = 16
+        BorderSpacing.Left = 43
-        BorderSpacing.Right = 16
         BevelInner = bvRaised
         BevelOuter = bvLowered
         Caption = 'Color'
@@ -1562,10 +1606,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideLeft.Control = cbItemActiveGradientKind
         AnchorSideTop.Control = cbItemActiveGradientKind
         AnchorSideTop.Side = asrBottom
-        Left = 390
+        AnchorSideRight.Control = cbItemActiveGradientKind
+        AnchorSideRight.Side = asrBottom
+        Left = 402
         Height = 25
         Top = 172
-        Width = 121
+        Width = 100
+        Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Top = 6
         BevelInner = bvRaised
         BevelOuter = bvLowered
@@ -1577,10 +1624,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideLeft.Control = pItemActiveCaptionColor
         AnchorSideTop.Control = pItemActiveCaptionColor
         AnchorSideTop.Side = asrBottom
-        Left = 390
+        AnchorSideRight.Control = pItemActiveCaptionColor
+        AnchorSideRight.Side = asrBottom
+        Left = 402
         Height = 25
         Top = 203
-        Width = 121
+        Width = 100
+        Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Top = 6
         BevelInner = bvRaised
         BevelOuter = bvLowered
@@ -1592,10 +1642,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideLeft.Control = pItemActiveInnerDark
         AnchorSideTop.Control = pItemActiveInnerDark
         AnchorSideTop.Side = asrBottom
-        Left = 390
+        AnchorSideRight.Control = pItemActiveInnerDark
+        AnchorSideRight.Side = asrBottom
+        Left = 402
         Height = 25
         Top = 234
-        Width = 121
+        Width = 100
+        Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Top = 6
         BevelInner = bvRaised
         BevelOuter = bvLowered
@@ -1617,6 +1670,318 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         OnClick = cbLinkItemClick
         TabOrder = 22
       end
+      object bItemIdleFrameColor: TSpeedButton
+        AnchorSideLeft.Control = pItemIdleFrame
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = pItemIdleFrame
+        AnchorSideTop.Side = asrCenter
+        AnchorSideBottom.Control = pTabFrame
+        AnchorSideBottom.Side = asrBottom
+        Left = 218
+        Height = 24
+        Top = 50
+        Width = 25
+        AllowAllUp = True
+        BorderSpacing.Left = 2
+        Flat = True
+        GroupIndex = 1
+        OnClick = bItemIdleFrameColorClick
+      end
+      object bItemHotTrackFrameColor: TSpeedButton
+        AnchorSideLeft.Control = pItemHottrackFrame
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = pItemHottrackFrame
+        AnchorSideTop.Side = asrCenter
+        AnchorSideBottom.Control = pTabFrame
+        AnchorSideBottom.Side = asrBottom
+        Left = 361
+        Height = 24
+        Top = 50
+        Width = 25
+        AllowAllUp = True
+        BorderSpacing.Left = 2
+        Flat = True
+        GroupIndex = 1
+        OnClick = bItemHotTrackFrameColorClick
+      end
+      object bItemActiveFrameColor: TSpeedButton
+        AnchorSideLeft.Control = pItemActiveFrame
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = pItemActiveFrame
+        AnchorSideTop.Side = asrCenter
+        AnchorSideBottom.Control = pTabFrame
+        AnchorSideBottom.Side = asrBottom
+        Left = 504
+        Height = 24
+        Top = 50
+        Width = 25
+        AllowAllUp = True
+        BorderSpacing.Left = 2
+        BorderSpacing.Right = 16
+        Flat = True
+        GroupIndex = 1
+        OnClick = bItemActiveFrameColorClick
+      end
+      object bItemIdleGradientFromColor: TSpeedButton
+        AnchorSideLeft.Control = pItemIdleFrame
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = pItemHottrackGradientFrom
+        AnchorSideTop.Side = asrCenter
+        AnchorSideBottom.Control = pTabFrame
+        AnchorSideBottom.Side = asrBottom
+        Left = 218
+        Height = 24
+        Top = 81
+        Width = 25
+        AllowAllUp = True
+        BorderSpacing.Left = 2
+        Flat = True
+        GroupIndex = 1
+        OnClick = bItemIdleGradientFromColorClick
+      end
+      object bItemHotTrackGradientFromColor: TSpeedButton
+        AnchorSideLeft.Control = pItemHottrackFrame
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = pItemHottrackGradientFrom
+        AnchorSideTop.Side = asrCenter
+        AnchorSideBottom.Control = pTabFrame
+        AnchorSideBottom.Side = asrBottom
+        Left = 361
+        Height = 24
+        Top = 81
+        Width = 25
+        AllowAllUp = True
+        BorderSpacing.Left = 2
+        Flat = True
+        GroupIndex = 1
+        OnClick = bItemHotTrackGradientFromColorClick
+      end
+      object bItemActiveGradientFromColor: TSpeedButton
+        AnchorSideLeft.Control = pItemActiveFrame
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = pItemActiveGradientFrom
+        AnchorSideTop.Side = asrCenter
+        AnchorSideBottom.Control = pTabFrame
+        AnchorSideBottom.Side = asrBottom
+        Left = 504
+        Height = 24
+        Top = 81
+        Width = 25
+        AllowAllUp = True
+        BorderSpacing.Left = 2
+        BorderSpacing.Right = 16
+        Flat = True
+        GroupIndex = 1
+        OnClick = bItemActiveGradientFromColorClick
+      end
+      object bItemIdleGradientToColor: TSpeedButton
+        AnchorSideLeft.Control = pItemIdleFrame
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = pItemIdleGradientTo
+        AnchorSideTop.Side = asrCenter
+        AnchorSideBottom.Control = pTabFrame
+        AnchorSideBottom.Side = asrBottom
+        Left = 218
+        Height = 24
+        Top = 112
+        Width = 25
+        AllowAllUp = True
+        BorderSpacing.Left = 2
+        Flat = True
+        GroupIndex = 1
+        OnClick = bItemIdleGradientToColorClick
+      end
+      object bItemHotTrackGradientToColor: TSpeedButton
+        AnchorSideLeft.Control = pItemHottrackFrame
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = pItemHottrackGradientTo
+        AnchorSideTop.Side = asrCenter
+        AnchorSideBottom.Control = pTabFrame
+        AnchorSideBottom.Side = asrBottom
+        Left = 361
+        Height = 24
+        Top = 112
+        Width = 25
+        AllowAllUp = True
+        BorderSpacing.Left = 2
+        Flat = True
+        GroupIndex = 1
+        OnClick = bItemHotTrackGradientToColorClick
+      end
+      object bItemActiveGradientToColor: TSpeedButton
+        AnchorSideLeft.Control = pItemActiveFrame
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = pItemActiveGradientTo
+        AnchorSideTop.Side = asrCenter
+        AnchorSideBottom.Control = pTabFrame
+        AnchorSideBottom.Side = asrBottom
+        Left = 504
+        Height = 24
+        Top = 112
+        Width = 25
+        AllowAllUp = True
+        BorderSpacing.Left = 2
+        BorderSpacing.Right = 16
+        Flat = True
+        GroupIndex = 1
+        OnClick = bItemActiveGradientToColorClick
+      end
+      object bItemIdleCaptionColor: TSpeedButton
+        AnchorSideLeft.Control = pItemIdleFrame
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = pItemIdleCaptionColor
+        AnchorSideTop.Side = asrCenter
+        AnchorSideBottom.Control = pTabFrame
+        AnchorSideBottom.Side = asrBottom
+        Left = 218
+        Height = 24
+        Top = 172
+        Width = 25
+        AllowAllUp = True
+        BorderSpacing.Left = 2
+        Flat = True
+        GroupIndex = 1
+        OnClick = bItemIdleCaptionColorClick
+      end
+      object bItemIdleInnerDarkColor: TSpeedButton
+        AnchorSideLeft.Control = pItemIdleFrame
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = pItemIdleInnerDark
+        AnchorSideTop.Side = asrCenter
+        AnchorSideBottom.Control = pTabFrame
+        AnchorSideBottom.Side = asrBottom
+        Left = 218
+        Height = 24
+        Top = 203
+        Width = 25
+        AllowAllUp = True
+        BorderSpacing.Left = 2
+        Flat = True
+        GroupIndex = 1
+        OnClick = bItemIdleInnerDarkColorClick
+      end
+      object bItemIdleInnerLightColor: TSpeedButton
+        AnchorSideLeft.Control = pItemIdleFrame
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = pItemIdleInnerLight
+        AnchorSideTop.Side = asrCenter
+        AnchorSideBottom.Control = pTabFrame
+        AnchorSideBottom.Side = asrBottom
+        Left = 218
+        Height = 24
+        Top = 234
+        Width = 25
+        AllowAllUp = True
+        BorderSpacing.Left = 2
+        Flat = True
+        GroupIndex = 1
+        OnClick = bItemIdleInnerLightColorClick
+      end
+      object bItemHotTrackCaptionColor: TSpeedButton
+        AnchorSideLeft.Control = pItemHottrackFrame
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = pItemHottrackCaptionColor
+        AnchorSideTop.Side = asrCenter
+        AnchorSideBottom.Control = pTabFrame
+        AnchorSideBottom.Side = asrBottom
+        Left = 361
+        Height = 24
+        Top = 172
+        Width = 25
+        AllowAllUp = True
+        BorderSpacing.Left = 2
+        Flat = True
+        GroupIndex = 1
+        OnClick = bItemHotTrackCaptionColorClick
+      end
+      object bItemActiveCaptionColor: TSpeedButton
+        AnchorSideLeft.Control = pItemActiveFrame
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = pItemActiveCaptionColor
+        AnchorSideTop.Side = asrCenter
+        AnchorSideBottom.Control = pTabFrame
+        AnchorSideBottom.Side = asrBottom
+        Left = 504
+        Height = 24
+        Top = 172
+        Width = 25
+        AllowAllUp = True
+        BorderSpacing.Left = 2
+        BorderSpacing.Right = 16
+        Flat = True
+        GroupIndex = 1
+        OnClick = bItemActiveCaptionColorClick
+      end
+      object bItemHotTrackInnerDarkColor: TSpeedButton
+        AnchorSideLeft.Control = pItemHottrackFrame
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = pItemHottrackInnerDark
+        AnchorSideTop.Side = asrCenter
+        AnchorSideBottom.Control = pTabFrame
+        AnchorSideBottom.Side = asrBottom
+        Left = 361
+        Height = 24
+        Top = 203
+        Width = 25
+        AllowAllUp = True
+        BorderSpacing.Left = 2
+        Flat = True
+        GroupIndex = 1
+        OnClick = bItemHotTrackInnerDarkColorClick
+      end
+      object bItemActiveInnerDarkColor: TSpeedButton
+        AnchorSideLeft.Control = pItemActiveFrame
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = pItemActiveInnerDark
+        AnchorSideTop.Side = asrCenter
+        AnchorSideBottom.Control = pTabFrame
+        AnchorSideBottom.Side = asrBottom
+        Left = 504
+        Height = 24
+        Top = 203
+        Width = 25
+        AllowAllUp = True
+        BorderSpacing.Left = 2
+        BorderSpacing.Right = 16
+        Flat = True
+        GroupIndex = 1
+        OnClick = bItemActiveInnerDarkColorClick
+      end
+      object bItemHotTrackInnerLightColor: TSpeedButton
+        AnchorSideLeft.Control = pItemHottrackFrame
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = pItemActiveInnerLight
+        AnchorSideTop.Side = asrCenter
+        AnchorSideBottom.Control = pTabFrame
+        AnchorSideBottom.Side = asrBottom
+        Left = 361
+        Height = 24
+        Top = 234
+        Width = 25
+        AllowAllUp = True
+        BorderSpacing.Left = 2
+        Flat = True
+        GroupIndex = 1
+        OnClick = bItemHotTrackInnerLightColorClick
+      end
+      object bItemActiveInnerLightColor: TSpeedButton
+        AnchorSideLeft.Control = pItemActiveFrame
+        AnchorSideLeft.Side = asrBottom
+        AnchorSideTop.Control = pItemActiveInnerLight
+        AnchorSideTop.Side = asrCenter
+        AnchorSideBottom.Control = pTabFrame
+        AnchorSideBottom.Side = asrBottom
+        Left = 504
+        Height = 24
+        Top = 234
+        Width = 25
+        AllowAllUp = True
+        BorderSpacing.Left = 2
+        BorderSpacing.Right = 16
+        Flat = True
+        GroupIndex = 1
+        OnClick = bItemActiveInnerLightColorClick
+      end
     end
     object TabSheet4: TTabSheet
       Caption = 'Import / export'
@@ -1711,17 +2076,17 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
     Left = 8
     Height = 24
     Top = 508
-    Width = 520
+    Width = 546
     Align = alBottom
     BorderSpacing.Around = 8
     BevelOuter = bvNone
     ClientHeight = 24
-    ClientWidth = 520
+    ClientWidth = 546
     TabOrder = 2
     object bOK: TButton
       AnchorSideTop.Control = ButtonPanel
       AnchorSideRight.Control = bCancel
-      Left = 410
+      Left = 436
       Height = 25
       Top = 0
       Width = 42
@@ -1737,7 +2102,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
       AnchorSideTop.Control = ButtonPanel
       AnchorSideRight.Control = ButtonPanel
       AnchorSideRight.Side = asrBottom
-      Left = 458
+      Left = 484
       Height = 25
       Top = 0
       Width = 62

components/spktoolbar/designtime/spkte_AppearanceEditor.pas

@@ -17,12 +17,30 @@ type
 
   TfrmAppearanceEditWindow = class(TForm)
     bInactiveTabHeaderFontColor: TSpeedButton;
+    bItemActiveInnerDarkColor: TSpeedButton;
+    bItemActiveGradientFromColor: TSpeedButton;
+    bItemActiveGradientToColor: TSpeedButton;
+    bItemActiveCaptionColor: TSpeedButton;
+    bItemActiveInnerLightColor: TSpeedButton;
+    bItemHotTrackInnerDarkColor: TSpeedButton;
+    bItemHotTrackFrameColor: TSpeedButton;
+    bItemActiveFrameColor: TSpeedButton;
+    bItemHotTrackGradientFromColor: TSpeedButton;
+    bItemHotTrackGradientToColor: TSpeedButton;
+    bItemHotTrackCaptionColor: TSpeedButton;
+    bItemHotTrackInnerLightColor: TSpeedButton;
+    bItemIdleInnerDarkColor: TSpeedButton;
+    bItemIdleGradientFromColor: TSpeedButton;
+    bItemIdleGradientToColor: TSpeedButton;
+    bItemIdleCaptionColor: TSpeedButton;
+    bItemIdleInnerLightColor: TSpeedButton;
     bPaneBorderDarkColor: TSpeedButton;
     bPaneBorderLightColor: TSpeedButton;
     bPaneGradientFromColor: TSpeedButton;
     bPaneGradientToColor: TSpeedButton;
     bPaneCaptionBackgroundColor: TSpeedButton;
     bPaneCaptionFontColor: TSpeedButton;
+    bItemIdleFrameColor: TSpeedButton;
     bTabGradientFromColor: TSpeedButton;
     bTabGradientToColor: TSpeedButton;
     bActiveTabHeaderFontColor: TSpeedButton;
@@ -140,6 +158,24 @@ type
     procedure bExportClick(Sender: TObject);
     procedure bImportClick(Sender: TObject);
     procedure bInactiveTabHeaderFontColorClick(Sender: TObject);
+    procedure bItemActiveCaptionColorClick(Sender: TObject);
+    procedure bItemActiveFrameColorClick(Sender: TObject);
+    procedure bItemActiveGradientFromColorClick(Sender: TObject);
+    procedure bItemActiveGradientToColorClick(Sender: TObject);
+    procedure bItemActiveInnerDarkColorClick(Sender: TObject);
+    procedure bItemActiveInnerLightColorClick(Sender: TObject);
+    procedure bItemHotTrackCaptionColorClick(Sender: TObject);
+    procedure bItemHotTrackFrameColorClick(Sender: TObject);
+    procedure bItemHotTrackGradientFromColorClick(Sender: TObject);
+    procedure bItemHotTrackGradientToColorClick(Sender: TObject);
+    procedure bItemHotTrackInnerDarkColorClick(Sender: TObject);
+    procedure bItemHotTrackInnerLightColorClick(Sender: TObject);
+    procedure bItemIdleCaptionColorClick(Sender: TObject);
+    procedure bItemIdleFrameColorClick(Sender: TObject);
+    procedure bItemIdleGradientFromColorClick(Sender: TObject);
+    procedure bItemIdleGradientToColorClick(Sender: TObject);
+    procedure bItemIdleInnerDarkColorClick(Sender: TObject);
+    procedure bItemIdleInnerLightColorClick(Sender: TObject);
     procedure bPaneBorderDarkColorClick(Sender: TObject);
     procedure bPaneBorderLightColorClick(Sender: TObject);
     procedure bPaneCaptionBackgroundColorClick(Sender: TObject);
@@ -390,6 +426,186 @@ begin
   (Sender as TSpeedButton).Down := false;
 end;
 
+procedure TfrmAppearanceEditWindow.bItemActiveCaptionColorClick(Sender: TObject
+  );
+begin
+  (Sender as TSpeedButton).Down := true;
+  if PickColor(pItemActiveCaptionColor) then begin
+    tbPreview.Appearance.Element.ActiveCaptionColor := pItemActiveCaptionColor.Color;
+  end;
+  (Sender as TSpeedButton).Down := false;
+end;
+
+procedure TfrmAppearanceEditWindow.bItemActiveFrameColorClick(Sender: TObject);
+begin
+  (Sender as TSpeedButton).Down := true;
+  if PickColor(pItemActiveFrame) then begin
+    tbPreview.Appearance.Element.ActiveFrameColor := pItemactiveFrame.Color;
+  end;
+  (Sender as TSpeedButton).Down := false;
+end;
+
+procedure TfrmAppearanceEditWindow.bItemActiveGradientFromColorClick(
+  Sender: TObject);
+begin
+  (Sender as TSpeedButton).Down := true;
+  if PickColor(pItemActiveGradientFrom) then
+    tbPreview.Appearance.Element.ActiveGradientFromColor := pItemActiveGradientFrom.Color;
+  (Sender as TSpeedButton).Down := false;
+end;
+
+procedure TfrmAppearanceEditWindow.bItemActiveGradientToColorClick(
+  Sender: TObject);
+begin
+  (Sender as TSpeedButton).Down := true;
+  if PickColor(pItemActiveGradientTo) then
+    tbPreview.Appearance.Element.ActiveGradientToColor := pItemActiveGradientTo.Color;
+  (Sender as TSpeedButton).Down := false;
+end;
+
+procedure TfrmAppearanceEditWindow.bItemActiveInnerDarkColorClick(
+  Sender: TObject);
+begin
+  (Sender as TSpeedButton).Down := true;
+  if PickColor(pItemActiveInnerDark) then
+    tbPreview.Appearance.Element.ActiveInnerDarkColor := pItemActiveInnerDark.Color;
+  (Sender as TSpeedButton).Down := false;
+end;
+
+procedure TfrmAppearanceEditWindow.bItemActiveInnerLightColorClick(
+  Sender: TObject);
+begin
+  (Sender as TSpeedButton).Down := true;
+  if PickColor(pItemActiveInnerLight) then
+    tbPreview.Appearance.Element.ActiveInnerLightColor := pItemActiveInnerLight.Color;
+  (Sender as TSpeedButton).Down := false;
+end;
+
+procedure TfrmAppearanceEditWindow.bItemHotTrackCaptionColorClick(
+  Sender: TObject);
+begin
+  (Sender as TSpeedButton).Down := true;
+  if PickColor(pItemHotTrackCaptionColor) then begin
+    tbPreview.Appearance.Element.HotTrackCaptionColor := pItemHotTrackCaptionColor.Color;
+  end;
+  (Sender as TSpeedButton).Down := false;
+end;
+
+procedure TfrmAppearanceEditWindow.bItemHotTrackFrameColorClick(Sender: TObject
+  );
+begin
+  (Sender as TSpeedButton).Down := true;
+  if PickColor(pItemHotTrackFrame) then begin
+    tbPreview.Appearance.Element.HotTrackFrameColor := pItemHotTrackFrame.Color;
+  end;
+  (Sender as TSpeedButton).Down := false;
+end;
+
+procedure TfrmAppearanceEditWindow.bItemHotTrackGradientFromColorClick(
+  Sender: TObject);
+begin
+  (Sender as TSpeedButton).Down := true;
+  if PickColor(pItemHotTrackGradientFrom) then
+    tbPreview.Appearance.Element.HotTrackGradientFromColor := pItemHotTrackGradientFrom.Color;
+  (Sender as TSpeedButton).Down := false;
+end;
+
+procedure TfrmAppearanceEditWindow.bItemHotTrackGradientToColorClick(
+  Sender: TObject);
+begin
+  (Sender as TSpeedButton).Down := true;
+  if PickColor(pItemHotTrackGradientTo) then
+    tbPreview.Appearance.Element.HotTrackGradientToColor := pItemHotTrackGradientTo.Color;
+  (Sender as TSpeedButton).Down := false;
+end;
+
+procedure TfrmAppearanceEditWindow.bItemHotTrackInnerDarkColorClick(
+  Sender: TObject);
+begin
+  (Sender as TSpeedButton).Down := true;
+  if PickColor(pItemHotTrackInnerDark) then
+    tbPreview.Appearance.Element.HotTrackInnerDarkColor := pItemHotTrackInnerDark.Color;
+  (Sender as TSpeedButton).Down := false;
+end;
+
+procedure TfrmAppearanceEditWindow.bItemHotTrackInnerLightColorClick(
+  Sender: TObject);
+begin
+  (Sender as TSpeedButton).Down := true;
+  if PickColor(pItemHotTrackInnerLight) then
+    tbPreview.Appearance.Element.HotTrackInnerLightColor := pItemHotTrackInnerLight.Color;
+  (Sender as TSpeedButton).Down := false;
+end;
+
+procedure TfrmAppearanceEditWindow.bItemIdleCaptionColorClick(Sender: TObject);
+begin
+  (Sender as TSpeedButton).Down := true;
+  if PickColor(pItemIdleFrame) then begin
+    tbPreview.Appearance.Element.IdleCaptionColor := pItemIdleCaptionColor.Color;
+    if cbLinkTab.checked then
+      SetLinkedFrameColor(pItemIdleCaptionColor.Color)
+  end;
+  (Sender as TSpeedButton).Down := false;
+end;
+
+procedure TfrmAppearanceEditWindow.bItemIdleFrameColorClick(Sender: TObject);
+begin
+  (Sender as TSpeedButton).Down := true;
+  if PickColor(pItemIdleFrame) then begin
+    tbPreview.Appearance.Element.IdleFrameColor := pItemIdleFrame.Color;
+    if cbLinkTab.checked then
+      SetLinkedFrameColor(pItemIdleFrame.Color)
+  end;
+  (Sender as TSpeedButton).Down := false;
+end;
+
+procedure TfrmAppearanceEditWindow.bItemIdleGradientFromColorClick(Sender: TObject);
+begin
+  (Sender as TSpeedButton).Down := true;
+  if PickColor(pItemIdleGradientFrom) then begin
+    tbPreview.Appearance.Element.IdleGradientFromColor := pItemIdleGradientFrom.Color;
+    if cbLinkTab.checked then
+      SetLinkedFrameColor(pItemIdleGradientFrom.Color)
+  end;
+  (Sender as TSpeedButton).Down := false;
+end;
+
+procedure TfrmAppearanceEditWindow.bItemIdleGradientToColorClick(Sender: TObject
+  );
+begin
+  (Sender as TSpeedButton).Down := true;
+  if PickColor(pItemIdleGradientTo) then begin
+    tbPreview.Appearance.Element.IdleGradientToColor := pItemIdleGradientTo.Color;
+    if cbLinkTab.checked then
+      SetLinkedFrameColor(pItemIdleGradientTo.Color)
+  end;
+  (Sender as TSpeedButton).Down := false;
+end;
+
+procedure TfrmAppearanceEditWindow.bItemIdleInnerDarkColorClick(Sender: TObject
+  );
+begin
+  (Sender as TSpeedButton).Down := true;
+  if PickColor(pItemIdleInnerDark) then begin
+    tbPreview.Appearance.Element.IdleInnerDarkColor := pItemIdleInnerDark.Color;
+    if cbLinkTab.checked then
+      SetLinkedFrameColor(pItemIdleInnerDark.Color)
+  end;
+  (Sender as TSpeedButton).Down := false;
+end;
+
+procedure TfrmAppearanceEditWindow.bItemIdleInnerLightColorClick(Sender: TObject
+  );
+begin
+  (Sender as TSpeedButton).Down := true;
+  if PickColor(pItemIdleInnerLight) then begin
+    tbPreview.Appearance.Element.IdleInnerLightColor := pItemIdleInnerLight.Color;
+    if cbLinkPane.Checked then
+      SetLinkedFrameColor(pItemIdleInnerLight.Color)
+  end;
+  (Sender as TSpeedButton).Down := false;
+end;
+
 procedure TfrmAppearanceEditWindow.bPaneBorderDarkColorClick(Sender: TObject);
 begin
   (Sender as TSpeedButton).Down := true;
@@ -552,6 +768,27 @@ begin
   SmallImages.GetBitmap(0, bPaneCaptionBackgroundColor.Glyph);
   SmallImages.GetBitmap(0, bPaneCaptionFontColor.Glyph);
 
+  SmallImages.GetBitmap(0, bItemIdleCaptionColor.Glyph);
+  SmallImages.GetBitmap(0, bItemIdleFrameColor.Glyph);
+  SmallImages.GetBitmap(0, bItemIdleGradientFromColor.Glyph);
+  SmallImages.GetBitmap(0, bItemIdleGradientToColor.Glyph);
+  SmallImages.GetBitmap(0, bItemIdleInnerDarkColor.Glyph);
+  SmallImages.GetBitmap(0, bItemIdleInnerLightColor.Glyph);
+
+  SmallImages.GetBitmap(0, bItemHotTrackCaptionColor.Glyph);
+  SmallImages.GetBitmap(0, bItemHotTrackFrameColor.Glyph);
+  SmallImages.GetBitmap(0, bItemHotTrackGradientFromColor.Glyph);
+  SmallImages.GetBitmap(0, bItemHotTrackGradientToColor.Glyph);
+  SmallImages.GetBitmap(0, bItemHotTrackInnerDarkColor.Glyph);
+  SmallImages.GetBitmap(0, bItemHotTrackInnerLightColor.Glyph);
+
+  SmallImages.GetBitmap(0, bItemActiveCaptionColor.Glyph);
+  SmallImages.GetBitmap(0, bItemActiveFrameColor.Glyph);
+  SmallImages.GetBitmap(0, bItemActiveGradientFromColor.Glyph);
+  SmallImages.GetBitmap(0, bItemActiveGradientToColor.Glyph);
+  SmallImages.GetBitmap(0, bItemActiveInnerDarkColor.Glyph);
+  SmallImages.GetBitmap(0, bItemActiveInnerLightColor.Glyph);
+
   PageControl1.PageIndex := CurrPageIndex;
 end;