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

SpkToolbar: Make Appearance Editor DPI-aware.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5355 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-11-16 22:44:40 +00:00
parent 9e82f074d9
commit 1595dc270d
4 changed files with 301 additions and 129 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/spktoolbar/SpkToolbar/spkt_Appearance.pas
View File

@ -322,7 +322,7 @@ end;
procedure TSpkTabAppearance.Reset; procedure TSpkTabAppearance.Reset;
begin begin
SetDefaultFont(FTabHeaderFont); SetDefaultFont(FTabHeaderFont);
FTabHeaderFont.Size := FTabHeaderFont.Size + 1; FTabHeaderFont.Size := FTabHeaderFont.Size;
FBorderColor := rgb(141, 178, 227); FBorderColor := rgb(141, 178, 227);
FGradientFromColor := rgb(222, 232, 245); FGradientFromColor := rgb(222, 232, 245);
FGradientToColor := rgb(199, 216, 237); FGradientToColor := rgb(199, 216, 237);
@ -772,7 +772,7 @@ end;
procedure TSpkElementAppearance.Reset; procedure TSpkElementAppearance.Reset;
begin begin
SetDefaultFont(FCaptionFont); SetDefaultFont(FCaptionFont);
FCaptionFont.Size := FCaptionFont.Size - 1; FCaptionFont.Size := FCaptionFont.Size;
FIdleFrameColor := rgb(155, 183, 224); FIdleFrameColor := rgb(155, 183, 224);
FIdleGradientFromColor := rgb(200, 219, 238); FIdleGradientFromColor := rgb(200, 219, 238);
FIdleGradientToColor := rgb(188, 208, 233); FIdleGradientToColor := rgb(188, 208, 233);

4
components/spktoolbar/SpkToolbar/spkt_Buttons.pas
View File

@ -946,7 +946,6 @@ begin
// Text // Text
ABuffer.Canvas.Font.Assign(FAppearance.Element.CaptionFont); ABuffer.Canvas.Font.Assign(FAppearance.Element.CaptionFont);
ABuffer.Canvas.Font.Height := SpkScaleY(ABuffer.Canvas.Font.Height, 96);
ABuffer.Canvas.Font.Color := fontColor; ABuffer.Canvas.Font.Color := fontColor;
if FButtonKind = bkButton then if FButtonKind = bkButton then
@ -1429,8 +1428,7 @@ begin
if FShowCaption then if FShowCaption then
begin begin
ABuffer.Canvas.Font.Assign(FAppearance.Element.CaptionFont); ABuffer.Canvas.Font.Assign(FAppearance.Element.CaptionFont);
ABuffer.Canvas.Font.Height := SpkScaleY(ABuffer.Canvas.Font.Height, 96); ABuffer.Canvas.Font.Color := fontColor;
if (FGroupBehaviour in [gbContinuesGroup, gbEndsGroup]) then if (FGroupBehaviour in [gbContinuesGroup, gbEndsGroup]) then
x := FButtonRect.Left + SmallButtonHalfBorderWidth x := FButtonRect.Left + SmallButtonHalfBorderWidth
else else

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

@ -1,14 +1,14 @@
object frmAppearanceEditWindow: TfrmAppearanceEditWindow object frmAppearanceEditWindow: TfrmAppearanceEditWindow
Left = 617 Left = 617
Height = 561 Height = 544
Top = 138 Top = 138
Width = 562 Width = 558
Caption = 'Toolbar appearance editor' Caption = 'Toolbar appearance editor'
ClientHeight = 561 ClientHeight = 544
ClientWidth = 562 ClientWidth = 558
Color = clBtnFace Color = clBtnFace
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 OnActivate = FormActivate
OnCloseQuery = FormCloseQuery OnCloseQuery = FormCloseQuery
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
@ -18,17 +18,17 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
Left = 0 Left = 0
Height = 132 Height = 132
Top = 0 Top = 0
Width = 562 Width = 558
Align = alTop Align = alTop
AutoSize = True AutoSize = True
Caption = ' Preview ' Caption = ' Preview '
ClientHeight = 112 ClientHeight = 112
ClientWidth = 558 ClientWidth = 554
TabOrder = 0 TabOrder = 0
object tbPreview: TSpkToolbar object tbPreview: TSpkToolbar
Left = 0 Left = 0
Top = 0 Top = 0
Width = 558 Width = 554
Color = clBtnFace Color = clBtnFace
Appearance.Tab.TabHeaderFont.Color = 9126421 Appearance.Tab.TabHeaderFont.Color = 9126421
Appearance.Tab.TabHeaderFont.Height = -13 Appearance.Tab.TabHeaderFont.Height = -13
@ -71,6 +71,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
Appearance.Element.ActiveInnerLightColor = 961020 Appearance.Element.ActiveInnerLightColor = 961020
Appearance.Element.ActiveInnerDarkColor = 961020 Appearance.Element.ActiveInnerDarkColor = 961020
Appearance.Element.ActiveCaptionColor = 8405614 Appearance.Element.ActiveCaptionColor = 8405614
Appearance.Element.Style = esRounded
TabIndex = 0 TabIndex = 0
Images = SmallImages Images = SmallImages
LargeImages = LargeImages LargeImages = LargeImages
@ -120,6 +121,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
CustomAppearance.Element.ActiveInnerLightColor = 961020 CustomAppearance.Element.ActiveInnerLightColor = 961020
CustomAppearance.Element.ActiveInnerDarkColor = 961020 CustomAppearance.Element.ActiveInnerDarkColor = 961020
CustomAppearance.Element.ActiveCaptionColor = 8405614 CustomAppearance.Element.ActiveCaptionColor = 8405614
CustomAppearance.Element.Style = esRounded
Caption = 'Sample toolbar' Caption = 'Sample toolbar'
OverrideAppearance = False OverrideAppearance = False
Visible = True Visible = True
@ -309,6 +311,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
CustomAppearance.Element.ActiveInnerLightColor = 961020 CustomAppearance.Element.ActiveInnerLightColor = 961020
CustomAppearance.Element.ActiveInnerDarkColor = 961020 CustomAppearance.Element.ActiveInnerDarkColor = 961020
CustomAppearance.Element.ActiveCaptionColor = 8405614 CustomAppearance.Element.ActiveCaptionColor = 8405614
CustomAppearance.Element.Style = esRounded
Caption = 'Another tab' Caption = 'Another tab'
OverrideAppearance = False OverrideAppearance = False
Visible = True Visible = True
@ -318,26 +321,31 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
end end
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 389 Height = 371
Top = 132 Top = 132
Width = 562 Width = 558
ActivePage = TabSheet3 ActivePage = TabSheet3
Align = alClient Align = alClient
TabIndex = 2 TabIndex = 2
TabOrder = 1 TabOrder = 1
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Tab' Caption = 'Tab'
ClientHeight = 340 ClientHeight = 360
ClientWidth = 554 ClientWidth = 579
object sTabRectangle: TShape object sTabRectangle: TShape
AnchorSideLeft.Control = LblInactiveTabHeaderFontColor AnchorSideLeft.Control = LblInactiveTabHeaderFontColor
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbLinkTab AnchorSideTop.Control = cbLinkTab
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TabHSpacer
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TabVSpacer
AnchorSideBottom.Side = asrBottom
Left = 179 Left = 179
Height = 136 Height = 133
Top = 27 Top = 27
Width = 142 Width = 141
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 12 BorderSpacing.Left = 12
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Visible = False Visible = False
@ -401,7 +409,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 84 Left = 84
Height = 15 Height = 15
Top = 239 Top = 235
Width = 83 Width = 83
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
Caption = 'Tab header font' Caption = 'Tab header font'
@ -491,7 +499,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 187 Left = 187
Height = 25 Height = 25
Top = 234 Top = 230
Width = 127 Width = 127
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -509,10 +517,10 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 187 Left = 187
Height = 25 Height = 25
Top = 172 Top = 168
Width = 100 Width = 100
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 20 BorderSpacing.Top = 16
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Caption = 'Color' Caption = 'Color'
@ -540,7 +548,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 20 Left = 20
Height = 15 Height = 15
Top = 177 Top = 173
Width = 147 Width = 147
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
Caption = 'Active tab header font color' Caption = 'Active tab header font color'
@ -552,7 +560,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 12 Left = 12
Height = 15 Height = 15
Top = 208 Top = 204
Width = 155 Width = 155
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Caption = 'Inactive tab header font color' Caption = 'Inactive tab header font color'
@ -566,7 +574,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 187 Left = 187
Height = 25 Height = 25
Top = 203 Top = 199
Width = 100 Width = 100
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -639,7 +647,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 289 Left = 289
Height = 25 Height = 25
Top = 172 Top = 168
Width = 25 Width = 25
AllowAllUp = True AllowAllUp = True
BorderSpacing.Left = 2 BorderSpacing.Left = 2
@ -656,7 +664,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 289 Left = 289
Height = 25 Height = 25
Top = 203 Top = 199
Width = 25 Width = 25
AllowAllUp = True AllowAllUp = True
BorderSpacing.Left = 2 BorderSpacing.Left = 2
@ -664,16 +672,38 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
GroupIndex = 1 GroupIndex = 1
OnClick = bInactiveTabHeaderFontColorClick OnClick = bInactiveTabHeaderFontColorClick
end end
object TabVSpacer: TBevel
AnchorSideTop.Control = cbTabGradientKind
AnchorSideTop.Side = asrBottom
Left = 192
Height = 8
Top = 152
Width = 50
Shape = bsSpacer
end
object TabHSpacer: TBevel
AnchorSideLeft.Control = bTabFrameColor
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pTabFrame
AnchorSideBottom.Control = cbTabGradientKind
AnchorSideBottom.Side = asrBottom
Left = 314
Height = 116
Top = 36
Width = 6
Anchors = [akTop, akLeft, akBottom]
Shape = bsSpacer
end
end end
object TabSheet2: TTabSheet object TabSheet2: TTabSheet
Caption = 'Pane' Caption = 'Pane'
ClientHeight = 340 ClientHeight = 360
ClientWidth = 554 ClientWidth = 579
ImageIndex = 1 ImageIndex = 1
object Label8: TLabel object Label8: TLabel
AnchorSideTop.Control = pPaneBorderDark AnchorSideTop.Control = pPaneBorderDark
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LblCaptionBackground AnchorSideRight.Control = LblPaneCaptionBackground
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 60 Left = 60
Height = 15 Height = 15
@ -686,7 +716,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
object Label21: TLabel object Label21: TLabel
AnchorSideTop.Control = pPaneBorderLight AnchorSideTop.Control = pPaneBorderLight
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LblCaptionBackground AnchorSideRight.Control = LblPaneCaptionBackground
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 59 Left = 59
Height = 15 Height = 15
@ -699,7 +729,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
object Label9: TLabel object Label9: TLabel
AnchorSideTop.Control = pPaneGradientFrom AnchorSideTop.Control = pPaneGradientFrom
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LblCaptionBackground AnchorSideRight.Control = LblPaneCaptionBackground
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 47 Left = 47
Height = 15 Height = 15
@ -712,7 +742,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
object Label10: TLabel object Label10: TLabel
AnchorSideTop.Control = pPaneGradientTo AnchorSideTop.Control = pPaneGradientTo
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LblCaptionBackground AnchorSideRight.Control = LblPaneCaptionBackground
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 62 Left = 62
Height = 15 Height = 15
@ -725,7 +755,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
object Label11: TLabel object Label11: TLabel
AnchorSideTop.Control = cbPaneGradientKind AnchorSideTop.Control = cbPaneGradientKind
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LblCaptionBackground AnchorSideRight.Control = LblPaneCaptionBackground
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 50 Left = 50
Height = 15 Height = 15
@ -735,13 +765,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
Caption = 'Gradient kind' Caption = 'Gradient kind'
ParentColor = False ParentColor = False
end end
object LblCaptionBackground: TLabel object LblPaneCaptionBackground: TLabel
AnchorSideLeft.Control = TabSheet2 AnchorSideLeft.Control = TabSheet2
AnchorSideTop.Control = pPaneCaptionBackground AnchorSideTop.Control = pPaneCaptionBackground
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 12 Left = 12
Height = 15 Height = 15
Top = 208 Top = 204
Width = 109 Width = 109
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Caption = 'Caption background' Caption = 'Caption background'
@ -750,27 +780,32 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
object Label13: TLabel object Label13: TLabel
AnchorSideTop.Control = pPaneCaptionFont AnchorSideTop.Control = pPaneCaptionFont
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LblCaptionBackground AnchorSideRight.Control = LblPaneCaptionBackground
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 27 Left = 27
Height = 15 Height = 15
Top = 270 Top = 266
Width = 94 Width = 94
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
Caption = 'Pane caption font' Caption = 'Pane caption font'
ParentColor = False ParentColor = False
end end
object sPaneRectangle: TShape object sPaneRectangle: TShape
AnchorSideLeft.Control = LblCaptionBackground AnchorSideLeft.Control = LblPaneCaptionBackground
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbLinkPane AnchorSideTop.Control = cbLinkPane
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = PaneHSpacer
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = bPaneCaptionBackgroundColor
Left = 133 Left = 133
Height = 165 Height = 164
Top = 27 Top = 27
Width = 142 Width = 143
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 12 BorderSpacing.Left = 12
BorderSpacing.Top = 4 BorderSpacing.Top = 4
BorderSpacing.Bottom = 8
Visible = False Visible = False
end end
object pPaneBorderDark: TPanel object pPaneBorderDark: TPanel
@ -875,10 +910,10 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 141 Left = 141
Height = 25 Height = 25
Top = 203 Top = 199
Width = 100 Width = 100
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 20 BorderSpacing.Top = 16
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Caption = 'Color' Caption = 'Color'
@ -886,14 +921,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
OnClick = pPaneCaptionBackgroundClick OnClick = pPaneCaptionBackgroundClick
end end
object pPaneCaptionFont: TPanel object pPaneCaptionFont: TPanel
AnchorSideLeft.Control = pPaneCaptionBackground AnchorSideLeft.Control = pPaneCaptionFontColor
AnchorSideTop.Control = pPaneCaptionFontColor AnchorSideTop.Control = pPaneCaptionFontColor
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = bPaneCaptionFontColor AnchorSideRight.Control = bPaneCaptionFontColor
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 141 Left = 141
Height = 25 Height = 25
Top = 265 Top = 261
Width = 127 Width = 127
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -911,7 +946,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 141 Left = 141
Height = 25 Height = 25
Top = 234 Top = 230
Width = 100 Width = 100
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -922,7 +957,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
OnClick = pPaneCaptionFontColorClick OnClick = pPaneCaptionFontColorClick
end end
object cbLinkPane: TCheckBox object cbLinkPane: TCheckBox
AnchorSideLeft.Control = LblCaptionBackground AnchorSideLeft.Control = LblPaneCaptionBackground
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = TabSheet2 AnchorSideTop.Control = TabSheet2
Left = 141 Left = 141
@ -943,7 +978,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 141 Left = 141
Height = 23 Height = 23
Top = 296 Top = 292
Width = 127 Width = 127
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -965,11 +1000,11 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
object Label12: TLabel object Label12: TLabel
AnchorSideTop.Control = cbPaneStyle AnchorSideTop.Control = cbPaneStyle
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LblCaptionBackground AnchorSideRight.Control = LblPaneCaptionBackground
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 68 Left = 68
Height = 15 Height = 15
Top = 300 Top = 296
Width = 53 Width = 53
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
Caption = 'Pane style' Caption = 'Pane style'
@ -1048,11 +1083,11 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideLeft.Control = TabSheet2 AnchorSideLeft.Control = TabSheet2
AnchorSideTop.Control = pPaneCaptionFontColor AnchorSideTop.Control = pPaneCaptionFontColor
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LblCaptionBackground AnchorSideRight.Control = LblPaneCaptionBackground
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 49 Left = 49
Height = 15 Height = 15
Top = 239 Top = 235
Width = 72 Width = 72
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Left = 12 BorderSpacing.Left = 12
@ -1068,7 +1103,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 243 Left = 243
Height = 25 Height = 25
Top = 203 Top = 199
Width = 25 Width = 25
AllowAllUp = True AllowAllUp = True
BorderSpacing.Left = 2 BorderSpacing.Left = 2
@ -1085,7 +1120,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 243 Left = 243
Height = 25 Height = 25
Top = 234 Top = 230
Width = 25 Width = 25
AllowAllUp = True AllowAllUp = True
BorderSpacing.Left = 2 BorderSpacing.Left = 2
@ -1093,26 +1128,43 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
GroupIndex = 1 GroupIndex = 1
OnClick = bPaneCaptionFontColorClick OnClick = bPaneCaptionFontColorClick
end end
object PaneHSpacer: TBevel
AnchorSideLeft.Control = bPaneBorderDarkColor
AnchorSideLeft.Side = asrBottom
Left = 268
Height = 26
Top = 36
Width = 8
Shape = bsSpacer
end
end end
object TabSheet3: TTabSheet object TabSheet3: TTabSheet
Caption = 'Item' Caption = 'Item'
ClientHeight = 361 ClientHeight = 343
ClientWidth = 554 ClientWidth = 550
ImageIndex = 2 ImageIndex = 2
object sItemRectangle: TShape object sItemRectangle: TShape
AnchorSideLeft.Control = LblLinkInnerLightColor
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbLinkItem AnchorSideTop.Control = cbLinkItem
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 107 AnchorSideRight.Control = ItemHSpacer
Height = 242 AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ItemVSpacer
AnchorSideBottom.Side = asrBottom
Left = 108
Height = 239
Top = 27 Top = 27
Width = 142 Width = 141
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 12
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Visible = False Visible = False
end end
object Label1: TLabel object Label1: TLabel
AnchorSideTop.Control = pItemIdleFrame AnchorSideTop.Control = pItemIdleFrame
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LblInnerLightColor AnchorSideRight.Control = LblLinkInnerLightColor
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 63 Left = 63
Height = 15 Height = 15
@ -1125,7 +1177,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
object Label7: TLabel object Label7: TLabel
AnchorSideTop.Control = pItemIdleGradientFrom AnchorSideTop.Control = pItemIdleGradientFrom
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LblInnerLightColor AnchorSideRight.Control = LblLinkInnerLightColor
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 22 Left = 22
Height = 15 Height = 15
@ -1138,7 +1190,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
object Label14: TLabel object Label14: TLabel
AnchorSideTop.Control = pItemIdleGradientTo AnchorSideTop.Control = pItemIdleGradientTo
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LblInnerLightColor AnchorSideRight.Control = LblLinkInnerLightColor
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 37 Left = 37
Height = 15 Height = 15
@ -1151,7 +1203,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
object Label25: TLabel object Label25: TLabel
AnchorSideTop.Control = cbItemIdleGradientKind AnchorSideTop.Control = cbItemIdleGradientKind
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LblInnerLightColor AnchorSideRight.Control = LblLinkInnerLightColor
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 25 Left = 25
Height = 15 Height = 15
@ -1164,26 +1216,26 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
object Label26: TLabel object Label26: TLabel
AnchorSideTop.Control = pItemFont AnchorSideTop.Control = pItemFont
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LblInnerLightColor AnchorSideRight.Control = LblLinkInnerLightColor
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 47 Left = 47
Height = 15 Height = 15
Top = 284 Top = 278
Width = 49 Width = 49
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
Caption = 'Item font' Caption = 'Item font'
ParentColor = False ParentColor = False
end end
object LblIdle: TLabel object LblIdle: TLabel
AnchorSideLeft.Control = cbLinkItem AnchorSideLeft.Control = pItemIdleFrame
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = cbLinkItem AnchorSideTop.Control = cbLinkItem
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 116 Left = 157
Height = 13 Height = 15
Top = 31 Top = 31
Width = 121 Width = 19
Alignment = taCenter Alignment = taCenter
AutoSize = False
BorderSpacing.Top = 8 BorderSpacing.Top = 8
Caption = 'Idle' Caption = 'Idle'
ParentColor = False ParentColor = False
@ -1191,7 +1243,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
object Label28: TLabel object Label28: TLabel
AnchorSideTop.Control = pItemIdleCaptionColor AnchorSideTop.Control = pItemIdleCaptionColor
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LblInnerLightColor AnchorSideRight.Control = LblLinkInnerLightColor
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 24 Left = 24
Height = 15 Height = 15
@ -1204,7 +1256,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
object Label29: TLabel object Label29: TLabel
AnchorSideTop.Control = pItemIdleInnerDark AnchorSideTop.Control = pItemIdleInnerDark
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LblInnerLightColor AnchorSideRight.Control = LblLinkInnerLightColor
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 13 Left = 13
Height = 15 Height = 15
@ -1214,7 +1266,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
Caption = 'Inner dark color' Caption = 'Inner dark color'
ParentColor = False ParentColor = False
end end
object LblInnerLightColor: TLabel object LblLinkInnerLightColor: TLabel
AnchorSideLeft.Control = TabSheet3 AnchorSideLeft.Control = TabSheet3
AnchorSideTop.Control = pItemIdleInnerLight AnchorSideTop.Control = pItemIdleInnerLight
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
@ -1228,25 +1280,31 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
end end
object LblHotTrack: TLabel object LblHotTrack: TLabel
AnchorSideLeft.Control = pItemHottrackFrame AnchorSideLeft.Control = pItemHottrackFrame
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = LblIdle AnchorSideTop.Control = LblIdle
Left = 259 AnchorSideBottom.Control = LblIdle
Height = 13 AnchorSideBottom.Side = asrBottom
Left = 286
Height = 15
Top = 31 Top = 31
Width = 121 Width = 46
Alignment = taCenter Alignment = taCenter
AutoSize = False Anchors = [akTop, akLeft, akBottom]
Caption = 'Hottrack' Caption = 'Hottrack'
ParentColor = False ParentColor = False
end end
object LblActive: TLabel object LblActive: TLabel
AnchorSideLeft.Control = pItemActiveFrame AnchorSideLeft.Control = pItemActiveFrame
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = LblHotTrack AnchorSideTop.Control = LblHotTrack
Left = 402 AnchorSideBottom.Control = LblHotTrack
Height = 13 AnchorSideBottom.Side = asrBottom
Left = 436
Height = 15
Top = 31 Top = 31
Width = 121 Width = 33
Alignment = taCenter Alignment = taCenter
AutoSize = False Anchors = [akTop, akLeft, akBottom]
Caption = 'Active' Caption = 'Active'
ParentColor = False ParentColor = False
end end
@ -1258,10 +1316,10 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 116 Left = 116
Height = 25 Height = 25
Top = 279 Top = 273
Width = 100 Width = 100
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 20 BorderSpacing.Top = 14
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 4
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1331,14 +1389,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
OnClick = pItemIdleGradientFromClick OnClick = pItemIdleGradientFromClick
end end
object pItemIdleFrame: TPanel object pItemIdleFrame: TPanel
AnchorSideLeft.Control = LblIdle AnchorSideLeft.Control = cbLinkItem
AnchorSideTop.Control = LblIdle AnchorSideTop.Control = LblIdle
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 116 Left = 116
Height = 25 Height = 25
Top = 50 Top = 50
Width = 100 Width = 100
BorderSpacing.Top = 6 BorderSpacing.Top = 4
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Caption = 'Color' Caption = 'Color'
@ -1430,11 +1488,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pItemHottrackGradientFrom AnchorSideRight.Control = pItemHottrackGradientFrom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pItemIdleGradientTo
AnchorSideBottom.Side = asrBottom
Left = 259 Left = 259
Height = 25 Height = 25
Top = 112 Top = 112
Width = 100 Width = 100
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1448,11 +1508,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pItemHottrackFrame AnchorSideRight.Control = pItemHottrackFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pItemIdleGradientFrom
AnchorSideBottom.Side = asrBottom
Left = 259 Left = 259
Height = 25 Height = 25
Top = 81 Top = 81
Width = 100 Width = 100
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1464,10 +1526,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideLeft.Control = pItemIdleFrame AnchorSideLeft.Control = pItemIdleFrame
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pItemIdleFrame AnchorSideTop.Control = pItemIdleFrame
AnchorSideBottom.Control = pItemIdleFrame
AnchorSideBottom.Side = asrBottom
Left = 259 Left = 259
Height = 25 Height = 25
Top = 50 Top = 50
Width = 100 Width = 100
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 43 BorderSpacing.Left = 43
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1481,11 +1546,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pItemHottrackGradientTo AnchorSideRight.Control = pItemHottrackGradientTo
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pItemIdleCaptionColor
AnchorSideBottom.Side = asrBottom
Left = 259 Left = 259
Height = 25 Height = 25
Top = 172 Top = 172
Width = 100 Width = 100
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1499,11 +1566,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pItemHottrackCaptionColor AnchorSideRight.Control = pItemHottrackCaptionColor
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pItemIdleInnerDark
AnchorSideBottom.Side = asrBottom
Left = 259 Left = 259
Height = 25 Height = 25
Top = 203 Top = 203
Width = 100 Width = 100
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1517,11 +1586,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pItemHottrackInnerDark AnchorSideRight.Control = pItemHottrackInnerDark
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pItemIdleInnerLight
AnchorSideBottom.Side = asrBottom
Left = 259 Left = 259
Height = 25 Height = 25
Top = 234 Top = 234
Width = 100 Width = 100
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1560,11 +1631,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pItemActiveGradientFrom AnchorSideRight.Control = pItemActiveGradientFrom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pItemHottrackGradientTo
AnchorSideBottom.Side = asrBottom
Left = 402 Left = 402
Height = 25 Height = 25
Top = 112 Top = 112
Width = 100 Width = 100
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1578,11 +1651,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pItemActiveFrame AnchorSideRight.Control = pItemActiveFrame
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pItemHottrackGradientFrom
AnchorSideBottom.Side = asrBottom
Left = 402 Left = 402
Height = 25 Height = 25
Top = 81 Top = 81
Width = 100 Width = 100
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1594,10 +1669,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideLeft.Control = pItemHottrackFrame AnchorSideLeft.Control = pItemHottrackFrame
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pItemHottrackFrame AnchorSideTop.Control = pItemHottrackFrame
AnchorSideBottom.Control = pItemHottrackFrame
AnchorSideBottom.Side = asrBottom
Left = 402 Left = 402
Height = 25 Height = 25
Top = 50 Top = 50
Width = 100 Width = 100
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 43 BorderSpacing.Left = 43
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1611,11 +1689,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbItemActiveGradientKind AnchorSideRight.Control = cbItemActiveGradientKind
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pItemHottrackCaptionColor
AnchorSideBottom.Side = asrBottom
Left = 402 Left = 402
Height = 25 Height = 25
Top = 172 Top = 172
Width = 100 Width = 100
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1629,11 +1709,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pItemActiveCaptionColor AnchorSideRight.Control = pItemActiveCaptionColor
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pItemHottrackInnerDark
AnchorSideBottom.Side = asrBottom
Left = 402 Left = 402
Height = 25 Height = 25
Top = 203 Top = 203
Width = 100 Width = 100
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1647,11 +1729,13 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pItemActiveInnerDark AnchorSideRight.Control = pItemActiveInnerDark
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pItemHottrackInnerLight
AnchorSideBottom.Side = asrBottom
Left = 402 Left = 402
Height = 25 Height = 25
Top = 234 Top = 234
Width = 100 Width = 100
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -1660,7 +1744,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
OnClick = pItemActiveInnerLightClick OnClick = pItemActiveInnerLightClick
end end
object cbLinkItem: TCheckBox object cbLinkItem: TCheckBox
AnchorSideLeft.Control = LblInnerLightColor AnchorSideLeft.Control = LblLinkInnerLightColor
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = TabSheet3 AnchorSideTop.Control = TabSheet3
Left = 116 Left = 116
@ -1993,7 +2077,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 116 Left = 116
Height = 23 Height = 23
Top = 310 Top = 304
Width = 100 Width = 100
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
@ -2011,30 +2095,53 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
object Label27: TLabel object Label27: TLabel
AnchorSideTop.Control = cbItemStyle AnchorSideTop.Control = cbItemStyle
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = LblInnerLightColor AnchorSideRight.Control = LblLinkInnerLightColor
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 71 Left = 71
Height = 15 Height = 15
Top = 314 Top = 308
Width = 25 Width = 25
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
Caption = 'Style' Caption = 'Style'
ParentColor = False ParentColor = False
end end
object ItemVSpacer: TBevel
AnchorSideTop.Control = bItemIdleInnerLightColor
AnchorSideTop.Side = asrBottom
Left = 192
Height = 8
Top = 258
Width = 50
Shape = bsSpacer
end
object ItemHSpacer: TBevel
AnchorSideLeft.Control = bItemIdleFrameColor
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pItemIdleFrame
AnchorSideBottom.Control = pItemIdleInnerLight
AnchorSideBottom.Side = asrBottom
Left = 243
Height = 209
Top = 50
Width = 6
Anchors = [akTop, akLeft, akBottom]
Shape = bsSpacer
end
end end
object TabSheet4: TTabSheet object TabSheet4: TTabSheet
Caption = 'Import / export' Caption = 'Import / export'
ClientHeight = 340 ClientHeight = 360
ClientWidth = 554 ClientWidth = 554
ImageIndex = 3 ImageIndex = 3
object bImport: TButton object bImport: TButton
AnchorSideLeft.Control = bExportToXML AnchorSideLeft.Control = bExportToXML
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = TabSheet4 AnchorSideTop.Control = TabSheet4
Left = 260 Left = 250
Height = 25 Height = 25
Top = 4 Top = 4
Width = 110 Width = 118
AutoSize = True
BorderSpacing.Left = 4 BorderSpacing.Left = 4
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Caption = 'Import from XML' Caption = 'Import from XML'
@ -2048,7 +2155,8 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
Left = 146 Left = 146
Height = 25 Height = 25
Top = 4 Top = 4
Width = 110 Width = 100
AutoSize = True
BorderSpacing.Left = 4 BorderSpacing.Left = 4
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Caption = 'Export to XML' Caption = 'Export to XML'
@ -2064,7 +2172,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideBottom.Control = TabSheet4 AnchorSideBottom.Control = TabSheet4
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 4 Left = 4
Height = 303 Height = 323
Top = 33 Top = 33
Width = 546 Width = 546
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
@ -2086,6 +2194,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
Height = 25 Height = 25
Top = 4 Top = 4
Width = 138 Width = 138
AutoSize = True
BorderSpacing.Left = 4 BorderSpacing.Left = 4
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Caption = 'Export to Pascal code' Caption = 'Export to Pascal code'
@ -2096,11 +2205,12 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideTop.Control = TabSheet4 AnchorSideTop.Control = TabSheet4
AnchorSideRight.Control = TabSheet4 AnchorSideRight.Control = TabSheet4
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 475 Left = 496
Height = 25 Height = 25
Top = 4 Top = 4
Width = 75 Width = 54
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 4 BorderSpacing.Top = 4
BorderSpacing.Right = 4 BorderSpacing.Right = 4
Caption = 'Copy' Caption = 'Copy'
@ -2110,8 +2220,8 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
end end
object TabSheet5: TTabSheet object TabSheet5: TTabSheet
Caption = 'Tools' Caption = 'Tools'
ClientHeight = 326 ClientHeight = 360
ClientWidth = 549 ClientWidth = 554
ImageIndex = 4 ImageIndex = 4
object Label17: TLabel object Label17: TLabel
AnchorSideLeft.Control = TabSheet5 AnchorSideLeft.Control = TabSheet5
@ -2132,7 +2242,8 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
Left = 115 Left = 115
Height = 25 Height = 25
Top = 4 Top = 4
Width = 105 Width = 54
AutoSize = True
BorderSpacing.Left = 24 BorderSpacing.Left = 24
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Caption = 'Reset' Caption = 'Reset'
@ -2143,23 +2254,26 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
end end
object ButtonPanel: TPanel object ButtonPanel: TPanel
Left = 8 Left = 8
Height = 24 Height = 25
Top = 529 Top = 511
Width = 546 Width = 542
Align = alBottom Align = alBottom
AutoSize = True
BorderSpacing.Around = 8 BorderSpacing.Around = 8
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 24 ClientHeight = 25
ClientWidth = 546 ClientWidth = 542
TabOrder = 2 TabOrder = 2
object bOK: TButton object bOK: TButton
AnchorSideTop.Control = ButtonPanel AnchorSideTop.Control = ButtonPanel
AnchorSideRight.Control = bCancel AnchorSideRight.Control = bCancel
Left = 436 AnchorSideBottom.Control = bCancel
AnchorSideBottom.Side = asrBottom
Left = 432
Height = 25 Height = 25
Top = 0 Top = 0
Width = 42 Width = 42
Anchors = [akTop, akRight] Anchors = [akTop, akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Right = 6 BorderSpacing.Right = 6
Caption = 'OK' Caption = 'OK'
@ -2171,7 +2285,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
AnchorSideTop.Control = ButtonPanel AnchorSideTop.Control = ButtonPanel
AnchorSideRight.Control = ButtonPanel AnchorSideRight.Control = ButtonPanel
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 484 Left = 480
Height = 25 Height = 25
Top = 0 Top = 0
Width = 62 Width = 62
@ -2183,19 +2297,23 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow
TabOrder = 1 TabOrder = 1
end end
object LblRGB: TLabel object LblRGB: TLabel
AnchorSideLeft.Control = ColorView
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = bOK
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 31 Left = 30
Height = 15 Height = 15
Top = 5 Top = 5
Width = 38 Width = 38
BorderSpacing.Left = 5
Caption = 'LblRGB' Caption = 'LblRGB'
ParentColor = False ParentColor = False
Visible = False Visible = False
end end
object ColorView: TShape object ColorView: TShape
AnchorSideLeft.Control = ButtonPanel AnchorSideLeft.Control = ButtonPanel
AnchorSideTop.Control = bOK AnchorSideTop.Control = bCancel
AnchorSideBottom.Control = bOK AnchorSideBottom.Control = bCancel
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 24 Height = 24

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

@ -16,6 +16,9 @@ type
{ TfrmAppearanceEditWindow } { TfrmAppearanceEditWindow }
TfrmAppearanceEditWindow = class(TForm) TfrmAppearanceEditWindow = class(TForm)
PaneHSpacer: TBevel;
ItemHSpacer: TBevel;
TabVSpacer: TBevel;
bInactiveTabHeaderFontColor: TSpeedButton; bInactiveTabHeaderFontColor: TSpeedButton;
bItemActiveInnerDarkColor: TSpeedButton; bItemActiveInnerDarkColor: TSpeedButton;
bItemActiveGradientFromColor: TSpeedButton; bItemActiveGradientFromColor: TSpeedButton;
@ -49,6 +52,7 @@ type
cbItemStyle: TComboBox; cbItemStyle: TComboBox;
cbPaneStyle: TComboBox; cbPaneStyle: TComboBox;
ColorView: TShape; ColorView: TShape;
ItemVSpacer: TBevel;
gbPreview: TGroupBox; gbPreview: TGroupBox;
Label12: TLabel; Label12: TLabel;
Label27: TLabel; Label27: TLabel;
@ -62,6 +66,7 @@ type
ButtonPanel: TPanel; ButtonPanel: TPanel;
bTabFrameColor: TSpeedButton; bTabFrameColor: TSpeedButton;
SpkTab2: TSpkTab; SpkTab2: TSpkTab;
TabHSpacer: TBevel;
tbPreview: TSpkToolbar; tbPreview: TSpkToolbar;
SpkTab1: TSpkTab; SpkTab1: TSpkTab;
SpkPane1: TSpkPane; SpkPane1: TSpkPane;
@ -103,7 +108,7 @@ type
Label11: TLabel; Label11: TLabel;
cbPaneGradientKind: TComboBox; cbPaneGradientKind: TComboBox;
pPaneCaptionBackground: TPanel; pPaneCaptionBackground: TPanel;
LblCaptionBackground: TLabel; LblPaneCaptionBackground: TLabel;
Label13: TLabel; Label13: TLabel;
pPaneCaptionFont: TPanel; pPaneCaptionFont: TPanel;
Label1: TLabel; Label1: TLabel;
@ -121,7 +126,7 @@ type
pItemIdleCaptionColor: TPanel; pItemIdleCaptionColor: TPanel;
Label29: TLabel; Label29: TLabel;
pItemIdleInnerDark: TPanel; pItemIdleInnerDark: TPanel;
LblInnerLightColor: TLabel; LblLinkInnerLightColor: TLabel;
pItemIdleInnerLight: TPanel; pItemIdleInnerLight: TPanel;
cbItemHottrackGradientKind: TComboBox; cbItemHottrackGradientKind: TComboBox;
pItemHottrackGradientTo: TPanel; pItemHottrackGradientTo: TPanel;
@ -206,6 +211,7 @@ type
procedure cbLinkPaneClick(Sender: TObject); procedure cbLinkPaneClick(Sender: TObject);
procedure cbLinkTabClick(Sender: TObject); procedure cbLinkTabClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean); procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -292,7 +298,7 @@ implementation
{$R *.lfm} {$R *.lfm}
uses uses
clipbrd; clipbrd, Spkt_Const;
var var
CurrPageIndex: Integer = 0; CurrPageIndex: Integer = 0;
@ -792,6 +798,48 @@ begin
Result := false; Result := false;
end; end;
procedure TfrmAppearanceEditWindow.FormActivate(Sender: TObject);
var
w, h: Integer;
begin
ColorView.Width := ColorView.Height;
w := SpkScaleX(pTabFrame.Width, 96);
h := SpkScaleY(pTabFrame.Height, 96);
pTabFrame.Width := w;
pTabFrame.Height := h;
pTabGradientFrom.Height := h;
pTabGradientTo.Height := h;
pActiveTabHeaderFont.Height := h;
pInactiveTabHeaderFont.Height := h;
pTabHeaderFont.Height := h;
pPaneBorderDark.Width := w;
pPaneBorderDark.Height := h;
pPaneBorderLight.Height := h;
pPaneGradientFrom.Height := h;
pPaneGradientTo.Height := h;
pPaneCaptionBackground.Height := h;
pPaneCaptionFontColor.Height := h;
pPaneCaptionFont.Height := h;
pItemIdleFrame.Width := w;
pItemHotTrackFrame.Width := w;
pItemActiveFrame.Width := w;
pItemIdleFrame.Height := h;
pItemIdleGradientFrom.Height := h;
pItemIdleGradientTo.Height := h;
pItemIdleCaptionColor.Height := h;
pItemIdleInnerDark.Height := h;
pItemIdleInnerLight.Height := h;
pItemFont.Height := h;
Width := SpkScaleX(Width, 96);
Height := SpkScaleY(Height, 96);
Position := poScreenCenter;
end;
procedure TfrmAppearanceEditWindow.FormCloseQuery(Sender: TObject; procedure TfrmAppearanceEditWindow.FormCloseQuery(Sender: TObject;
var CanClose: boolean); var CanClose: boolean);
begin begin
@ -916,8 +964,10 @@ end;
procedure TfrmAppearanceEditWindow.pItemActiveCaptionColorClick(Sender: TObject); procedure TfrmAppearanceEditWindow.pItemActiveCaptionColorClick(Sender: TObject);
begin begin
if ChangeColor(Sender as TPanel) then if ChangeColor(Sender as TPanel) then begin
tbPreview.Appearance.Element.ActiveCaptionColor:=(Sender as TPanel).Color; tbPreview.Appearance.Element.ActiveCaptionColor:=(Sender as TPanel).Color;
tbPreview.ForceRepaint;
end;
end; end;
procedure TfrmAppearanceEditWindow.pItemActiveFrameClick(Sender: TObject); procedure TfrmAppearanceEditWindow.pItemActiveFrameClick(Sender: TObject);
@ -984,8 +1034,10 @@ end;
procedure TfrmAppearanceEditWindow.pItemHottrackCaptionColorClick(Sender: TObject); procedure TfrmAppearanceEditWindow.pItemHottrackCaptionColorClick(Sender: TObject);
begin begin
if ChangeColor(Sender as TPanel) then if ChangeColor(Sender as TPanel) then begin
tbPreview.Appearance.Element.HotTrackCaptionColor := (Sender as TPanel).Color; tbPreview.Appearance.Element.HotTrackCaptionColor := (Sender as TPanel).Color;
tbPreview.ForceRepaint;
end;
end; end;
procedure TfrmAppearanceEditWindow.pItemHottrackFrameClick(Sender: TObject); procedure TfrmAppearanceEditWindow.pItemHottrackFrameClick(Sender: TObject);
@ -1020,8 +1072,10 @@ end;
procedure TfrmAppearanceEditWindow.pItemIdleCaptionColorClick(Sender: TObject); procedure TfrmAppearanceEditWindow.pItemIdleCaptionColorClick(Sender: TObject);
begin begin
if ChangeColor(Sender as TPanel) then if ChangeColor(Sender as TPanel) then begin
tbPreview.Appearance.Element.IdleCaptionColor := (Sender as TPanel).Color; tbPreview.Appearance.Element.IdleCaptionColor := (Sender as TPanel).Color;
tbPreview.ForceRepaint;
end;
end; end;
procedure TfrmAppearanceEditWindow.pItemIdleFrameClick(Sender: TObject); procedure TfrmAppearanceEditWindow.pItemIdleFrameClick(Sender: TObject);
@ -1108,6 +1162,7 @@ begin
begin begin
tbPreview.Appearance.Pane.CaptionFont.Color:=((Sender as TPanel).Color); tbPreview.Appearance.Pane.CaptionFont.Color:=((Sender as TPanel).Color);
pPaneCaptionFont.Font.color:=((Sender as TPanel).Color); pPaneCaptionFont.Font.color:=((Sender as TPanel).Color);
tbPreview.ForceRepaint;
end; end;
end; end;
@ -1187,8 +1242,9 @@ procedure TfrmAppearanceEditWindow.pActiveTabHeaderFontClick(Sender: TObject);
begin begin
if ChangeColor(Sender as TPanel) then if ChangeColor(Sender as TPanel) then
begin begin
tbPreview.Appearance.Tab.TabHeaderFont.Color:=((Sender as TPanel).Color); tbPreview.Appearance.Tab.TabHeaderFont.Color := (Sender as TPanel).Color;
pTabHeaderFont.Font.color := (Sender as TPanel).Color; pTabHeaderFont.Font.Color := (Sender as TPanel).Color;
tbPreview.ForceRepaint;
end; end;
end; end;