diff --git a/components/spktoolbar/designtime/spkte_AppearanceEditor.lfm b/components/spktoolbar/designtime/spkte_AppearanceEditor.lfm index 7d4489396..638b8f5ed 100644 --- a/components/spktoolbar/designtime/spkte_AppearanceEditor.lfm +++ b/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 - 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 diff --git a/components/spktoolbar/designtime/spkte_AppearanceEditor.pas b/components/spktoolbar/designtime/spkte_AppearanceEditor.pas index ca19adcf4..5ad378d76 100644 --- a/components/spktoolbar/designtime/spkte_AppearanceEditor.pas +++ b/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;