SpkToolbar: Support SpkPopupMenu also by MenuButton. Integrate SpkPopupMenu into the "actions" and "runtime" demo projects.

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

components/spktoolbar/designtime/spkte_AppearanceEditor.lfm

@@ -2,11 +2,11 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
   Left = 933
   Height = 546
   Top = 211
-  Width = 723
+  Width = 715
   AutoSize = True
   Caption = 'Toolbar appearance editor'
   ClientHeight = 546
-  ClientWidth = 723
+  ClientWidth = 715
   Color = clBtnFace
   Font.Color = clWindowText
   OnActivate = FormActivate
@@ -20,19 +20,19 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
     Left = 0
     Height = 133
     Top = 0
-    Width = 723
+    Width = 715
     Align = alTop
     AutoSize = True
     Caption = ' Preview '
     ClientHeight = 113
-    ClientWidth = 719
+    ClientWidth = 711
     ParentBackground = False
     TabOrder = 0
     object tbPreview: TSpkToolbar
       Left = 0
       Height = 113
       Top = 0
-      Width = 719
+      Width = 711
       Color = clBtnFace
       Appearance.Tab.TabHeaderFont.Color = 9126421
       Appearance.Tab.TabHeaderFont.Height = -13
@@ -399,7 +399,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
     Left = 0
     Height = 372
     Top = 133
-    Width = 723
+    Width = 715
     ActivePage = pgPopup
     Align = alClient
     TabIndex = 4
@@ -407,7 +407,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
     object TabSheet6: TTabSheet
       Caption = 'Menu Button'
       ClientHeight = 344
-      ClientWidth = 715
+      ClientWidth = 707
       object pMenuButtonIdleFrame: TPanel
         AnchorSideLeft.Control = lblMenuButtonFont
         AnchorSideLeft.Side = asrBottom
@@ -1146,7 +1146,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         Left = 6
         Height = 15
         Top = 274
-        Width = 703
+        Width = 695
         Anchors = [akTop, akLeft, akRight]
         BorderSpacing.Left = 6
         BorderSpacing.Top = 32
@@ -1159,7 +1159,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
     object TabSheet1: TTabSheet
       Caption = 'Tab'
       ClientHeight = 344
-      ClientWidth = 715
+      ClientWidth = 707
       object sTabRectangle: TShape
         AnchorSideLeft.Control = lblTabFrame
         AnchorSideLeft.Side = asrBottom
@@ -1599,7 +1599,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
     object TabSheet2: TTabSheet
       Caption = 'Pane'
       ClientHeight = 344
-      ClientWidth = 715
+      ClientWidth = 707
       ImageIndex = 1
       object lblPaneBorderDark: TLabel
         AnchorSideTop.Control = pPaneBorderDark
@@ -2124,7 +2124,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
     object TabSheet3: TTabSheet
       Caption = 'Item'
       ClientHeight = 344
-      ClientWidth = 715
+      ClientWidth = 707
       ImageIndex = 2
       object sItemRectangle: TShape
         AnchorSideLeft.Control = lblItemIdleFrame
@@ -3177,7 +3177,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
     object pgPopup: TTabSheet
       Caption = 'Dropdown Menu'
       ClientHeight = 344
-      ClientWidth = 715
+      ClientWidth = 707
       object lblPopupIdle: TLabel
         AnchorSideLeft.Control = bvPopupIdleFrame
         AnchorSideLeft.Side = asrCenter
@@ -3295,7 +3295,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideRight.Side = asrBottom
         Left = 60
         Height = 15
-        Top = 224
+        Top = 255
         Width = 62
         Anchors = [akTop, akRight]
         Caption = 'Divider Line'
@@ -3400,11 +3400,11 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
       object pPopupDividerLineColor: TPanel
         AnchorSideLeft.Control = lblPopupGradientTo
         AnchorSideLeft.Side = asrBottom
-        AnchorSideTop.Control = pPopupDisabledCaptionColor
+        AnchorSideTop.Control = pPopupFont
         AnchorSideTop.Side = asrBottom
         Left = 138
         Height = 25
-        Top = 219
+        Top = 250
         Width = 100
         BorderSpacing.Left = 16
         BorderSpacing.Top = 6
@@ -3431,11 +3431,11 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
       object pPopupFont: TPanel
         AnchorSideLeft.Control = lblPopupGradientTo
         AnchorSideLeft.Side = asrBottom
-        AnchorSideTop.Control = pPopupDividerLineColor
+        AnchorSideTop.Control = pPopupDisabledCaptionColor
         AnchorSideTop.Side = asrBottom
         Left = 138
         Height = 25
-        Top = 250
+        Top = 219
         Width = 100
         BorderSpacing.Left = 16
         BorderSpacing.Top = 6
@@ -3453,7 +3453,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideRight.Side = asrBottom
         Left = 71
         Height = 15
-        Top = 255
+        Top = 224
         Width = 51
         Anchors = [akTop, akRight]
         Caption = 'Item Font'
@@ -3535,7 +3535,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideBottom.Side = asrBottom
         Left = 240
         Height = 24
-        Top = 219
+        Top = 250
         Width = 25
         AllowAllUp = True
         BorderSpacing.Left = 2
@@ -3950,7 +3950,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
     object TabSheet4: TTabSheet
       Caption = 'Import / Export'
       ClientHeight = 344
-      ClientWidth = 715
+      ClientWidth = 707
       ImageIndex = 3
       object bImport: TButton
         AnchorSideLeft.Control = bExportToXML
@@ -3993,7 +3993,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         Left = 4
         Height = 307
         Top = 33
-        Width = 707
+        Width = 699
         Anchors = [akTop, akLeft, akRight, akBottom]
         BorderSpacing.Left = 4
         BorderSpacing.Top = 4
@@ -4024,7 +4024,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
         AnchorSideTop.Control = TabSheet4
         AnchorSideRight.Control = TabSheet4
         AnchorSideRight.Side = asrBottom
-        Left = 657
+        Left = 649
         Height = 25
         Top = 4
         Width = 54
@@ -4040,7 +4040,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
     object TabSheet5: TTabSheet
       Caption = 'Tools'
       ClientHeight = 344
-      ClientWidth = 715
+      ClientWidth = 707
       ImageIndex = 4
       object Label17: TLabel
         AnchorSideLeft.Control = TabSheet5
@@ -4079,7 +4079,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
     Left = 8
     Height = 33
     Top = 509
-    Width = 706
+    Width = 698
     Align = alBottom
     AutoSize = True
     BorderSpacing.Left = 8
@@ -4088,7 +4088,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
     BorderSpacing.Bottom = 4
     BevelOuter = bvNone
     ClientHeight = 33
-    ClientWidth = 706
+    ClientWidth = 698
     Constraints.MinWidth = 75
     ParentBackground = False
     TabOrder = 2
@@ -4097,7 +4097,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
       AnchorSideRight.Control = bCancel
       AnchorSideBottom.Control = bCancel
       AnchorSideBottom.Side = asrBottom
-      Left = 550
+      Left = 542
       Height = 25
       Top = 4
       Width = 75
@@ -4114,7 +4114,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
       AnchorSideTop.Side = asrCenter
       AnchorSideRight.Control = ButtonPanel
       AnchorSideRight.Side = asrBottom
-      Left = 631
+      Left = 623
       Height = 25
       Top = 4
       Width = 75
@@ -4179,8 +4179,8 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
       'ColorS=F0FBFF'
       'ColorT=A4A0A0'
     )
-    Left = 280
-    Top = 504
+    Left = 400
+    Top = 416
   end
   object fdFontDialog: TFontDialog
     Font.Color = clWindowText
@@ -4188,8 +4188,8 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
     Font.Name = 'Tahoma'
     MinFontSize = 0
     MaxFontSize = 0
-    Left = 376
-    Top = 504
+    Left = 496
+    Top = 416
   end
   object Images_200: TImageList
     Height = 32