pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

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

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5352 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-11-15 16:02:13 +00:00
parent ab3f9982c5
commit 6868957c04
2 changed files with 662 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

485
components/spktoolbar/designtime/spkte_AppearanceEditor.lfm
View File

@ -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
ActivePage = TabSheet2
Width = 562
ActivePage = TabSheet1
Align = alClient
TabIndex = 1
TabIndex = 0
TabOrder = 1
object TabSheet1: TTabSheet
Caption = 'Tab'
ClientHeight = 320
ClientWidth = 528
ClientHeight = 340
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
ClientWidth = 528
ClientHeight = 340
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
BorderSpacing.Left = 16
Width = 100
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
BorderSpacing.Left = 16
BorderSpacing.Right = 16
Width = 100
BorderSpacing.Left = 43
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

237
components/spktoolbar/designtime/spkte_AppearanceEditor.pas
View File

@ -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;