diff --git a/components/spktoolbar/SpkToolbar/SpkToolbar.pas b/components/spktoolbar/SpkToolbar/SpkToolbar.pas index 4c383790a..5136ad95d 100644 --- a/components/spktoolbar/SpkToolbar/SpkToolbar.pas +++ b/components/spktoolbar/SpkToolbar/SpkToolbar.pas @@ -1374,7 +1374,7 @@ procedure TSpkToolbar.ValidateBuffer; CurrentAppearance: TSpkToolbarAppearance; FocusedAppearance: TSpkToolbarAppearance; - procedure DrawTabText(index: integer; AFont: TFont); + procedure DrawTabText(index: integer; AFont: TFont; AOverrideTextColor: TColor = clNone); var x, y: integer; TabRect: T2DIntRect; @@ -1382,6 +1382,8 @@ procedure TSpkToolbar.ValidateBuffer; TabRect := FTabRects[index]; FBuffer.canvas.font.Assign(AFont); + if AOverrideTextColor <> clNone then + FBuffer.Canvas.Font.Color := AOverrideTextColor; x := TabRect.left + (TabRect.Width - FBuffer.Canvas.textwidth( FTabs[index].Caption)) div 2; y := TabRect.top + (TabRect.Height - FBuffer.Canvas.Textheight('Wy')) div 2; @@ -1571,7 +1573,7 @@ procedure TSpkToolbar.ValidateBuffer; TabRect := FTabRects[i]; // Tab is drawn - if i = FTabIndex then + if i = FTabIndex then // active tab begin if i = FTabHover then begin @@ -1595,7 +1597,7 @@ procedure TSpkToolbar.ValidateBuffer; DrawTabText(i, CurrentAppearance.Tab.TabHeaderFont); end else - begin + begin // inactive tab if i = FTabHover then begin DrawTab(i, @@ -1614,7 +1616,8 @@ procedure TSpkToolbar.ValidateBuffer; DrawBottomLine(i, FocusedAppearance.Tab.BorderColor); // Text - DrawTabText(i, CurrentAppearance.Tab.TabHeaderFont); + DrawTabText(i, CurrentAppearance.Tab.TabHeaderFont, + CurrentAppearance.Tab.InactiveTabHeaderFontColor); end; end; end; diff --git a/components/spktoolbar/SpkToolbar/spkt_Appearance.pas b/components/spktoolbar/SpkToolbar/spkt_Appearance.pas index 2b8bed54d..7a39dd095 100644 --- a/components/spktoolbar/SpkToolbar/spkt_Appearance.pas +++ b/components/spktoolbar/SpkToolbar/spkt_Appearance.pas @@ -27,6 +27,7 @@ type TSpkTabAppearance = class(TPersistent) FGradientFromColor : TColor; FGradientToColor : TColor; FGradientType : TBackgroundKind; + FInactiveHeaderFontColor: TColor; // *** Gettery i settery *** @@ -35,6 +36,7 @@ type TSpkTabAppearance = class(TPersistent) procedure SetGradientFromColor(const Value: TColor); procedure SetGradientToColor(const Value: TColor); procedure SetGradientType(const Value: TBackgroundKind); + procedure SetInactiveHeaderFontColor(const Value: TColor); public // *** Konstruktor, destruktor, assign *** // Appearance musi mieæ assign, bo wystêpuje jako w³asnoœæ @@ -51,6 +53,7 @@ type TSpkTabAppearance = class(TPersistent) property GradientFromColor : TColor read FGradientFromColor write SetGradientFromColor; property GradientToColor : TColor read FGradientToColor write SetGradientToColor; property GradientType : TBackgroundKind read FGradientType write SetGradientType; + property InactiveTabHeaderFontColor: TColor read FInactiveHeaderFontColor write SetInactiveHeaderFontColor; end; type TSpkPaneAppearance = class(TPersistent) @@ -73,20 +76,20 @@ type TSpkPaneAppearance = class(TPersistent) procedure SetGradientType(const Value: TBackgroundKind); procedure SetCaptionBgColor(const Value: TColor); public - procedure Assign(Source : TPersistent); override; - constructor Create(ADispatch : TSpkBaseAppearanceDispatch); - procedure SaveToXML(Node : TSpkXMLNode); - procedure LoadFromXML(Node : TSpkXMLNode); + procedure Assign(Source: TPersistent); override; + constructor Create(ADispatch: TSpkBaseAppearanceDispatch); + procedure SaveToXML(Node: TSpkXMLNode); + procedure LoadFromXML(Node: TSpkXMLNode); destructor Destroy; override; procedure Reset; published - property CaptionFont : TFont read FCaptionFont write SetCaptionFont; - property BorderDarkColor : TColor read FBorderDarkColor write SetBorderDarkColor; - property BorderLightColor : TColor read FBorderLightColor write SetBorderLightColor; - property GradientFromColor : TColor read FGradientFromColor write SetGradientFromColor; - property GradientToColor : TColor read FGradientToColor write SetGradientToColor; - property GradientType : TBackgroundKind read FGradientType write SetGradientType; - property CaptionBgColor : TColor read FCaptionBgColor write SetCaptionBgColor; + property BorderDarkColor: TColor read FBorderDarkColor write SetBorderDarkColor; + property BorderLightColor: TColor read FBorderLightColor write SetBorderLightColor; + property CaptionBgColor: TColor read FCaptionBgColor write SetCaptionBgColor; + property CaptionFont: TFont read FCaptionFont write SetCaptionFont; + property GradientFromColor: TColor read FGradientFromColor write SetGradientFromColor; + property GradientToColor: TColor read FGradientToColor write SetGradientToColor; + property GradientType: TBackgroundKind read FGradientType write SetGradientType; end; type TSpkElementAppearance = class(TPersistent) @@ -217,24 +220,23 @@ uses { TSpkBaseToolbarAppearance } procedure TSpkTabAppearance.Assign(Source: TPersistent); - -var SrcAppearance : TSpkTabAppearance; - +var + SrcAppearance: TSpkTabAppearance; begin if Source is TSpkTabAppearance then - begin + begin SrcAppearance:=TSpkTabAppearance(Source); - - FTabHeaderFont.assign(SrcAppearance.TabHeaderFont); + FTabHeaderFont.Assign(SrcAppearance.TabHeaderFont); FBorderColor:=SrcAppearance.BorderColor; FGradientFromColor:=SrcAppearance.GradientFromColor; FGradientToColor:=SrcAppearance.GradientToColor; FGradientType:=SrcAppearance.GradientType; + FInactiveHeaderFontColor := SrcAppearance.InactiveTabHeaderFontColor; if FDispatch<>nil then FDispatch.NotifyAppearanceChanged; - end else - raise AssignException.create('TSpkToolbarAppearance.Assign: Nie mogê przypisaæ obiektu '+Source.ClassName+' do TSpkToolbarAppearance!'); + end else + raise AssignException.create('TSpkToolbarAppearance.Assign: Nie mogê przypisaæ obiektu '+Source.ClassName+' do TSpkToolbarAppearance!'); end; constructor TSpkTabAppearance.Create( @@ -255,32 +257,35 @@ begin end; procedure TSpkTabAppearance.LoadFromXML(Node: TSpkXMLNode); - -var Subnode : TSpkXMLNode; - +var + Subnode : TSpkXMLNode; begin -if not(assigned(Node)) then - exit; + if not(assigned(Node)) then + exit; -Subnode:=Node['TabHeaderFont',false]; -if assigned(Subnode) then - TSpkXMLTools.Load(Subnode, FTabHeaderFont); + Subnode:=Node['TabHeaderFont',false]; + if Assigned(Subnode) then + TSpkXMLTools.Load(Subnode, FTabHeaderFont); -Subnode:=Node['BorderColor',false]; -if assigned(Subnode) then - FBorderColor:=Subnode.TextAsColor; + Subnode:=Node['BorderColor',false]; + if assigned(Subnode) then + FBorderColor:=Subnode.TextAsColor; -Subnode:=Node['GradientFromColor',false]; -if assigned(Subnode) then - FGradientFromColor:=Subnode.TextAsColor; + Subnode:=Node['GradientFromColor',false]; + if assigned(Subnode) then + FGradientFromColor:=Subnode.TextAsColor; -Subnode:=Node['GradientToColor',false]; -if assigned(Subnode) then - FGradientToColor:=Subnode.TextAsColor; + Subnode:=Node['GradientToColor',false]; + if assigned(Subnode) then + FGradientToColor:=Subnode.TextAsColor; -Subnode:=Node['GradientType',false]; -if assigned(Subnode) then - FGradientType:=TBackgroundKind(Subnode.TextAsInteger); + Subnode:=Node['GradientType',false]; + if assigned(Subnode) then + FGradientType:=TBackgroundKind(Subnode.TextAsInteger); + + Subnode := Node['InactiveTabHeaderFontColor', false]; + if Assigned(Subnode) then + FInactiveHeaderFontColor := Subnode.TextAsColor; end; procedure TSpkTabAppearance.Reset; @@ -319,30 +324,33 @@ begin FGradientFromColor := rgb(222, 232, 245); FGradientToColor := rgb(199, 216, 237); FGradientType := bkConcave; + FInactiveHeaderFontColor := FTabHeaderFont.Color; end; procedure TSpkTabAppearance.SaveToXML(Node: TSpkXMLNode); - -var Subnode : TSpkXMLNode; - +var + Subnode: TSpkXMLNode; begin -if not(assigned(Node)) then - exit; + if not(assigned(Node)) then + exit; -Subnode:=Node['TabHeaderFont',true]; -TSpkXMLTools.Save(Subnode, FTabHeaderFont); + Subnode:=Node['TabHeaderFont',true]; + TSpkXMLTools.Save(Subnode, FTabHeaderFont); -Subnode:=Node['BorderColor',true]; -Subnode.TextAsColor:=FBorderColor; + Subnode:=Node['BorderColor',true]; + Subnode.TextAsColor:=FBorderColor; -Subnode:=Node['GradientFromColor',true]; -Subnode.TextAsColor:=FGradientFromColor; + Subnode:=Node['GradientFromColor',true]; + Subnode.TextAsColor:=FGradientFromColor; -Subnode:=Node['GradientToColor',true]; -Subnode.TextAsColor:=FGradientToColor; + Subnode:=Node['GradientToColor',true]; + Subnode.TextAsColor:=FGradientToColor; -Subnode:=Node['GradientType',true]; -Subnode.TextAsInteger:=integer(FGradientType); + Subnode:=Node['GradientType',true]; + Subnode.TextAsInteger:=integer(FGradientType); + + Subnode := Node['InactiveTabHeaderFontColor', true]; + Subnode.TextAsColor := FInactiveHeaderFontColor; end; procedure TSpkTabAppearance.SetBorderColor(const Value: TColor); @@ -380,6 +388,14 @@ begin FDispatch.NotifyAppearanceChanged; end; +procedure TSpkTabAppearance.SetInactiveHeaderFontColor(const Value: TColor); +begin + FInactiveHeaderFontColor := Value; + if FDispatch <> nil then + FDispatch.NotifyAppearanceChanged; +end; + + { TSpkPaneAppearance } diff --git a/components/spktoolbar/designtime/spkte_AppearanceEditor.lfm b/components/spktoolbar/designtime/spkte_AppearanceEditor.lfm index e5fd4878b..ac1df1aca 100644 --- a/components/spktoolbar/designtime/spkte_AppearanceEditor.lfm +++ b/components/spktoolbar/designtime/spkte_AppearanceEditor.lfm @@ -1,31 +1,32 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow Left = 349 - Height = 527 + Height = 520 Top = 120 - Width = 565 + Width = 536 Caption = 'Toolbar appearance editor' - ClientHeight = 527 - ClientWidth = 565 + ClientHeight = 520 + ClientWidth = 536 Color = clBtnFace Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Tahoma' + Font.Height = -12 + OnCreate = FormCreate OnShow = FormShow LCLVersion = '1.7' object gbPreview: TGroupBox Left = 0 - Height = 137 - Top = 342 - Width = 565 - Align = alTop + Height = 132 + Top = 347 + Width = 536 + Align = alBottom + AutoSize = True Caption = ' Preview ' - ClientHeight = 119 - ClientWidth = 561 + ClientHeight = 112 + ClientWidth = 532 TabOrder = 0 object tbPreview: TSpkToolbar Left = 0 Top = 0 - Width = 561 + Width = 532 Color = clBtnFace Appearance.Tab.TabHeaderFont.Color = 9126421 Appearance.Tab.TabHeaderFont.Height = -13 @@ -34,15 +35,16 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow Appearance.Tab.GradientFromColor = 16115934 Appearance.Tab.GradientToColor = 15587527 Appearance.Tab.GradientType = bkConcave + Appearance.Tab.InactiveTabHeaderFontColor = 9126421 + Appearance.Pane.BorderDarkColor = 14335646 + Appearance.Pane.BorderLightColor = 16315117 + Appearance.Pane.CaptionBgColor = 15849922 Appearance.Pane.CaptionFont.Color = 11168318 Appearance.Pane.CaptionFont.Height = -12 Appearance.Pane.CaptionFont.Name = 'Calibri' - Appearance.Pane.BorderDarkColor = 14335646 - Appearance.Pane.BorderLightColor = 16315117 Appearance.Pane.GradientFromColor = 16115934 Appearance.Pane.GradientToColor = 15587527 Appearance.Pane.GradientType = bkConcave - Appearance.Pane.CaptionBgColor = 15849922 Appearance.Element.CaptionFont.Color = 9126421 Appearance.Element.CaptionFont.Height = -12 Appearance.Element.CaptionFont.Name = 'Calibri' @@ -68,8 +70,11 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow Appearance.Element.ActiveInnerDarkColor = 961020 Appearance.Element.ActiveCaptionColor = 8405614 TabIndex = 0 + Images = SmallImages + LargeImages = LargeImages Tabs = ( 'SpkTab1' + 'SpkTab2' ) object SpkTab1: TSpkTab CustomAppearance.Tab.TabHeaderFont.Color = 9126421 @@ -79,15 +84,16 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow CustomAppearance.Tab.GradientFromColor = 16115934 CustomAppearance.Tab.GradientToColor = 15587527 CustomAppearance.Tab.GradientType = bkConcave + CustomAppearance.Tab.InactiveTabHeaderFontColor = 9126421 + CustomAppearance.Pane.BorderDarkColor = 14335646 + CustomAppearance.Pane.BorderLightColor = 16315117 + CustomAppearance.Pane.CaptionBgColor = 15849922 CustomAppearance.Pane.CaptionFont.Color = 11168318 CustomAppearance.Pane.CaptionFont.Height = -12 CustomAppearance.Pane.CaptionFont.Name = 'Calibri' - CustomAppearance.Pane.BorderDarkColor = 14335646 - CustomAppearance.Pane.BorderLightColor = 16315117 CustomAppearance.Pane.GradientFromColor = 16115934 CustomAppearance.Pane.GradientToColor = 15587527 CustomAppearance.Pane.GradientType = bkConcave - CustomAppearance.Pane.CaptionBgColor = 15849922 CustomAppearance.Element.CaptionFont.Color = 9126421 CustomAppearance.Element.CaptionFont.Height = -12 CustomAppearance.Element.CaptionFont.Name = 'Calibri' @@ -132,18 +138,21 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow Visible = True Enabled = True Caption = 'Default' + LargeImageIndex = 0 ButtonKind = bkButton end object SpkLargeButton3: TSpkLargeButton Visible = True Enabled = True Caption = 'Button and dropdown' + LargeImageIndex = 1 ButtonKind = bkButtonDropdown end object SpkLargeButton2: TSpkLargeButton Visible = True Enabled = True Caption = 'Dropdown' + LargeImageIndex = 2 ButtonKind = bkDropdown end end @@ -163,6 +172,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow TableBehaviour = tbBeginsRow GroupBehaviour = gbSingleItem HideFrameWhenIdle = True + ImageIndex = 0 ButtonKind = bkButton end object SpkSmallButton2: TSpkSmallButton @@ -173,6 +183,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow TableBehaviour = tbBeginsRow GroupBehaviour = gbSingleItem HideFrameWhenIdle = True + ImageIndex = 1 ButtonKind = bkButtonDropdown end object SpkSmallButton3: TSpkSmallButton @@ -183,6 +194,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow TableBehaviour = tbBeginsRow GroupBehaviour = gbSingleItem HideFrameWhenIdle = True + ImageIndex = 2 ButtonKind = bkDropdown end end @@ -204,6 +216,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow TableBehaviour = tbContinuesRow GroupBehaviour = gbBeginsGroup HideFrameWhenIdle = False + ImageIndex = 0 ButtonKind = bkButton end object SpkSmallButton5: TSpkSmallButton @@ -214,6 +227,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow TableBehaviour = tbContinuesRow GroupBehaviour = gbContinuesGroup HideFrameWhenIdle = False + ImageIndex = 2 ButtonKind = bkButton end object SpkSmallButton6: TSpkSmallButton @@ -224,6 +238,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow TableBehaviour = tbContinuesRow GroupBehaviour = gbEndsGroup HideFrameWhenIdle = False + ImageIndex = 1 ButtonKind = bkButton end object SpkSmallButton7: TSpkSmallButton @@ -234,6 +249,7 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow TableBehaviour = tbBeginsRow GroupBehaviour = gbSingleItem HideFrameWhenIdle = False + ImageIndex = 0 ButtonKind = bkButton end object SpkSmallButton8: TSpkSmallButton @@ -244,77 +260,160 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow TableBehaviour = tbContinuesRow GroupBehaviour = gbSingleItem HideFrameWhenIdle = False + ImageIndex = 2 ButtonKind = bkButton end end end + object SpkTab2: TSpkTab + CustomAppearance.Tab.TabHeaderFont.Color = 9126421 + CustomAppearance.Tab.TabHeaderFont.Height = -13 + CustomAppearance.Tab.TabHeaderFont.Name = 'Calibri' + CustomAppearance.Tab.BorderColor = 14922381 + CustomAppearance.Tab.GradientFromColor = 16115934 + CustomAppearance.Tab.GradientToColor = 15587527 + CustomAppearance.Tab.GradientType = bkConcave + CustomAppearance.Tab.InactiveTabHeaderFontColor = 9126421 + CustomAppearance.Pane.BorderDarkColor = 14335646 + CustomAppearance.Pane.BorderLightColor = 16315117 + CustomAppearance.Pane.CaptionBgColor = 15849922 + CustomAppearance.Pane.CaptionFont.Color = 11168318 + CustomAppearance.Pane.CaptionFont.Height = -12 + CustomAppearance.Pane.CaptionFont.Name = 'Calibri' + CustomAppearance.Pane.GradientFromColor = 16115934 + CustomAppearance.Pane.GradientToColor = 15587527 + CustomAppearance.Pane.GradientType = bkConcave + CustomAppearance.Element.CaptionFont.Color = 9126421 + CustomAppearance.Element.CaptionFont.Height = -12 + CustomAppearance.Element.CaptionFont.Name = 'Calibri' + CustomAppearance.Element.IdleFrameColor = 14727067 + CustomAppearance.Element.IdleGradientFromColor = 15653832 + CustomAppearance.Element.IdleGradientToColor = 15323324 + CustomAppearance.Element.IdleGradientType = bkConcave + CustomAppearance.Element.IdleInnerLightColor = 15852501 + CustomAppearance.Element.IdleInnerDarkColor = 15520702 + CustomAppearance.Element.IdleCaptionColor = 11631958 + CustomAppearance.Element.HotTrackFrameColor = 10211293 + CustomAppearance.Element.HotTrackGradientFromColor = 14351615 + CustomAppearance.Element.HotTrackGradientToColor = 5101567 + CustomAppearance.Element.HotTrackGradientType = bkConcave + CustomAppearance.Element.HotTrackInnerLightColor = 12972543 + CustomAppearance.Element.HotTrackInnerDarkColor = 8045272 + CustomAppearance.Element.HotTrackCaptionColor = 8864367 + CustomAppearance.Element.ActiveFrameColor = 5535371 + CustomAppearance.Element.ActiveGradientFromColor = 7126014 + CustomAppearance.Element.ActiveGradientToColor = 4035324 + CustomAppearance.Element.ActiveGradientType = bkConcave + CustomAppearance.Element.ActiveInnerLightColor = 961020 + CustomAppearance.Element.ActiveInnerDarkColor = 961020 + CustomAppearance.Element.ActiveCaptionColor = 8405614 + Caption = 'Another tab' + OverrideAppearance = False + Visible = True + Panes = ( ) + end end end object PageControl1: TPageControl Left = 0 - Height = 342 + Height = 347 Top = 0 - Width = 565 - ActivePage = TabSheet1 - Align = alTop - TabIndex = 0 + Width = 536 + ActivePage = TabSheet3 + Align = alClient + TabIndex = 2 TabOrder = 1 object TabSheet1: TTabSheet Caption = 'Tab' - ClientHeight = 316 - ClientWidth = 557 + ClientHeight = 326 + ClientWidth = 549 object Label2: TLabel - Left = 12 - Height = 13 - Top = 43 - Width = 30 + AnchorSideTop.Control = pTabFrame + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = LblInactiveTabHeaderFontColor + AnchorSideRight.Side = asrBottom + Left = 134 + Height = 15 + Top = 41 + Width = 33 + Anchors = [akTop, akRight] Caption = 'Frame' ParentColor = False end object Label3: TLabel - Left = 12 - Height = 13 - Top = 74 - Width = 66 + AnchorSideTop.Control = pTabGradientFrom + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = LblInactiveTabHeaderFontColor + AnchorSideRight.Side = asrBottom + Left = 93 + Height = 15 + Top = 72 + Width = 74 + Anchors = [akTop, akRight] Caption = 'Gradient from' ParentColor = False end object Label4: TLabel - Left = 12 - Height = 13 - Top = 105 - Width = 54 + AnchorSideTop.Control = pTabGradientTo + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = LblInactiveTabHeaderFontColor + AnchorSideRight.Side = asrBottom + Left = 108 + Height = 15 + Top = 103 + Width = 59 + Anchors = [akTop, akRight] Caption = 'Gradient to' ParentColor = False end object Label5: TLabel - Left = 12 - Height = 13 - Top = 136 - Width = 63 + AnchorSideTop.Control = cbTabGradientKind + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = LblInactiveTabHeaderFontColor + AnchorSideRight.Side = asrBottom + Left = 96 + Height = 15 + Top = 133 + Width = 71 + Anchors = [akTop, akRight] Caption = 'Gradient kind' ParentColor = False end object Label6: TLabel - Left = 12 - Height = 13 - Top = 175 - Width = 78 + AnchorSideTop.Control = pTabHeaderFont + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = LblInactiveTabHeaderFontColor + AnchorSideRight.Side = asrBottom + Left = 84 + Height = 15 + Top = 239 + Width = 83 + Anchors = [akTop, akRight] Caption = 'Tab header font' ParentColor = False end object sTabRectangle: TShape - Left = 96 + AnchorSideLeft.Control = LblInactiveTabHeaderFontColor + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = cbLinkTab + AnchorSideTop.Side = asrBottom + Left = 179 Height = 136 Top = 27 Width = 137 + BorderSpacing.Left = 12 + BorderSpacing.Top = 4 Visible = False end object pTabFrame: TPanel - Left = 104 + AnchorSideLeft.Control = cbLinkTab + AnchorSideTop.Control = cbLinkTab + AnchorSideTop.Side = asrBottom + Left = 187 Height = 25 - Top = 37 + Top = 36 Width = 121 + BorderSpacing.Top = 13 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -322,10 +421,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pTabFrameClick end object pTabGradientFrom: TPanel - Left = 104 + AnchorSideLeft.Control = pTabFrame + AnchorSideTop.Control = pTabFrame + AnchorSideTop.Side = asrBottom + Left = 187 Height = 25 - Top = 68 + Top = 67 Width = 121 + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -333,10 +436,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pTabGradientFromClick end object pTabGradientTo: TPanel - Left = 104 + AnchorSideLeft.Control = pTabGradientFrom + AnchorSideTop.Control = pTabGradientFrom + AnchorSideTop.Side = asrBottom + Left = 187 Height = 25 - Top = 99 + Top = 98 Width = 121 + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -344,11 +451,18 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pTabGradientToClick end object cbTabGradientKind: TComboBox - Left = 104 - Height = 21 - Top = 133 + AnchorSideLeft.Control = pTabGradientTo + AnchorSideTop.Control = pTabGradientTo + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = pTabGradientTo + AnchorSideRight.Side = asrBottom + Left = 187 + Height = 23 + Top = 129 Width = 121 - ItemHeight = 13 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Top = 6 + ItemHeight = 15 ItemIndex = 0 Items.Strings = ( 'None' @@ -362,109 +476,217 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow Text = 'None' end object pTabHeaderFont: TPanel - Left = 104 + AnchorSideLeft.Control = pInactiveTabHeaderFontColor + AnchorSideTop.Control = pInactiveTabHeaderFontColor + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = pInactiveTabHeaderFontColor + AnchorSideRight.Side = asrBottom + Left = 187 Height = 25 - Top = 169 - Width = 73 + Top = 234 + Width = 121 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Font' TabOrder = 4 OnClick = pTabHeaderFontClick end - object pTabHeaderFontColor: TPanel - Left = 183 + object pActiveTabHeaderFontColor: TPanel + AnchorSideLeft.Control = cbTabGradientKind + AnchorSideTop.Control = cbTabGradientKind + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = cbTabGradientKind + AnchorSideRight.Side = asrBottom + Left = 187 Height = 25 - Top = 169 - Width = 42 + Top = 172 + Width = 121 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Top = 20 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' TabOrder = 5 - OnClick = pTabHeaderFontColorClick + OnClick = pActiveTabHeaderFontColorClick end object cbLinkTab: TCheckBox - Left = 96 + AnchorSideLeft.Control = LblInactiveTabHeaderFontColor + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = TabSheet1 + Left = 187 Height = 19 Top = 4 - Width = 151 + Width = 169 + BorderSpacing.Left = 20 + BorderSpacing.Top = 4 Caption = 'Link with pane and idle item' OnClick = cbLinkTabClick TabOrder = 6 end + object Label18: TLabel + AnchorSideTop.Control = pActiveTabHeaderFontColor + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = LblInactiveTabHeaderFontColor + AnchorSideRight.Side = asrBottom + Left = 20 + Height = 15 + Top = 177 + Width = 147 + Anchors = [akTop, akRight] + Caption = 'Active tab header font color' + ParentColor = False + end + object LblInactiveTabHeaderFontColor: TLabel + AnchorSideLeft.Control = TabSheet1 + AnchorSideTop.Control = pInactiveTabHeaderFontColor + AnchorSideTop.Side = asrCenter + Left = 12 + Height = 15 + Top = 208 + Width = 155 + BorderSpacing.Left = 12 + Caption = 'Inactive tab header font color' + ParentColor = False + end + object pInactiveTabHeaderFontColor: TPanel + AnchorSideLeft.Control = pActiveTabHeaderFontColor + AnchorSideTop.Control = pActiveTabHeaderFontColor + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = pActiveTabHeaderFontColor + AnchorSideRight.Side = asrBottom + Left = 187 + Height = 25 + Top = 203 + Width = 121 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Top = 6 + BevelInner = bvRaised + BevelOuter = bvLowered + Caption = 'Color' + Color = clBtnFace + ParentColor = False + TabOrder = 7 + OnClick = pInactiveTabHeaderFontColorClick + end end object TabSheet2: TTabSheet Caption = 'Pane' - ClientHeight = 0 - ClientWidth = 0 + ClientHeight = 319 + ClientWidth = 528 ImageIndex = 1 object Label8: TLabel - Left = 12 - Height = 13 - Top = 40 - Width = 56 + AnchorSideTop.Control = pPaneBorderDark + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = LblCaptionBackground + AnchorSideRight.Side = asrBottom + Left = 60 + Height = 15 + Top = 41 + Width = 61 + Anchors = [akTop, akRight] Caption = 'Border dark' ParentColor = False end object Label21: TLabel - Left = 12 - Height = 13 - Top = 71 - Width = 55 + AnchorSideTop.Control = pPaneBorderLight + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = LblCaptionBackground + AnchorSideRight.Side = asrBottom + Left = 59 + Height = 15 + Top = 72 + Width = 62 + Anchors = [akTop, akRight] Caption = 'Border light' ParentColor = False end object Label9: TLabel - Left = 12 - Height = 13 - Top = 102 - Width = 66 + AnchorSideTop.Control = pPaneGradientFrom + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = LblCaptionBackground + AnchorSideRight.Side = asrBottom + Left = 47 + Height = 15 + Top = 103 + Width = 74 + Anchors = [akTop, akRight] Caption = 'Gradient from' ParentColor = False end object Label10: TLabel - Left = 12 - Height = 13 - Top = 133 - Width = 54 + AnchorSideTop.Control = pPaneGradientTo + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = LblCaptionBackground + AnchorSideRight.Side = asrBottom + Left = 62 + Height = 15 + Top = 134 + Width = 59 + Anchors = [akTop, akRight] Caption = 'Gradient to' ParentColor = False end object Label11: TLabel - Left = 12 - Height = 13 - Top = 161 - Width = 63 + AnchorSideTop.Control = cbPaneGradientKind + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = LblCaptionBackground + AnchorSideRight.Side = asrBottom + Left = 50 + Height = 15 + Top = 164 + Width = 71 + Anchors = [akTop, akRight] Caption = 'Gradient kind' ParentColor = False end - object Label12: TLabel + object LblCaptionBackground: TLabel + AnchorSideLeft.Control = TabSheet2 + AnchorSideTop.Control = pPaneCaptionBackground + AnchorSideTop.Side = asrCenter Left = 12 - Height = 13 - Top = 201 - Width = 96 + Height = 15 + Top = 208 + Width = 109 + BorderSpacing.Left = 12 Caption = 'Caption background' ParentColor = False end object Label13: TLabel - Left = 12 - Height = 13 - Top = 232 - Width = 85 + AnchorSideTop.Control = pPaneCaptionFont + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = LblCaptionBackground + AnchorSideRight.Side = asrBottom + Left = 27 + Height = 15 + Top = 239 + Width = 94 + Anchors = [akTop, akRight] Caption = 'Pane caption font' ParentColor = False end object sPaneRectangle: TShape - Left = 115 - Height = 163 - Top = 26 + AnchorSideLeft.Control = LblCaptionBackground + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = cbLinkPane + AnchorSideTop.Side = asrBottom + Left = 133 + Height = 165 + Top = 27 Width = 137 + BorderSpacing.Left = 12 + BorderSpacing.Top = 4 end object pPaneBorderDark: TPanel - Left = 123 + AnchorSideLeft.Control = cbLinkPane + AnchorSideTop.Control = cbLinkPane + AnchorSideTop.Side = asrBottom + Left = 141 Height = 25 - Top = 34 + Top = 36 Width = 121 + BorderSpacing.Top = 13 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -472,10 +694,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pPaneBorderDarkClick end object pPaneBorderLight: TPanel - Left = 123 + AnchorSideLeft.Control = pPaneBorderDark + AnchorSideTop.Control = pPaneBorderDark + AnchorSideTop.Side = asrBottom + Left = 141 Height = 25 - Top = 65 + Top = 67 Width = 121 + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -483,10 +709,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pPaneBorderLightClick end object pPaneGradientFrom: TPanel - Left = 123 + AnchorSideLeft.Control = pPaneBorderLight + AnchorSideTop.Control = pPaneBorderLight + AnchorSideTop.Side = asrBottom + Left = 141 Height = 25 - Top = 96 + Top = 98 Width = 121 + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -494,10 +724,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pPaneGradientFromClick end object pPaneGradientTo: TPanel - Left = 123 + AnchorSideLeft.Control = pPaneGradientFrom + AnchorSideTop.Control = pPaneGradientFrom + AnchorSideTop.Side = asrBottom + Left = 141 Height = 25 - Top = 127 + Top = 129 Width = 121 + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -505,11 +739,15 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pPaneGradientToClick end object cbPaneGradientKind: TComboBox - Left = 123 - Height = 21 - Top = 158 + AnchorSideLeft.Control = pPaneGradientTo + AnchorSideTop.Control = pPaneGradientTo + AnchorSideTop.Side = asrBottom + Left = 141 + Height = 23 + Top = 160 Width = 121 - ItemHeight = 13 + BorderSpacing.Top = 6 + ItemHeight = 15 ItemIndex = 0 Items.Strings = ( 'None' @@ -523,10 +761,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow Text = 'None' end object pPaneCaptionBackground: TPanel - Left = 123 + AnchorSideLeft.Control = cbPaneGradientKind + AnchorSideTop.Control = cbPaneGradientKind + AnchorSideTop.Side = asrBottom + Left = 141 Height = 25 - Top = 195 + Top = 203 Width = 121 + BorderSpacing.Top = 20 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -534,10 +776,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pPaneCaptionBackgroundClick end object pPaneCaptionFont: TPanel - Left = 123 + AnchorSideLeft.Control = pPaneCaptionBackground + AnchorSideTop.Control = pPaneCaptionBackground + AnchorSideTop.Side = asrBottom + Left = 141 Height = 25 - Top = 226 - Width = 73 + Top = 234 + Width = 57 + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Font' @@ -545,10 +791,16 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pPaneCaptionFontClick end object pPaneCaptionFontColor: TPanel + AnchorSideTop.Control = pPaneCaptionBackground + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = pPaneCaptionBackground + AnchorSideRight.Side = asrBottom Left = 202 Height = 25 - Top = 226 - Width = 42 + Top = 234 + Width = 60 + Anchors = [akTop, akRight] + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -556,10 +808,15 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pPaneCaptionFontColorClick end object cbLinkPane: TCheckBox - Left = 115 - Height = 17 - Top = 3 - Width = 153 + AnchorSideLeft.Control = LblCaptionBackground + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = TabSheet2 + Left = 141 + Height = 19 + Top = 4 + Width = 160 + BorderSpacing.Left = 20 + BorderSpacing.Top = 4 Caption = 'Link with tab and idle item' OnClick = cbLinkPaneClick TabOrder = 8 @@ -567,104 +824,154 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow end object TabSheet3: TTabSheet Caption = 'Item' - ClientHeight = 316 - ClientWidth = 557 + ClientHeight = 319 + ClientWidth = 528 ImageIndex = 2 object sItemRectangle: TShape - Left = 112 - Height = 240 - Top = 26 + AnchorSideTop.Control = cbLinkItem + AnchorSideTop.Side = asrBottom + Left = 107 + Height = 242 + Top = 27 Width = 137 + BorderSpacing.Top = 4 Visible = False end object Label1: TLabel - Left = 12 - Height = 13 - Top = 57 - Width = 30 + AnchorSideTop.Control = pItemIdleFrame + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = LblInnerLightColor + AnchorSideRight.Side = asrBottom + Left = 63 + Height = 15 + Top = 55 + Width = 33 + Anchors = [akTop, akRight] Caption = 'Frame' ParentColor = False end object Label7: TLabel - Left = 12 - Height = 13 - Top = 88 - Width = 66 + AnchorSideTop.Control = pItemIdleGradientFrom + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = LblInnerLightColor + AnchorSideRight.Side = asrBottom + Left = 22 + Height = 15 + Top = 86 + Width = 74 + Anchors = [akTop, akRight] Caption = 'Gradient from' ParentColor = False end object Label14: TLabel - Left = 12 - Height = 13 - Top = 119 - Width = 54 + AnchorSideTop.Control = pItemIdleGradientTo + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = LblInnerLightColor + AnchorSideRight.Side = asrBottom + Left = 37 + Height = 15 + Top = 117 + Width = 59 + Anchors = [akTop, akRight] Caption = 'Gradient to' ParentColor = False end object Label25: TLabel - Left = 12 - Height = 13 + AnchorSideTop.Control = cbItemIdleGradientKind + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = LblInnerLightColor + AnchorSideRight.Side = asrBottom + Left = 25 + Height = 15 Top = 147 - Width = 63 + Width = 71 + Anchors = [akTop, akRight] Caption = 'Gradient kind' ParentColor = False end object Label26: TLabel - Left = 12 - Height = 13 - Top = 278 - Width = 45 + AnchorSideTop.Control = pItemFont + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = LblInnerLightColor + AnchorSideRight.Side = asrBottom + Left = 47 + Height = 15 + Top = 284 + Width = 49 + Anchors = [akTop, akRight] Caption = 'Item font' ParentColor = False end - object Label27: TLabel - Left = 120 + object LblIdle: TLabel + AnchorSideLeft.Control = cbLinkItem + AnchorSideTop.Control = cbLinkItem + AnchorSideTop.Side = asrBottom + Left = 116 Height = 13 - Top = 32 + Top = 31 Width = 121 Alignment = taCenter AutoSize = False + BorderSpacing.Top = 8 Caption = 'Idle' ParentColor = False end object Label28: TLabel - Left = 12 - Height = 13 + AnchorSideTop.Control = pItemIdleCaptionColor + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = LblInnerLightColor + AnchorSideRight.Side = asrBottom + Left = 24 + Height = 15 Top = 177 - Width = 63 + Width = 72 + Anchors = [akTop, akRight] Caption = 'Caption color' ParentColor = False end object Label29: TLabel - Left = 12 - Height = 13 + AnchorSideTop.Control = pItemIdleInnerDark + AnchorSideTop.Side = asrCenter + AnchorSideRight.Control = LblInnerLightColor + AnchorSideRight.Side = asrBottom + Left = 13 + Height = 15 Top = 208 - Width = 76 + Width = 83 + Anchors = [akTop, akRight] Caption = 'Inner dark color' ParentColor = False end - object Label30: TLabel + object LblInnerLightColor: TLabel + AnchorSideLeft.Control = TabSheet3 + AnchorSideTop.Control = pItemIdleInnerLight + AnchorSideTop.Side = asrCenter Left = 12 - Height = 13 + Height = 15 Top = 239 - Width = 75 + Width = 84 + BorderSpacing.Left = 12 Caption = 'Inner light color' ParentColor = False end - object Label15: TLabel - Left = 255 + object LblHotTrack: TLabel + AnchorSideLeft.Control = pItemHottrackFrame + AnchorSideTop.Control = LblIdle + Left = 253 Height = 13 - Top = 32 + Top = 31 Width = 121 Alignment = taCenter AutoSize = False Caption = 'Hottrack' ParentColor = False end - object Label16: TLabel - Left = 391 + object LblActive: TLabel + AnchorSideLeft.Control = pItemActiveFrame + AnchorSideTop.Control = LblHotTrack + Left = 390 Height = 13 - Top = 32 + Top = 31 Width = 121 Alignment = taCenter AutoSize = False @@ -672,10 +979,15 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow ParentColor = False end object pItemFont: TPanel - Left = 120 + AnchorSideLeft.Control = pItemIdleInnerLight + AnchorSideTop.Control = pItemIdleInnerLight + AnchorSideTop.Side = asrBottom + Left = 116 Height = 25 - Top = 272 + Top = 279 Width = 121 + BorderSpacing.Top = 20 + BorderSpacing.Bottom = 4 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Font' @@ -683,11 +995,15 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pItemFontClick end object cbItemIdleGradientKind: TComboBox - Left = 120 - Height = 21 - Top = 144 + AnchorSideLeft.Control = pItemIdleGradientFrom + AnchorSideTop.Control = pItemIdleGradientTo + AnchorSideTop.Side = asrBottom + Left = 116 + Height = 23 + Top = 143 Width = 121 - ItemHeight = 13 + BorderSpacing.Top = 6 + ItemHeight = 15 ItemIndex = 0 Items.Strings = ( 'None' @@ -701,10 +1017,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow Text = 'None' end object pItemIdleGradientTo: TPanel - Left = 120 + AnchorSideLeft.Control = pItemIdleGradientFrom + AnchorSideTop.Control = pItemIdleGradientFrom + AnchorSideTop.Side = asrBottom + Left = 116 Height = 25 - Top = 113 + Top = 112 Width = 121 + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -712,10 +1032,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pItemIdleGradientToClick end object pItemIdleGradientFrom: TPanel - Left = 120 + AnchorSideLeft.Control = pItemIdleFrame + AnchorSideTop.Control = pItemIdleFrame + AnchorSideTop.Side = asrBottom + Left = 116 Height = 25 - Top = 82 + Top = 81 Width = 121 + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -723,10 +1047,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pItemIdleGradientFromClick end object pItemIdleFrame: TPanel - Left = 120 + AnchorSideLeft.Control = LblIdle + AnchorSideTop.Control = LblIdle + AnchorSideTop.Side = asrBottom + Left = 116 Height = 25 - Top = 51 + Top = 50 Width = 121 + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -734,10 +1062,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pItemIdleFrameClick end object pItemIdleCaptionColor: TPanel - Left = 120 + AnchorSideLeft.Control = cbItemIdleGradientKind + AnchorSideTop.Control = cbItemIdleGradientKind + AnchorSideTop.Side = asrBottom + Left = 116 Height = 25 - Top = 171 + Top = 172 Width = 121 + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -745,10 +1077,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pItemIdleCaptionColorClick end object pItemIdleInnerDark: TPanel - Left = 120 + AnchorSideLeft.Control = pItemIdleCaptionColor + AnchorSideTop.Control = pItemIdleCaptionColor + AnchorSideTop.Side = asrBottom + Left = 116 Height = 25 - Top = 202 + Top = 203 Width = 121 + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -756,10 +1092,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pItemIdleInnerDarkClick end object pItemIdleInnerLight: TPanel - Left = 120 + AnchorSideLeft.Control = pItemIdleInnerDark + AnchorSideTop.Control = pItemIdleInnerDark + AnchorSideTop.Side = asrBottom + Left = 116 Height = 25 - Top = 233 + Top = 234 Width = 121 + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -767,11 +1107,15 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pItemIdleInnerLightClick end object cbItemHottrackGradientKind: TComboBox - Left = 255 - Height = 21 - Top = 144 + AnchorSideLeft.Control = pItemHottrackGradientTo + AnchorSideTop.Control = pItemHottrackGradientTo + AnchorSideTop.Side = asrBottom + Left = 253 + Height = 23 + Top = 143 Width = 121 - ItemHeight = 13 + BorderSpacing.Top = 6 + ItemHeight = 15 ItemIndex = 0 Items.Strings = ( 'None' @@ -785,10 +1129,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow Text = 'None' end object pItemHottrackGradientTo: TPanel - Left = 255 + AnchorSideLeft.Control = pItemHottrackGradientFrom + AnchorSideTop.Control = pItemHottrackGradientFrom + AnchorSideTop.Side = asrBottom + Left = 253 Height = 25 - Top = 113 + Top = 112 Width = 121 + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -796,10 +1144,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pItemHottrackGradientToClick end object pItemHottrackGradientFrom: TPanel - Left = 255 + AnchorSideLeft.Control = pItemHottrackFrame + AnchorSideTop.Control = pItemHottrackFrame + AnchorSideTop.Side = asrBottom + Left = 253 Height = 25 - Top = 82 + Top = 81 Width = 121 + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -807,10 +1159,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pItemHottrackGradientFromClick end object pItemHottrackFrame: TPanel - Left = 255 + AnchorSideLeft.Control = pItemIdleFrame + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = pItemIdleFrame + Left = 253 Height = 25 - Top = 51 + Top = 50 Width = 121 + BorderSpacing.Left = 16 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -818,10 +1174,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pItemHottrackFrameClick end object pItemHottrackCaptionColor: TPanel - Left = 255 + AnchorSideLeft.Control = cbItemHottrackGradientKind + AnchorSideTop.Control = cbItemHottrackGradientKind + AnchorSideTop.Side = asrBottom + Left = 253 Height = 25 - Top = 171 + Top = 172 Width = 121 + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -829,10 +1189,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pItemHottrackCaptionColorClick end object pItemHottrackInnerDark: TPanel - Left = 255 + AnchorSideLeft.Control = pItemHottrackCaptionColor + AnchorSideTop.Control = pItemHottrackCaptionColor + AnchorSideTop.Side = asrBottom + Left = 253 Height = 25 - Top = 202 + Top = 203 Width = 121 + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -840,10 +1204,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pItemHottrackInnerDarkClick end object pItemHottrackInnerLight: TPanel - Left = 255 + AnchorSideLeft.Control = pItemHottrackInnerDark + AnchorSideTop.Control = pItemHottrackInnerDark + AnchorSideTop.Side = asrBottom + Left = 253 Height = 25 - Top = 233 + Top = 234 Width = 121 + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -851,11 +1219,15 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pItemHottrackInnerLightClick end object cbItemActiveGradientKind: TComboBox - Left = 391 - Height = 21 - Top = 144 + AnchorSideLeft.Control = pItemActiveGradientTo + AnchorSideTop.Control = pItemActiveGradientTo + AnchorSideTop.Side = asrBottom + Left = 390 + Height = 23 + Top = 143 Width = 121 - ItemHeight = 13 + BorderSpacing.Top = 6 + ItemHeight = 15 ItemIndex = 0 Items.Strings = ( 'None' @@ -869,10 +1241,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow Text = 'None' end object pItemActiveGradientTo: TPanel - Left = 391 + AnchorSideLeft.Control = pItemActiveGradientFrom + AnchorSideTop.Control = pItemActiveGradientFrom + AnchorSideTop.Side = asrBottom + Left = 390 Height = 25 - Top = 113 + Top = 112 Width = 121 + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -880,10 +1256,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pItemActiveGradientToClick end object pItemActiveGradientFrom: TPanel - Left = 391 + AnchorSideLeft.Control = pItemActiveFrame + AnchorSideTop.Control = pItemActiveFrame + AnchorSideTop.Side = asrBottom + Left = 390 Height = 25 - Top = 82 + Top = 81 Width = 121 + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -891,10 +1271,15 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pItemActiveGradientFromClick end object pItemActiveFrame: TPanel - Left = 391 + AnchorSideLeft.Control = pItemHottrackFrame + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = pItemHottrackFrame + Left = 390 Height = 25 - Top = 51 + Top = 50 Width = 121 + BorderSpacing.Left = 16 + BorderSpacing.Right = 16 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -902,10 +1287,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pItemActiveFrameClick end object pItemActiveCaptionColor: TPanel - Left = 391 + AnchorSideLeft.Control = cbItemActiveGradientKind + AnchorSideTop.Control = cbItemActiveGradientKind + AnchorSideTop.Side = asrBottom + Left = 390 Height = 25 - Top = 171 + Top = 172 Width = 121 + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -913,10 +1302,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pItemActiveCaptionColorClick end object pItemActiveInnerDark: TPanel - Left = 391 + AnchorSideLeft.Control = pItemActiveCaptionColor + AnchorSideTop.Control = pItemActiveCaptionColor + AnchorSideTop.Side = asrBottom + Left = 390 Height = 25 - Top = 202 + Top = 203 Width = 121 + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -924,10 +1317,14 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pItemActiveInnerDarkClick end object pItemActiveInnerLight: TPanel - Left = 391 + AnchorSideLeft.Control = pItemActiveInnerDark + AnchorSideTop.Control = pItemActiveInnerDark + AnchorSideTop.Side = asrBottom + Left = 390 Height = 25 - Top = 233 + Top = 234 Width = 121 + BorderSpacing.Top = 6 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Color' @@ -935,10 +1332,15 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow OnClick = pItemActiveInnerLightClick end object cbLinkItem: TCheckBox - Left = 112 + AnchorSideLeft.Control = LblInnerLightColor + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = TabSheet3 + Left = 116 Height = 19 - Top = 3 - Width = 128 + Top = 4 + Width = 140 + BorderSpacing.Left = 20 + BorderSpacing.Top = 4 Caption = 'Link with tab and pane' OnClick = cbLinkItemClick TabOrder = 22 @@ -946,32 +1348,53 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow end object TabSheet4: TTabSheet Caption = 'Import / export' - ClientHeight = 0 - ClientWidth = 0 + ClientHeight = 326 + ClientWidth = 549 ImageIndex = 3 object bImport: TButton - Left = 119 + AnchorSideLeft.Control = bExport + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = TabSheet4 + Left = 118 Height = 25 - Top = 3 + Top = 4 Width = 110 + BorderSpacing.Left = 4 + BorderSpacing.Top = 4 Caption = 'Import from XML' OnClick = bImportClick TabOrder = 0 end object bExport: TButton - Left = 3 + AnchorSideLeft.Control = TabSheet4 + AnchorSideTop.Control = TabSheet4 + Left = 4 Height = 25 - Top = 3 + Top = 4 Width = 110 + BorderSpacing.Left = 4 + BorderSpacing.Top = 4 Caption = 'Export to XML' OnClick = bExportClick TabOrder = 1 end object mXML: TMemo - Left = 3 - Height = 244 - Top = 34 - Width = 539 + AnchorSideLeft.Control = TabSheet4 + AnchorSideTop.Control = bImport + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = TabSheet4 + AnchorSideRight.Side = asrBottom + AnchorSideBottom.Control = TabSheet4 + AnchorSideBottom.Side = asrBottom + Left = 4 + Height = 289 + Top = 33 + Width = 541 + Anchors = [akTop, akLeft, akRight, akBottom] + BorderSpacing.Left = 4 + BorderSpacing.Top = 4 + BorderSpacing.Right = 4 + BorderSpacing.Bottom = 4 Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' @@ -981,47 +1404,79 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow end object TabSheet5: TTabSheet Caption = 'Tools' - ClientHeight = 316 - ClientWidth = 557 + ClientHeight = 326 + ClientWidth = 549 ImageIndex = 4 object Label17: TLabel - Left = 3 - Height = 13 - Top = 8 - Width = 83 + AnchorSideLeft.Control = TabSheet5 + AnchorSideTop.Control = bReset + AnchorSideTop.Side = asrCenter + Left = 4 + Height = 15 + Top = 9 + Width = 87 + BorderSpacing.Left = 4 Caption = 'Reset to defaults' ParentColor = False end object bReset: TButton - Left = 120 + AnchorSideLeft.Control = Label17 + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = TabSheet5 + Left = 115 Height = 25 - Top = 3 + Top = 4 Width = 105 + BorderSpacing.Left = 24 + BorderSpacing.Top = 4 Caption = 'Reset' OnClick = bResetClick TabOrder = 0 end end end - object bOK: TButton - Left = 343 + object Panel1: TPanel + Left = 8 Height = 25 - Top = 494 - Width = 104 - Caption = 'OK' - Default = True - ModalResult = 1 + Top = 487 + Width = 520 + Align = alBottom + AutoSize = True + BorderSpacing.Around = 8 + BevelOuter = bvNone + ClientHeight = 25 + ClientWidth = 520 TabOrder = 2 - end - object bCancel: TButton - Left = 453 - Height = 25 - Top = 494 - Width = 104 - Cancel = True - Caption = 'Cancel' - ModalResult = 2 - TabOrder = 3 + object bOK: TButton + AnchorSideTop.Control = Panel1 + AnchorSideRight.Control = bCancel + Left = 410 + Height = 25 + Top = 0 + Width = 42 + Anchors = [akTop, akRight] + AutoSize = True + BorderSpacing.Right = 6 + Caption = 'OK' + Default = True + ModalResult = 1 + TabOrder = 0 + end + object bCancel: TButton + AnchorSideTop.Control = Panel1 + AnchorSideRight.Control = Panel1 + AnchorSideRight.Side = asrBottom + Left = 458 + Height = 25 + Top = 0 + Width = 62 + Anchors = [akTop, akRight] + AutoSize = True + Cancel = True + Caption = 'Cancel' + ModalResult = 2 + TabOrder = 1 + end end object cdColorDialog: TColorDialog Color = clBlack @@ -1047,8 +1502,8 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow 'ColorS=F0FBFF' 'ColorT=A4A0A0' ) - left = 7 - top = 459 + left = 304 + top = 328 end object fdFontDialog: TFontDialog Font.Color = clWindowText @@ -1056,7 +1511,503 @@ object frmAppearanceEditWindow: TfrmAppearanceEditWindow Font.Name = 'Tahoma' MinFontSize = 0 MaxFontSize = 0 - left = 39 - top = 459 + left = 416 + top = 328 + end + object LargeImages: TImageList + Height = 32 + Width = 32 + left = 45 + top = 472 + Bitmap = { + 4C69030000002000000020000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000073401050986F4CFF986F4CFF986F4CFF986F4CFF693000080000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000069300013986F4CFFF4E9E0FFF6EDE5FFF5ECE3FFE6D6C9FC986F4CFF6930 + 0019000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000986F4CFFF0E2D6FFFDEEE5FFFDEDE5FFFDEEE5FFFDEEE8FFE9D9CDFF986F + 4CFF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000986F4CFFF7EADFFFFDE6D8FFFDE5D7FFFDE6D8FFFDE8D9FFF2E3D7FF986F + 4CFF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000006930 + 00016930001A000000000000000000000000000000000000000000000000986F + 4CFFE5D2C1FAFCE1D0FFFCDDCAFFFCDDC9FFFCDDCAFFFCDFCDFFF5E5D8FF986F + 4CFF000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000069300002986F + 4CFF986F4CFF986F4CFF986F4CFF6930000769300009986F4CFF986F4CFFEAD8 + C8FCFBDCC9FFFBD7C0FFEECCB7FFF8D5BEFFFBD6C0FFFBD7C0FFFBE0CEFFCCB3 + 9DFE986F4CFF0000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000986F4CFFEEE5 + DBFDFDF6F2FFFBF0E9FFEBDCD0FE986F4CFF986F4CFFE8D2C0FCF6E2D3FFFBD7 + C1FFF8D3BDFFF8D3BCFFD0B29EFFDFBEA8FFF7D2BAFFF8D3BCFFF8D3BDFFF6DF + CDFFC4A78CF9986F4CFF69300001000000000000000000000000693000046930 + 00040000000000000000000000000000000000000000986F4CFFE3D6C9FBFDFB + F6FFFEF4EDFFFDECE3FFFDE6D8FFFCE3D3FFFBDFCDFFFBD7C1FFF8D3BDFFF7D2 + BAFFF6D0B7FFF6D0B6FFCDAD99FFAD9482FFF5CEB6FFF6D0B6FFF6D0B7FFF7D2 + BAFFF8DFCEFFE9D5C3FD986F4CFF986F4CFF986F4CFF986F4CFF986F4CFF986F + 4CFF00000000000000000000000000000000000000008C603AD1F7F2EBFFFEF6 + F3FFFEEEE6FFE8D5C8FFBCA99BFFAA9486FF998375FFD5B4A0FFF6D1B9FFF5CE + B6FFF4CDB4FFF4CCB3FFC9A893FFCDAB95FFF3CAB2FFF4CCB3FFF4CDB4FFF5CE + B6FFF6D1B9FFEAC8B3FFF6DBC9FFF4E0D1FFF6E5D7FFFBEAE0FFFCEEE6FFE6D8 + CCFE986F4CFF000000000000000000000000693000069D7754E8FBF3ECFFFEF3 + EBFFFBE9DCFF000000FF000000FF000000FF000000FF000000FFA28A79FFF3CC + B3FFF3C9AEFFF0C8ADFFD8B49DFFD7B39BFFF0C7ACFFF0C8ADFFF3C9AEFF9B87 + 79FF000000FF000000FF000000FF000000FF000000FFFDE3D3FFFDEBDFFFFCF0 + EAFF986F4CFF6835040B000000000000000000000000986F4CFFCEBAA8FDFCED + E5FFFDE8D9FFFCDFCDFFE3C4AEFF000000FFFFFFFFFFFFFFFFFF24221EFFF2C8 + ADFFF0C6ABFFEEC4A9FFECC1A7FFE2B79EFFEEC3A8FFEEC4A9FFF0C6ABFF0000 + 00FFFFFFFFFFFFFFFFFF000000FFE9C6B1FFB59E8CFFFCDFCDFFFDE6D8FFFCE6 + D9FFDFCEBEFF986F4CFF00000000000000000000000000000000986F4CFFDDCC + BDFFFCE5D6FFFCDBC7FFFBD6BEFFE5C3ACFF000000FF000000FF000000FFEEC4 + AAFFEDC1A7FFECC0A4FFEBBFA2FFEBBEA2FFEBBFA2FFECC0A4FFE5BDA1FF0000 + 00FF000000FF000000FFE5C0AAFFF7D2BAFFFBD6BEFFFCD7C0FFFBD5BEFFFCDF + CDFFF0E2D6FF986F4CFF0000000000000000000000000000000000000000986F + 4CFFF7E3D5FFFCD7C1FFF8D3BDFFF6D0B7FFF4CCB4FFF2C9AEFF000000FFE6BC + A1FFECBFA2FFEBBDA0FFE9BC9FFFE9BA9EFFE9BC9FFFEBBDA0FFE2B69BFF0000 + 00FFEEC1A7FFF0C4A8FFF2C1A4FFF3C0A0FFF6BF9EFFF8BE9DFFFBD0B5FFF4E2 + D5FF986F4CFF5B4F44E90000000000000000000000000000000000000000986F + 4CFFF4E0D2FFFBD6C0FFF8D2BCFFF5CEB6FFF3CAB2FFF0C7ACFF000000FFD8B1 + 96FFEABDA0FFE9BA9DFFE8B799FFE6B697FFE2AB88FFDF9E74FFDC9465FF0000 + 00FFE39E71FFE8A278FFEBA980FFEEAE88FFF4B58FFFF7C1A1FFE6D0BDFF825D + 38FF58524BFD565656650000000000000000000000000000000000000000986F + 4CFFF3E1D3FFFBD6BFFFF7D2BAFFF5CDB5FFF3C9B1FFF0C6ABFF000000FFE3B9 + 9DFFE9BA9EFFE8B699FFE3B18FFFD58A59FFD38452FFD78857FFDB8E5EFF0000 + 00FFE29B6EFFE6A175FFEAA87EFFEEAD86FFF3B48EFFF2D1BAFF865E3AFF5656 + 56DA56565639000000000000000000000000000000000000000000000000986F + 4CFFF8E2D3FFFBD6BEFFF7D2BAFFF4CDB4FFF3C9B1FFCDA993FF000000FFEBBE + A1FFE9B99BFFE3B393FFD58858FFCE7C45FFD1804CFFD58654FFD98C5BFF0000 + 00FFBF835DFFE6A074FFEAA77DFFEDAD84FFF3B48DFFE3C9B4FF5E4C3CFB5656 + 562500000000000000000000000000000000000000000000000069300019986F + 4CFFFCDDCAFFFBD6BEFFF7D2BAFFF4CDB4FFF2C8AEFF000000FFD6AE96FFEBBE + A1FFE9B99DFFDC9B72FFD1804CFFCE7C48FFD1804CFFD58654FFD98C5DFFD38D + 5FFF000000FFE6A074FFEAA77DFFEDAD84FFF4BE9DFF986F4CFF58524ABE0000 + 0000000000000000000000000000000000000000000069300025986F4CFFF3E2 + D6FFFCDDC9FFFBD6BFFFF7D2BAFFF5CDB5FF786558FF000000FFEDC1A7FFEBBE + A2FFE2B294FFA26A44FFC37A4BFFCC7E4CFFAB6C42FFC17D4FFFDB8E5EFFDF95 + 67FF000000FFD3946BFFEAA87EFFEEAD86FFF3B996FF986F4CFF58524A880000 + 00000000000000000000000000000000000078441655986F4CFFF6EBE1FFFDE8 + D9FFFCDFCCFFFBD7C0FFF8D3BCFFF5CEB6FF000000FF9B8271FFEEC4A9FFCEA8 + 8EFF000000FF000000FF000000FF000000FF000000FF000200FF8E5F40FFE097 + 69FF9B6B4CFF000000FFEBA980FFEEAE88FFF4B68FFF986F4CFF5B4B3C8D0000 + 000000000000000000000000000069300003986F4CFFFBF3ECFFFEF2EAFFFDE9 + DDFFFDE1D0FFFCD8C1FFF8D3BDFFF6D0B7FF000000FFEBC3AAFFF0C6AAFFE5AD + 8AFF432F20FF000000FF000000FF000000FF000000FF271B12FFDC9467FFE29B + 6EFFD8966EFF000000FFEDAB83FFF2B28BFFF5B793FFEED3BFFF986F4CFF6930 + 000100000000000000000000000000000000986F4CFFFCF6F2FFFEF4EDFFFDEB + E1FFFDE3D3FFFCDBC7FFFBD6BEFFF5CEB7FF000000FFE6B99BFFEAAB84FFE5A0 + 74FFE0996CFF543A28FF000000FF000000FF3E2B1DFFD69165FFE29B6EFFE5A0 + 74FFDB9972FF000000FFEEAE87FFF3B48EFFF6BA95FFF8C8AAFFE5CEBDFF986F + 4CFF00000000000000000000000000000000986F4CFFF4EBE3FFFEF6F3FFFDEE + E6FFFDE8D9FFFCDFCDFFFBCDB1FFF4B995FF000000FFAD8060FFE8A77EFFE9A4 + 7AFFE6A175FFE59E72FF5D412DFF302419FFE19B6EFFE59E72FFE6A175FFE8A3 + 79FF755641FF000000FFF2B38CFFF5B793FFF8BE99FFF8C9ACFFFBDDC9FFD5BD + AAFD986F4CFF0000000000000000000000006930001E986F4CFFFBF4EDFFFEF3 + EBFFFCEADDFFF8DCCAFFF8CCAEFFF7BC97FFD19D7CFF000000FFE3A780FFEBAA + 81FFEAA77DFFE9A379FFD0936CFFC18A64FFE8A278FFE9A379FFEAA77DFFEAA9 + 80FF000000FFD29D79FFF4B691FFF7BC97FFF8C6A4FFFBD1B7FFFCDDCCFFE8D6 + C8FF986F4CFF0000000000000000000000000000000074451B67986F4CFFDCC9 + BAFF986F4CFF986F4CFF986F4CFFDFC7B3FFF4C9ACFFCC997AFFF2B38CFFEEAE + 87FFEDAC83FFECAA81FFE9A87EFFEBA97EFFEBA980FFECAA81FFEDAC83FFECAD + 86FFE2A883FFF4B691FFF6BC96FFF8C3A1FFFBCDB3FFFCD9C4FFFCE9DCFF986F + 4CFF575452CF00000000000000000000000000000000000000006140206E594D + 42FA575452E6565656A85656567D684E39CA986F4CFFEDCDB6FFF5B793FFF3B5 + 8EFFF2B38BFFF0B188FFEEAE87FFEEAE87FFEEAE87FFF0B188FFF3B995FFF4D0 + B6FFEACDB7FFE0C6B2FFE6CEBAFFF8D8C3FFFBD8C3FFFBE5D7FFDCCABCFF986F + 4CFF565656590000000000000000000000000000000000000000000000005656 + 5601000000000000000000000000000000005E483336986F4CFFF0CCB2FFF6BA + 96FFF5B993FFF4B691FFF4B58FFFF3B58EFFF4B58FFFF4C4A7FFE0C8B4FF986F + 4CFF986F4CFF986F4CFF986F4CFF986F4CFFD6BEABFFD1BCA8FF986F4CFF5656 + 56C0565656040000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000067350833986F4CFFF8C8 + A9FFF8BF9DFFF7BD98FFF7BC97FFF7BC97FFF6CEB4FFC3A48CFF986F4CFF5656 + 56D55656565F565656120000000057555331986F4CFF986F4CFF565656B75656 + 5609000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000986F4CFFFBD9 + C4FFFBCDB2FFF8CAACFFF8C8AAFFF8C8A9FFE3CAB7FF986F4CFF565656875656 + 5604000000000000000000000000000000000000000056565608565656050000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000986F4CFFFBE6 + D8FFFCDBC7FFFCD8C1FFFBD6BFFFFBDBC8FF986F4CFF57544FC2000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000986F4CFFE9D8 + CAFFF7E9DDFFFCE9DDFFFBE9DDFFF6EADFFF986F4CFF56565672000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000069300016694A + 2CB7986F4CFF986F4CFF986F4CFF986F4CFF5D4F44FC5656561E000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00005656562756565672565656955656567D5656565000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFF4F403000000000000000000000000000000000000 + 000000000000FFF4F4B2FFF4F48DFFF4F4010000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFF4F42DFFF4F4420000000000000000000000000000 + 000000000000FFF4F454FFF4F4FFFFF4F4A6FFF4F40600000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFF4F44AFFF4F4BF0000000000000000000000000000 + 000000000000FFF4F407FEF3F3F0DFC7C0FFFFF4F4B8FFF4F403000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFF4F468FFF4F4FFFFF4F43C00000000000000000000 + 00000000000000000000FFF4F49DC7A69AFFDDC6BEFFFFF4F48C000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFF4F484E8D3CEFFFFF4F4B200000000000000000000 + 0000FFF4F40BFFF4F493F3E4E1FCB79282FF9C6B55FFE5D1CBFFFFF4F49BFFF4 + F406000000000000000000000000000000000000000000000000FFF4F4040000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFF4F4A0BD998AFFFAEDECF9FFF4F4C2FFF4F4AFFFF4 + F412FFF4F412FBEEEDFE9B6953FF96634CFF96634CFF996650FFD7BCB3FFFFF4 + F4B8000000000000000000000000000000000000000000000000FFF4F47F0000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFF4F4BDAD8371FFA67865FFA97E6BFFCEB0A5FFFFF4 + F4AB00000000FFF4F4D4A47663FF96634CFF96634CFF96634CFF96634CFFE5D0 + CAFFFFF4F45C00000000000000000000000000000000FFF4F408FFF4F4FAFFF4 + F42D000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000FFF3F3EB9B6A54FF96634CFF96634CFF9B6A54FFFDF1 + F0EEFFF4F40AFFF4F489CAAB9FFF96634CFF96634CFF96634CFF96634CFFA97D + 6AFFFEF2F2E8FFF4F40C000000000000000000000000FFF4F436FDF0F0FFFFF4 + F4AC000000000000000000000000000000000000000000000000000000000000 + 000000000000FFF4F41EF1E1DDFF96634CFF96634CFF96634CFF96634CFFD7BC + B3FFFFF4F471FFF4F450DAC2BAFF96634CFF96634CFF96634CFF96634CFF9663 + 4CFFEEDCD9FFFFF4F422000000000000000000000000FFF4F44CE2CCC5FFF3E3 + E0FEFFF4F42D0000000000000000000000000000000000000000000000000000 + 000000000000FFF4F453DCC4BCFF96634CFF96634CFF96634CFF96634CFFA476 + 63FFFDF2F1E8FFF4F453DEC6BFFF96634CFF96634CFF96634CFF96634CFF9663 + 4CFFF3E3E0FFFFF4F4120000000000000000FFF4F475FBEEEEF9D5B9B0FFC29F + 91FFFFF4F4A80000000000000000000000000000000000000000000000000000 + 000000000000FFF4F479CEB1A6FF96634CFF96634CFF96634CFF96634CFF9663 + 4CFFD3B8AFFFFFF4F4B2EAD7D3FF96634CFF96634CFF96634CFF96634CFFBF9C + 8DFFFEF3F3E0FFF4F40200000000FFF4F41FF8E9E7F89E6E58FF96634CFF9967 + 51FFF6E8E6FCFFF4F41E00000000FFF4F40F0000000000000000000000000000 + 000000000000FFF4F432EFDEDAFF96634CFF96634CFF96634CFF96634CFF9663 + 4CFFAB806DFFFFF4F4D0FFF4F4D1D1B5ABFFAA7F6CFFAC816FFFC9A99DFFFFF4 + F4D6FFF4F41B0000000000000000FFF4F49DC4A396FF96634CFF96634CFF9663 + 4CFFD0B3A8FFFFF4F47600000000FFF4F47AFFF4F41900000000000000000000 + 00000000000000000000FFF4F4CFB28A79FF96634CFF96634CFF96634CFF9663 + 4CFFCAAB9FFFFFF4F4BBFFF4F40BFFF4F4A0FFF4F4C4FFF4F4BDFFF4F4A8FFF4 + F4140000000000000000FFF4F415F9EBEAF79B6A54FF96634CFF96634CFF9663 + 4CFFAB816FFFFFF4F4CC00000000FFF4F464FFF4F4C6FFF4F406000000000000 + 00000000000000000000FFF4F441FDF1F0E7CCADA2FFB69080FFBA9586FFD8BE + B6FFFFF4F4C3FFF4F41400000000000000000000000000000000000000000000 + 00000000000000000000FFF4F47CD2B6ACFF96634CFF96634CFF96634CFF9663 + 4CFF96634CFFF6E7E5FFFFF4F412FFF4F434FFF4F4FFFFF4F49A00000000FFF4 + F414000000000000000000000000FFF4F411FFF4F490FFF4F4A3FFF4F49DFFF4 + F481FFF4F4060000000000000000000000000000000000000000000000000000 + 000000000000FFF4F402FFF4F4E2A77B67FF96634CFF96634CFF96634CFF9663 + 4CFF96634CFFFBEEEEFCFFF4F403FFF4F409FCEFEEFCEBD8D4FFFFF4F4D1FBEE + EEFFFFF4F4BAFFF4F43D00000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFF4F408F9ECEBFF96634CFF96634CFF96634CFF96634CFF9663 + 4CFFA87C69FFFFF4F4E20000000000000000FFF4F4D8B38B7BFFB79181FF9866 + 50FFBA9485FFF0E0DDFFFFF4F499FFF4F40C0000000000000000000000000000 + 0000000000000000000000000000FFF4F40DFFF4F44CFFF4F488FFF4F479FFF4 + F454FFF4F42400000000FFF4F4DDBB9586FF96634CFF96634CFF96634CFF9C6B + 56FFECDAD6FFFFF4F4580000000000000000FFF4F4AAB79181FF96634CFF9663 + 4CFF96634CFF9A6852FFD2B6ACFFFFF3F3DEFFF4F43F00000000000000000000 + 000000000000FFF4F438FFF4F4C6FAECEBFBE0C9C2FFC6A598FFC9AA9FFFDAC1 + B9FFF8EAE8F9FFF4F448FFF4F424FFF4F4DAE8D4CFFFD1B5ABFFD7BDB5FFFAEC + EBF7FFF4F47F000000000000000000000000FFF4F46DD2B6ACFF96634CFF9663 + 4CFF96634CFF96634CFF96634CFFB08775FFF1E0DCFEFFF4F469000000000000 + 0000FFF4F45AF8EAE7F8B69080FF98654FFF96634CFF96634CFF96634CFF9663 + 4CFFAA7E6CFFF8EAE8F8FFF4F43EFFF4F401FFF4F443FFF4F468FFF4F461FFF4 + F41300000000000000000000000000000000FFF4F420F1E0DDFF96634CFF9663 + 4CFF96634CFF96634CFF96634CFF96634CFFA57763FFFFF4F4E0FFF4F402FFF4 + F42BF3E4E1FFA47663FF96634CFF96634CFF96634CFF96634CFF96634CFF9663 + 4CFF96634CFFAC8270FFF9EBEAF4FFF4F4420000000000000000000000000000 + 00000000000000000000000000000000000000000000FFF4F4C5BB9788FF9663 + 4CFF96634CFF96634CFF96634CFF96634CFF9E6E58FFFDF1F0F2FFF4F408FFF4 + F458D7BDB4FF96634CFF96634CFF96634CFF96634CFF96634CFF96634CFF9663 + 4CFF96634CFF96634CFFAE8372FFEBD9D4FFFFF4F4E2FFF4F48FFFF4F42E0000 + 00000000000000000000000000000000000000000000FFF4F42AF9EBE9F8A476 + 63FF96634CFF96634CFF96634CFF96634CFFCDAFA4FFFFF4F49C00000000FFF4 + F481C6A699FF96634CFF96634CFF96634CFF96634CFF96634CFF96634CFF9663 + 4CFF96634CFF96634CFF96634CFF96634CFFA1725DFFC6A598FFF5E6E3FFFFF4 + F439000000000000000000000000000000000000000000000000FFF4F460FAED + ECF5C9A99DFFB99384FFC19F91FFDCC4BCFFFFF4F4C9FFF4F41B00000000FFF4 + F4A9B79181FF96634CFF96634CFF96634CFF96634CFF96634CFF96634CFF9663 + 4CFF96634CFF96634CFF96634CFF96634CFF96634CFF96634CFFBF9C8EFFFFF4 + F4A200000000000000000000000000000000000000000000000000000000FFF4 + F41EFFF4F499FFF4F4A3FFF4F490FFF4F470FFF4F40600000000FFF4F431FAED + ECF5A37561FF96634CFF96634CFF96634CFF96634CFF96634CFF96634CFF9663 + 4CFF96634CFF96634CFF96634CFF96634CFF96634CFF96634CFFA2745FFFFFF4 + F4DB000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFF4F41AFDF0F0EAB28A + 79FF96634CFF96634CFF96634CFF96634CFF96634CFF96634CFF96634CFF9663 + 4CFF96634CFF96634CFF96634CFF96634CFF96634CFF96634CFFAE8372FFFFF4 + F4BA000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000FFF4F402FFF4F4C0C4A396FF9663 + 4CFF96634CFF96634CFF96634CFF96634CFF96634CFF96634CFF96634CFF9663 + 4CFF96634CFF96634CFF96634CFF96634CFF96634CFF96634CFFC6A598FFFFF4 + F497000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFF4F4E5A1735EFF9663 + 4CFF96634CFF96634CFF96634CFF96634CFF96634CFF96634CFF96634CFF9663 + 4CFF96634CFF96634CFF96634CFF96634CFF96634CFFC09D8FFFFEF3F3E0FFF4 + F424000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFF4F4A4BD998BFF9663 + 4CFF96634CFF96634CFF96634CFF96634CFF96634CFF96634CFF96634CFF9663 + 4CFF96634CFF96634CFF97644DFFB38B7AFFDCC5BDFFFFF4F4D8FFF4F41C0000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFF4F434F5E6E4FAA071 + 5CFF96634CFF96634CFF96634CFF96634CFF96634CFF96634CFF96634CFF9765 + 4EFFAA7E6CFFCAAB9FFFF2E2DFFFFFF4F4C3FFF4F45FFFF4F40A000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFF4F46AF4E5 + E3FCC4A295FFB18877FFB28978FFB28A79FFB69080FFCBABA0FFE3CDC7FFFAEC + EBFBFFF4F4CAFFF4F488FFF4F428000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFF4 + F426FFF4F49EFFF4F4B6FFF4F4B4FFF4F4B2FFF4F4ABFFF4F47BFFF4F440FFF4 + F40A000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008747 + 2D0B8F4E333C965338649C573C819C573C81965338648F4E333C87472D0B0000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000090543C0E9B583D7EA76246B5B269 + 4CE4BF7557FFC98366FFD08E75FFD08E75FFC98366FFBF7557FFB2694CE4A761 + 46B59B583D7E90543C0E00000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000A97C69079E5C417FB36F54DAD39881FFE5BEB1FFEFD8 + D0FFF4E3DFFFF6E7E4FFF6E9E5FFF6E9E5FFF6E7E4FFF4E3DFFFEFD8D0FFE5BE + B1FFD39881FFB47055DA9E5C417FA97C69070000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000995A4135AF6F54D0D7A18CFFE9CABFFFF2DED9FFF5E4E1FFF6E7 + E4FFF6E8E4FFF6E8E6FFF6E8E6FFF7E9E6FFF7E9E6FFF7E9E6FFF6E9E5FFF6E7 + E3FFF3E0DBFFEACCC2FFD7A28EFFAF6F55D0995A413500000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00009B5A3F59BA785EE2DDAD9BFFEBCDC4FFEFD8D0FFF0D9D3FFF0DAD3FFF0DA + D3FFF0DAD4FFF0DAD4FFF1DBD5FFF1DBD5FFF1DBD5FFF1DBD5FFF1DBD5FFF1DC + D6FFF1DCD5FFF0DAD4FFECD0C8FFDEB09EFFBA795EE29B5A3F59000000000000 + 0000000000000000000000000000000000000000000000000000000000009A58 + 3D59BE795DEEDBA894FFE6C3B6FFE9CABFFFEACCC1FFEACCC1FFEACCC1FFEACC + C2FFEACCC2FFEACDC2FFCDB3AAFF96847DFFEACDC2FFEBCDC3FFEBCDC3FFEBCD + C3FFEBCEC4FFEBCEC4FFEBCDC3FFE8C7BBFFDCAA98FFBF7A5FEE9A583D590000 + 000000000000000000000000000000000000000000000000000093513633B269 + 4CDFD19177FFDFB2A0FFE3BBACFFE3BDAEFFD8B4A6FFB29488FFE4BDAFFFE4BD + AFFFE4BDAFFFE4BDAFFFDCB7AAFF483C38FF987F76FFE4BEB1FFE5BFB1FFE5BF + B1FFE5BFB1FFE5C0B2FFE5C0B2FFE5BFB1FFE0B5A5FFD2937AFFB2694CDF9351 + 3633000000000000000000000000000000000000000087472D05A35A3CCAC778 + 58FFD3967EFFDBAA96FFDDAD9AFFDDAE9BFFC19788FF5C4840FFDEAE9CFFDEAE + 9CFFDEAE9CFFD3A595FF68524AFF4D3D37FF4F3E38FF907266FFDEB09EFFDEB0 + 9FFFDEB09FFFDEB09FFFDFB1A0FFDFB1A0FFDDAD9BFFD59A82FFC77859FFA35A + 3CCA87472D05000000000000000000000000000000009852367BC06C4AFFC677 + 57FFD08F75FFD49880FFD49981FFD49981FFAA7B68FF44322AFF5D4339FF7E5C + 4EFFD59B83FFCC947EFF513B32FF402E28FF402E28FF48352DFF886455FFD69D + 86FFD69D86FFD69E87FFD79E88FFD49C86FFD69E87FFD2937BFFC7785AFFC06C + 4AFF9852367B00000000000000000000000087472D0DAA5D3FD6C26D4BFFC471 + 50FFC87C5EFFCB8265FFCC8467FFCC8467FF845543FF3D271FFF3D281FFF4B31 + 27FFB5775DFFCC8669FF5A3B2FFF3D2820FF3D2820FF3D2820FF4D3328FFBD7D + 64FFCD886DFFCD886DFFCE896EFFAA715BFFA46C57FFCA8164FFC47251FFC26D + 4BFFAA5D3FD687472D0D00000000000000009751357BC06C4AFFC26D4BFFC26E + 4CFFC36F4DFFC36F4EFFC3704FFFC3704FFF5E3626FF3A2118FF3A2118FF3A22 + 18FF5E3626FFC47251FF653B2AFF3A2218FF3A2218FF3B2219FF3E241AFF9C5C + 42FFC57454FFC57454FFC57555FF9E5E44FF4D2D21FFC47151FFC26E4CFFC26D + 4BFFC06C4AFF9751357B0000000000000000A2593BB2C26D4BFFC26D4BFFC26D + 4BFFC26D4BFFC26D4BFFC26D4BFFC26D4BFF502D1FFF3A2016FF3A2016FF3A20 + 16FF45271BFFA65D40FF703F2CFF3A2117FF3A2117FF3A2117FF46281BFFA85F + 42FFC26E4CFFC26E4CFF7E4831FF4B2A1DFF3F2419FF9A573CFFC26D4BFFC26D + 4BFFC26D4BFFA2593BB20000000087472D0BAD5F40E2C26D4BFFC26D4BFFC26D + 4BFFC26D4BFFC26D4BFFC26D4BFFC26D4BFF5B3323FF3A2016FF3A2016FF3A20 + 16FF3A2016FF5E3524FFA35B3FFF4B2A1DFF46271BFF49291CFF915138FFC26D + 4BFFC26D4BFFB86747FF49291CFF3A2016FF3A2016FF5B3323FFC26D4BFFC26D + 4BFFC26D4BFFAD5F40E287472D0B8C4A303CB96746FFC26D4BFFC26D4BFFC26D + 4BFFC26D4BFFC26D4BFFC26D4BFFC26D4BFF9C583CFF45271BFF3A2016FF3A20 + 16FF45271BFF884D35FFC26D4BFFB86747FFAF6244FFB76747FFC26D4BFFC26D + 4BFFC26D4BFF76422EFF3B2117FF3A2016FF3A2016FF4B2A1DFFBA6948FFC26D + 4BFFC26D4BFFB96746FF8C4A303C944F3367BF6B49FFC26D4BFFC26D4BFFC26D + 4BFFC26D4BFFC26D4BFFC26D4BFFC26D4BFFC26D4BFFA75E41FF673A28FF6A3B + 29FF9B573CFFC26D4BFFC26D4BFFC26D4BFFC26D4BFFC26D4BFFC26D4BFFC26D + 4BFFC26D4BFF512E1FFF3A2016FF3A2016FF3A2016FF44261AFFA95F41FFC26D + 4BFFC26D4BFFBF6B49FF944F336797513584C26D4BFFC26D4BFFC26D4BFFB364 + 45FF6C3D2AFFAA5F42FF9A573CFFC26D4BFFC26D4BFFC26D4BFFC26D4BFFC26D + 4BFFC26D4BFFC26D4BFFC26D4BFFC26D4BFFC26D4BFFC26D4BFFC26D4BFFC26D + 4BFFBC6A49FF49291CFF3A2016FF3A2016FF3A2016FF49291CFFB96847FFC26D + 4BFFC26D4BFFC26D4BFF9751358497513584C26D4BFFC26D4BFFC26D4BFFBE6B + 4AFF3E2318FF45271BFF412519FF542F20FFA95F41FFC26D4BFFC26D4BFFC26D + 4BFFC26D4BFFC26D4BFFC26D4BFFC26D4BFFB36445FFA45C3FFFB76747FFC26D + 4BFFBB6948FF5B3323FF42251AFF402419FF48281CFF7E4731FFC26D4BFFC26D + 4BFFC26D4BFFC26D4BFF97513584944F3367BF6B49FFC26D4BFFC26D4BFFC26D + 4BFF522E20FF3A2016FF3A2016FF3A2016FF46271BFF74412DFFBF6B4AFFC26D + 4BFFC26D4BFFBE6B4AFF6D3D2AFF502D1FFF47281BFF412419FF48281CFF6639 + 27FFC16D4BFFC26D4BFF99563BFF9F593DFFBB6948FFC26D4BFFC26D4BFFC26D + 4BFFC26D4BFFBF6B49FF944F33678C4A303CB96746FFC26D4BFFC26D4BFFC26D + 4BFF713F2CFF3A2016FF3A2016FF3A2016FF3A2016FF3D2218FF6E3E2BFFC26D + 4BFFC06C4AFF542F21FF3D2218FF3A2016FF3A2016FF3A2016FF3A2016FF4024 + 19FF693B29FFC26D4BFFC26D4BFFC26D4BFFC26D4BFFC26D4BFFC26D4BFFC26D + 4BFFC26D4BFFB96746FF8C4A303C87472D0BAD5F40E2C26D4BFFC26D4BFFC26D + 4BFFB06344FF49291CFF3A2016FF3A2016FF3A2016FF3A2016FF5E3524FFC26D + 4BFFAC6142FF45271BFF3A2016FF3A2016FF3A2016FF3A2016FF3A2016FF3A20 + 16FF402419FF553021FF844A33FFB86747FFC26D4BFFC26D4BFFC26D4BFFC26D + 4BFFC26D4BFFAD5F40E287472D0B00000000A2593BB2C26D4BFFC26D4BFFC26D + 4BFFC26D4BFF8A4E36FF48281CFF3A2016FF3B2117FF4A291DFFA75E41FFC26D + 4BFF925238FF3B2117FF3A2016FF3A2016FF3A2016FF3A2016FF3A2016FF3A20 + 16FF3A2016FF3A2016FF3B2117FF48281CFFB16445FFC26D4BFFC26D4BFFC26D + 4BFFC26D4BFFA2593BB200000000000000009751357BC06C4AFFC26D4BFFC26D + 4BFFC26D4BFFC26D4BFFB16344FF894D35FF96543AFFB66646FFC26D4BFFC26D + 4BFF673A28FF3A2016FF3A2016FF3A2016FF3A2016FF3A2016FF3A2016FF3A20 + 16FF3A2016FF3A2016FF3A2016FF3A2016FF78442EFFC26D4BFFC26D4BFFC26D + 4BFFC06C4AFF9751357B000000000000000087472D0DAA5D3FD6C26D4BFFC26D + 4BFFC26D4BFFC26D4BFFC26D4BFFC26D4BFFC26D4BFFC26D4BFFC26D4BFF884D + 35FF44261AFF3A2016FF3A2016FF3A2016FF3A2016FF3A2016FF3A2016FF3A20 + 16FF3A2016FF3A2016FF3A2016FF3A2016FF864B34FFC26D4BFFC26D4BFFC26D + 4BFFAA5D3FD687472D0D0000000000000000000000009852367BBF6B49FFC26D + 4BFFC26D4BFFC26D4BFFC26D4BFFC26D4BFFC36E4DFFC46F4DFFB66848FF492A + 1DFF3A2117FF3A2016FF3A2117FF3A2017FF3A2117FF3A2117FF3A2116FF3A20 + 16FF3A2016FF3A2117FF3A2016FF48291CFFAD6143FFC26D4BFFC26D4BFFBF6B + 49FF9852367B0000000000000000000000000000000087472D05A3593BCAC26D + 4BFFC26D4BFFC26D4BFFC26E4CFFC67250FFCA7756FFCA7858FFC77657FF4E2F + 22FF3C231AFF3C2319FF3C2319FF3C2319FF3B2219FF3B2318FF3B2218FF3B22 + 18FF3B2118FF47281CFF532F21FFAA6042FFC26D4BFFC26D4BFFC26D4BFFA359 + 3BCA87472D050000000000000000000000000000000000000000914D3232AD5F + 40DDC26D4BFFC26D4BFFC97756FFD28264FFD28363FFD18262FFD18162FF8552 + 3EFF452A20FF3E261CFF3E261CFF3D251CFF3D251BFF40271DFF4E2F23FF5B37 + 28FF854F3AFFB76E50FFCA7958FFC77251FFC26D4BFFC26D4BFFAD5F40DD914D + 3232000000000000000000000000000000000000000000000000000000009550 + 3456B46444EBC26D4BFFD18263FFD98C6DFFD88C6DFFD88B6DFFD78A6CFFD68A + 6BFF9B634CFF5F3D2FFF603C2EFF5E3B2EFF694233FF9F644DFFCC7F61FFD383 + 64FFD18262FFD08161FFD18060FFCB7859FFC26D4BFFB46444EB955034560000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000095503456AD5F40DDCA7856FFDB8F71FFDD9375FFDE9476FFDE9476FFDD92 + 75FFDD9173FFDD9173FFDB8F72FFDB8F72FFDA8F71FFDA8E6FFFD98C6EFFD88C + 6DFFD88A6CFFD6896AFFD38466FFC77452FFAD5F40DD95503456000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000914D3232A55B3DCBC57150FFD48667FFDD9274FFE29879FFE198 + 7AFFE1987AFFE1967AFFE19778FFE09678FFDF9578FFDE9376FFDE9375FFDC91 + 73FFD88A6CFFD08061FFC3704EFFA45A3DCB914D323200000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000087472D059853377CAE6044D8C3704EFFC87554FFCF7E + 5EFFD08161FFD48465FFD58767FFD58768FFD38465FFD28261FFCF7D5DFFC975 + 53FFC36F4DFFAC6142D79953387C87472D050000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000087472D0D9751357BA3593CB3B062 + 43E3BA6949FFC16D4CFFC46F4EFFC46F4EFFC16D4CFFBA6949FFB06243E3A358 + 3CB39751357B87472D0D00000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008747 + 2D0B8D4B303B945034639952367F9952367F945034638D4B303B87472D0B0000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000 + } + end + object SmallImages: TImageList + left = 125 + top = 472 + Bitmap = { + 4C69030000001000000010000000000000000000000000000000000000000000 + 000000000000653E2F8C663E2EEB663F30E96643358300000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000067473BB5694639FFFDE6D8FFFDE6D8FF694639FF674A3FB1000000000000 + 000000000000000000000000000000000000000000000000000000000000582A + 180F694639FFFDE6D8FFFDE6D8FFFDE6D8FFFDE6D8FF694639FF674A3FB10000 + 00000000000000000000000000000000000067473BB9694639FF694639FF6946 + 39FFF3C0A0FFFAE1D1FFFDE6D8FFFDE6D8FFFDE6D8FFF3C0A0FF694639FF6946 + 39FF694639FF67473BB90000000067473BB967463AFFFDE6D8FFFDE6D8FFFDE6 + D8FFFDE6D8FFFDE6D8FFFDE6D8FFFDE6D8FFFDE6D8FFFDE6D8FFFDE6D8FFFDE6 + D8FFFDE6D8FF67463AFC67473BB967473BB9694639FFFDE6D8FF313131FF3131 + 31FF313131FF857468FFFDE6D8FFFDE6D8FF857468FF313131FF313131FF3131 + 31FFFDE6D8FF694639FF67473BB900000000694639FFEBB492FFFDE6D8FF3131 + 31FFFDFFFFFF313131FFF9DBC9FFEFBFA1FF313131FFFDFFFFFF313131FFEBB4 + 92FFEBB492FF694639FF000000000000000000000000694639FFFDE6D8FFFDE6 + D8FF857468FF313131FFEBB492FFEBB492FF313131FF857468FFEBB492FFEBB4 + 92FF694639FF00000000000000000000000000000000694639FFFDE6D8FFFDE6 + D8FF313131FFEBB492FFEBB492FFEBB492FFEBB492FF313131FFEBB492FFEBB4 + 92FF694639FF000000000000000000000000694639FFEBB492FFFDE6D8FFFDE6 + D8FF313131FFEBB492FF313131FF313131FFEBB492FF313131FFEBB492FFEBB4 + 92FFEBB492FF694639FF0000000067473BB9694639FFFDE6D8FFFCE2D2FFEBB4 + 92FF313131FFEBB492FF313131FF313131FFEBB492FF313131FFEBB492FFEBB4 + 92FFEBB492FF694639FF67473BB967473BB967463AFFFCE2D2FFEBB492FFEBB4 + 92FFEBB492FF656061FFEBB492FFEBB492FF656061FFEBB492FFEBB492FFEBB4 + 92FFEBB492FF67463AFF67473BB90000000067473BB9694639FF694639FF6946 + 39FFEBB492FFEBB492FFEBB492FFEBB492FFEBB492FFEBB492FF694639FF6946 + 39FF694639FF67473BB900000000000000000000000000000000000000000000 + 0000694639FFEBB492FFEBB492FFEBB492FFEBB492FF694639FF000000000000 + 0000000000007878780100000000000000000000000000000000000000000000 + 000067473BB9694639FFEBB492FFEBB492FF694639FF674A3FB1000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000068483CB4694639FF694639FF684A3E9A00000000000000000000 + 000000000000000000000000000080400000015B891C40000004804000008040 + 0000804000008040000080400000804000008040000080400000804000004000 + 0004015DA260015E9D3C8040000001649F40009DD3F3007FC2D1015BA3724000 + 0004804000004000000401599834015993340100400480400000015BA14C0074 + B9CD00B9E4FF00B2DAE901404004008EC28F00EEF8FF00D7F0FF007ECCFF005E + B1C10068BDAD0064AEDD0073C9F5006FC4F50068B6E10065BAC70065BDF300BB + E5FF00EBF7FF00E0F1FD014D8014008DC19100EEF8FF00D4EEFF0095D6FF0074 + D5F90084E1F1008BE5ED0079C4EF007DCBF10086DDF10083E4F30071CFFB00AC + DFFF00DDF2FF00D8EFFF01558E24016EAE6E00CBEBFF00ADDFFF0073D3F9008B + ECF101A0FFEC05A8FFEE008CD4E9005A8AF107A9FFF4009CFDEB0085E6F3006F + CDFB00B8E4FF00ACD7ED0140600801556A0C0097CEE10079CDFD0080DCF303A2 + FFEE0DB0FFFD0EB4FFFF009CE3E9008BCBEB0EB3FFFF0BAEFFF9009CFDEB0077 + D2F5007CCCFF007DBA9380400000804000000162A45A006CC2F7004067F70095 + A1FB007AA3F105B3FFF104B1FFF109B5FFF700AEFDE7007CA0F3008A95FB0047 + 76F70066BCF10154891A8040000080400000015DA5600086E7F304A6FFEF006B + 79FB00A4A4FF00668EF305AEFFF503B1FFF0004B64F700A9A9FF006980F703A3 + FFEF007FDFF501579B42804000008040000001589E2A008FEAE90FB2FFFF0DB7 + FFFF02B6FFEC006E98F301A9FFF000ACFFED006A92F505B8FFF30DB6FFFF0CAE + FFFB0083DEDF01507010804000008040000080400000008BE1C10EB4FFFF0CB9 + FFFF0088BBF1009FD7F100A0FBEF00A5FCF100BAFBEF006A92F309B8FFF90FB3 + FFFF007FCEA5804000008040000080400000804000000184D07C0DB4FFFC00A0 + E0ED006C92F506BDFFFA009FF9F1009FF9F106C0FFFB0087B8F1008DC7ED02AD + FFD90172B12E8040000080400000804000008040000080400000008BD493005A + 7EF500AEEAEF0099D3F3005981F9005983F700A7E2F305C1FFF7005679F50181 + C072804000008040000080400000011E3C260180FF2054AAFF3A4AA0FF3D003E + 5ED100B7F4EF00B7E8F500242CFD003643FD00C6FEF30099C9F3002F44DB399E + FF415DAEFF480180F824011D3A2C011632240485FF256FB7FF496AB3FF47006A + 9597008080FF00FFFFFF00A7A7FF00CCCCFF00FEFEFF008D92FD01335B6278BB + FF3C75B8FF440C88FF2E01162B2A0116221E01376D1C80C0FF02804000000140 + 400400B4CFD100A8A9FF008888FF009292FF00ACAFFF00B1D6A7400000048040 + 0000804000000109120E01102820804000008040000080400000804000008040 + 000080400000018BC14E00BBDE9500B3D9810160801080400000804000008040 + 0000804000008040000080400000804000008040000080400000804000004000 + 000401004D14010870204468FF261840FF2001056F1E01074712804000008040 + 00008040000080400000804000008040000080400000804000000109490E88A0 + FF3DF4F0FFB4FDFAFFE2FEFCFFFCFFFCFEFBFDF8FFDCEFEDFFA75E73FF2D0100 + 4008804000008040000080400000804000008040000001007518D4D7FF76FEF8 + FFE0FFFAFFE5FFFAFFE5FEF9FFE3FFFAFFE5FFFAFFE5FFFAFFE5FEF9FFD8BBC1 + FF5F010763128040000080400000804000001600400CC1C7FF62FFF6FDD1FFF6 + FDD1D2E0FFA1FFF6FDD1D5E2FFA20147976EFCF5FFC9FFF6FDD1FFF6FDD1FFF8 + FECF8EA1FF472000200880400000804000004069FF2CFEF2FFB2FFF3FCBBFAF2 + FFB200122AB787B6FF6E5DA5FF60000000FF2F8BFF55FFF3FCBBFFF3FCBBF2EE + FFAAF9EFFFA60130EF20804000001600400CCBCAFF66FFEDFCA5FFEDFCA5B7CA + FF78000000FF000F21BFB4CAFF76000103F700295D83FFEDFCA5ACC5FF73014B + AF5CFFEDFCA59FADFF524000000401006018EAD7FF71FFE9FB8FFFE9FB8FEEE3 + FF82000E22B9000B18C9D4D5FF767DACFF5ADCD9FF7AFFEBFF8B000D1FBF0005 + 0CE1F1E5FF85C5C5FF6001075512010D8028FFEAFB87CFD5FF71BCCCFF6AFCEA + FF84FFE9F68FFFE7F391FFE7F193FFE7F193FFE7F193BFCCFF6A000101FD000B + 1AC5FFEBF98BF3E2FF76011A6C280116802AFFE9EA83F1F1FF73000204F30009 + 16C9C6DBFF63FFE4D69D86BBFF5300234B850021448BE2EBFF6DA4C9FF5BDBE6 + FF6AFFE4D69DF3E6FF6A012570300119621A00F4F562FFDDB3AB0154A34E0000 + 00FF01366968FFE5C591000204EF000000FF000000FF00070CDB3FA5FF3FFFDD + B3ABFFDDB3ABD6DFFF500134801601004004BACCFF3EFFD996B7FFD896B7DFFE + F053FFE1A69D3AB4FF37000000FF000000FF000000FF000000FF000100FDD2FE + FF4BFFD897B55C92FF320100000480400000011F8436FFDC9683FFD379C9FFD3 + 79C9FFD379C900202F87000000FF000000FF000000FF000101F7001E2B8DFFE3 + 8C9B00EDC15A012C7C40804000008040000001162B06014EFF24FFCF68BFFFD1 + 61DFFFD160E1E700A65901262E8001343D6C7601EA31FFED8089FFD161DFFFCF + 70A9012E9E3A01408006804000008040000080400000012968160128A53600D4 + 6F7CFFCD48F3FFCB48F7FFCC48F7FFCC48F7FFCB48F7FFCC4AED00E694560125 + 8B4201366C1A804000008040000080400000804000008040000001162B06012E + 8438074DFF26E401FF2900DB7B6600E2885ABEE8FF290135BF300134803E0120 + 6008804000008040000080400000804000008040000080400000804000008040 + 00000127330A0140891A01367A32013680320140801C0127660A804000008040 + 0000804000008040000080400000 + } end end diff --git a/components/spktoolbar/designtime/spkte_AppearanceEditor.pas b/components/spktoolbar/designtime/spkte_AppearanceEditor.pas index d166bf6c2..ca2b8ed7e 100644 --- a/components/spktoolbar/designtime/spkte_AppearanceEditor.pas +++ b/components/spktoolbar/designtime/spkte_AppearanceEditor.pas @@ -12,8 +12,18 @@ uses spkt_Appearance; type + + { TfrmAppearanceEditWindow } + TfrmAppearanceEditWindow = class(TForm) gbPreview: TGroupBox; + SmallImages: TImageList; + LargeImages: TImageList; + Label18: TLabel; + LblInactiveTabHeaderFontColor: TLabel; + pInactiveTabHeaderFontColor: TPanel; + Panel1: TPanel; + SpkTab2: TSpkTab; tbPreview: TSpkToolbar; SpkTab1: TSpkTab; SpkPane1: TSpkPane; @@ -55,7 +65,7 @@ type Label11: TLabel; cbPaneGradientKind: TComboBox; pPaneCaptionBackground: TPanel; - Label12: TLabel; + LblCaptionBackground: TLabel; Label13: TLabel; pPaneCaptionFont: TPanel; Label1: TLabel; @@ -68,18 +78,18 @@ type pItemIdleGradientTo: TPanel; pItemIdleGradientFrom: TPanel; pItemIdleFrame: TPanel; - Label27: TLabel; + LblIdle: TLabel; Label28: TLabel; pItemIdleCaptionColor: TPanel; Label29: TLabel; pItemIdleInnerDark: TPanel; - Label30: TLabel; + LblInnerLightColor: TLabel; pItemIdleInnerLight: TPanel; cbItemHottrackGradientKind: TComboBox; pItemHottrackGradientTo: TPanel; pItemHottrackGradientFrom: TPanel; pItemHottrackFrame: TPanel; - Label15: TLabel; + LblHotTrack: TLabel; pItemHottrackCaptionColor: TPanel; pItemHottrackInnerDark: TPanel; pItemHottrackInnerLight: TPanel; @@ -87,7 +97,7 @@ type pItemActiveGradientTo: TPanel; pItemActiveGradientFrom: TPanel; pItemActiveFrame: TPanel; - Label16: TLabel; + LblActive: TLabel; pItemActiveCaptionColor: TPanel; pItemActiveInnerDark: TPanel; pItemActiveInnerLight: TPanel; @@ -95,7 +105,7 @@ type bCancel: TButton; cdColorDialog: TColorDialog; fdFontDialog: TFontDialog; - pTabHeaderFontColor: TPanel; + pActiveTabHeaderFontColor: TPanel; pPaneCaptionFontColor: TPanel; TabSheet4: TTabSheet; bImport: TButton; @@ -110,49 +120,62 @@ type TabSheet5: TTabSheet; Label17: TLabel; bReset: TButton; + + procedure bExportClick(Sender: TObject); + procedure bImportClick(Sender: TObject); + procedure bResetClick(Sender: TObject); + + procedure cbItemActiveGradientKindChange(Sender: TObject); + procedure cbItemHottrackGradientKindChange(Sender: TObject); + procedure cbItemIdleGradientKindChange(Sender: TObject); + procedure cbTabGradientKindChange(Sender: TObject); + procedure cbPaneGradientKindChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure FormShow(Sender: TObject); + + procedure pActiveTabHeaderFontColorClick(Sender: TObject); + procedure pInactiveTabHeaderFontColorClick(Sender: TObject); + + procedure cbLinkItemClick(Sender: TObject); + procedure cbLinkPaneClick(Sender: TObject); + procedure cbLinkTabClick(Sender: TObject); + procedure pTabFrameClick(Sender: TObject); procedure pTabGradientFromClick(Sender: TObject); procedure pTabGradientToClick(Sender: TObject); + procedure pPaneBorderDarkClick(Sender: TObject); procedure pPaneBorderLightClick(Sender: TObject); + procedure pPaneCaptionFontClick(Sender: TObject); + procedure pPaneCaptionFontColorClick(Sender: TObject); procedure pPaneGradientFromClick(Sender: TObject); procedure pPaneGradientToClick(Sender: TObject); procedure pPaneCaptionBackgroundClick(Sender: TObject); - procedure pItemIdleFrameClick(Sender: TObject); - procedure pItemIdleGradientFromClick(Sender: TObject); - procedure pItemIdleGradientToClick(Sender: TObject); - procedure pItemIdleCaptionColorClick(Sender: TObject); - procedure pItemIdleInnerDarkClick(Sender: TObject); - procedure pItemIdleInnerLightClick(Sender: TObject); - procedure pItemHottrackFrameClick(Sender: TObject); - procedure pItemHottrackGradientFromClick(Sender: TObject); - procedure pItemHottrackGradientToClick(Sender: TObject); - procedure pItemHottrackCaptionColorClick(Sender: TObject); - procedure pItemHottrackInnerDarkClick(Sender: TObject); - procedure pItemHottrackInnerLightClick(Sender: TObject); + + procedure pItemActiveCaptionColorClick(Sender: TObject); procedure pItemActiveFrameClick(Sender: TObject); procedure pItemActiveGradientFromClick(Sender: TObject); procedure pItemActiveGradientToClick(Sender: TObject); - procedure pItemActiveCaptionColorClick(Sender: TObject); procedure pItemActiveInnerDarkClick(Sender: TObject); procedure pItemActiveInnerLightClick(Sender: TObject); - procedure pTabHeaderFontClick(Sender: TObject); - procedure pPaneCaptionFontClick(Sender: TObject); + procedure pItemFontClick(Sender: TObject); - procedure cbTabGradientKindChange(Sender: TObject); - procedure cbPaneGradientKindChange(Sender: TObject); - procedure cbItemIdleGradientKindChange(Sender: TObject); - procedure cbItemHottrackGradientKindChange(Sender: TObject); - procedure cbItemActiveGradientKindChange(Sender: TObject); - procedure FormShow(Sender: TObject); - procedure pTabHeaderFontColorClick(Sender: TObject); - procedure pPaneCaptionFontColorClick(Sender: TObject); - procedure bExportClick(Sender: TObject); - procedure bImportClick(Sender: TObject); - procedure cbLinkTabClick(Sender: TObject); - procedure cbLinkPaneClick(Sender: TObject); - procedure cbLinkItemClick(Sender: TObject); - procedure bResetClick(Sender: TObject); + procedure pItemIdleCaptionColorClick(Sender: TObject); + procedure pItemIdleFrameClick(Sender: TObject); + procedure pItemIdleGradientFromClick(Sender: TObject); + procedure pItemIdleGradientToClick(Sender: TObject); + procedure pItemIdleInnerDarkClick(Sender: TObject); + procedure pItemIdleInnerLightClick(Sender: TObject); + + procedure pItemHottrackCaptionColorClick(Sender: TObject); + procedure pItemHottrackFrameClick(Sender: TObject); + procedure pItemHottrackGradientFromClick(Sender: TObject); + procedure pItemHottrackGradientToClick(Sender: TObject); + procedure pItemHottrackInnerDarkClick(Sender: TObject); + procedure pItemHottrackInnerLightClick(Sender: TObject); + + procedure pTabHeaderFontClick(Sender: TObject); + private { Private declarations } procedure SetLinkedFrameColor(AColor : TColor); @@ -187,83 +210,71 @@ implementation procedure TfrmAppearanceEditWindow.SetAppearance(const Value: TSpkToolbarAppearance); begin -tbPreview.Appearance.Assign(Value); + tbPreview.Appearance.Assign(Value); end; procedure TfrmAppearanceEditWindow.SetComboGradientKind(Combo: TComboBox; GradientType: TBackgroundKind); begin -case GradientType of - bkSolid: Combo.itemindex:=0; - bkHorizontalGradient: Combo.itemindex:=1; - bkVerticalGradient: Combo.itemindex:=2; - bkConcave: Combo.itemindex:=3; -end; + Combo.ItemIndex := ord(GradientType); end; procedure TfrmAppearanceEditWindow.SetLinkedFrameColor(AColor: TColor); begin -tbPreview.Appearance.Tab.BorderColor:=AColor; -SetPanelColor(pTabFrame, AColor); + tbPreview.Appearance.Tab.BorderColor := AColor; + SetPanelColor(pTabFrame, AColor); -tbPreview.Appearance.Pane.BorderDarkColor:=AColor; -SetPanelColor(pPaneBorderDark, AColor); + tbPreview.Appearance.Pane.BorderDarkColor := AColor; + SetPanelColor(pPaneBorderDark, AColor); -tbPreview.Appearance.Element.IdleFrameColor:=AColor; -SetPanelColor(pItemIdleFrame, AColor); + tbPreview.Appearance.Element.IdleFrameColor := AColor; + SetPanelColor(pItemIdleFrame, AColor); end; procedure TfrmAppearanceEditWindow.SetLinkedGradientFromColor(AColor: TColor); begin -tbPreview.Appearance.Tab.GradientFromColor:=AColor; -SetPanelColor(pTabGradientFrom, AColor); + tbPreview.Appearance.Tab.GradientFromColor := AColor; + SetPanelColor(pTabGradientFrom, AColor); -tbPreview.Appearance.Pane.GradientFromColor:=AColor; -SetPanelColor(pPaneGradientFrom, AColor); + tbPreview.Appearance.Pane.GradientFromColor := AColor; + SetPanelColor(pPaneGradientFrom, AColor); -tbPreview.Appearance.Element.IdleGradientFromColor:=AColor; -SetPanelColor(pItemIdleGradientFrom, AColor); + tbPreview.Appearance.Element.IdleGradientFromColor := AColor; + SetPanelColor(pItemIdleGradientFrom, AColor); end; procedure TfrmAppearanceEditWindow.SetLinkedGradientKind(AKindIndex: integer); - -var Kind : TBackgroundKind; - +var + Kind: TBackgroundKind; begin -case AKindIndex of - 0 : Kind:=bkSolid; - 1 : Kind:=bkHorizontalGradient; - 2 : Kind:=bkVerticalGradient; - 3 : Kind:=bkConcave; -else Kind:=bkSolid; -end; + Kind := TBackgroundKind(AKindIndex); -tbPreview.Appearance.Tab.GradientType:=Kind; -SetComboGradientKind(cbTabGradientKind, Kind); + tbPreview.Appearance.Tab.GradientType := Kind; + SetComboGradientKind(cbTabGradientKind, Kind); -tbPreview.Appearance.Pane.GradientType:=Kind; -SetComboGradientKind(cbPaneGradientKind, Kind); + tbPreview.Appearance.Pane.GradientType := Kind; + SetComboGradientKind(cbPaneGradientKind, Kind); -tbPreview.Appearance.Element.IdleGradientType:=Kind; -SetComboGradientKind(cbItemIdleGradientKind, Kind); + tbPreview.Appearance.Element.IdleGradientType := Kind; + SetComboGradientKind(cbItemIdleGradientKind, Kind); end; procedure TfrmAppearanceEditWindow.SetLinkedGradientToColor(AColor: TColor); begin -tbPreview.Appearance.Tab.GradientToColor:=AColor; -SetPanelColor(pTabGradientTo, AColor); + tbPreview.Appearance.Tab.GradientToColor := AColor; + SetPanelColor(pTabGradientTo, AColor); -tbPreview.Appearance.Pane.GradientToColor:=AColor; -SetPanelColor(pPaneGradientTo, AColor); + tbPreview.Appearance.Pane.GradientToColor := AColor; + SetPanelColor(pPaneGradientTo, AColor); -tbPreview.Appearance.Element.IdleGradientToColor:=AColor; -SetPanelColor(pItemIdleGradientTo, AColor); + tbPreview.Appearance.Element.IdleGradientToColor := AColor; + SetPanelColor(pItemIdleGradientTo, AColor); end; -procedure TfrmAppearanceEditWindow.SetPanelColor(Panel: TPanel; AColor : TColor); +procedure TfrmAppearanceEditWindow.SetPanelColor(Panel: TPanel; AColor: TColor); begin Panel.Color := AColor; - if Panel.Color<>AColor then + if Panel.Color <> AColor then Showmessage('lipa!'); if (GetRValue(AColor) + GetGValue(AColor) + GetBValue(AColor)) div 3 >= 128 then Panel.Font.Color := clBlack @@ -274,468 +285,453 @@ end; procedure TfrmAppearanceEditWindow.SetPanelFont(Panel: TPanel; AFont: TFont); begin -Panel.Font.assign(AFont); -Panel.Caption:=AFont.Name+', '+inttostr(AFont.Size); + Panel.Font.Assign(AFont); + Panel.Caption := AFont.Name + ', ' + IntToStr(AFont.Size); end; procedure TfrmAppearanceEditWindow.SwitchAttributesLink(const Value: boolean); begin -cbLinkTab.checked:=Value; -cbLinkPane.Checked:=Value; -cbLinkItem.Checked:=Value; + cbLinkTab.checked := Value; + cbLinkPane.Checked := Value; + cbLinkItem.Checked := Value; -sTabRectangle.visible:=Value; -sPaneRectangle.Visible:=Value; -sItemRectangle.Visible:=Value; + sTabRectangle.Visible := Value; + sPaneRectangle.Visible := Value; + sItemRectangle.Visible := Value; end; procedure TfrmAppearanceEditWindow.cbItemHottrackGradientKindChange(Sender: TObject); begin -case (Sender as TCombobox).ItemIndex of - 0 : tbPreview.Appearance.Element.HottrackGradientType:=bkSolid; - 1 : tbPreview.Appearance.Element.HottrackGradientType:=bkHorizontalGradient; - 2 : tbPreview.Appearance.Element.HottrackGradientType:=bkVerticalGradient; - 3 : tbPreview.Appearance.Element.HottrackGradientType:=bkConcave; -end; + with tbPreview.Appearance.Element do + HotTrackGradientType := TBackgroundKind((Sender as TCombobox).ItemIndex); end; procedure TfrmAppearanceEditWindow.cbItemIdleGradientKindChange(Sender: TObject); begin -case (Sender as TCombobox).ItemIndex of - 0 : tbPreview.Appearance.Element.IdleGradientType:=bkSolid; - 1 : tbPreview.Appearance.Element.IdleGradientType:=bkHorizontalGradient; - 2 : tbPreview.Appearance.Element.IdleGradientType:=bkVerticalGradient; - 3 : tbPreview.Appearance.Element.IdleGradientType:=bkConcave; -end; - -if cbLinkItem.Checked then - SetLinkedGradientKind((Sender as TComboBox).ItemIndex); + with tbPreview.Appearance.Element do + IdleGradientType := TBackgroundKind((Sender as TCombobox).ItemIndex); + if cbLinkItem.Checked then + SetLinkedGradientKind((Sender as TComboBox).ItemIndex); end; procedure TfrmAppearanceEditWindow.cbLinkItemClick(Sender: TObject); begin -SwitchAttributesLink(cbLinkItem.Checked); + SwitchAttributesLink(cbLinkItem.Checked); end; procedure TfrmAppearanceEditWindow.cbLinkPaneClick(Sender: TObject); begin -SwitchAttributesLink(cbLinkPane.Checked); + SwitchAttributesLink(cbLinkPane.Checked); end; procedure TfrmAppearanceEditWindow.cbLinkTabClick(Sender: TObject); begin -SwitchAttributesLink(cbLinkTab.Checked); + SwitchAttributesLink(cbLinkTab.Checked); end; procedure TfrmAppearanceEditWindow.cbTabGradientKindChange(Sender: TObject); begin -case (Sender as TCombobox).ItemIndex of - 0 : tbPreview.Appearance.Tab.GradientType:=bkSolid; - 1 : tbPreview.Appearance.Tab.GradientType:=bkHorizontalGradient; - 2 : tbPreview.Appearance.Tab.GradientType:=bkVerticalGradient; - 3 : tbPreview.Appearance.Tab.GradientType:=bkConcave; -end; - -if cbLinkTab.Checked then - SetLinkedGradientKind((Sender as TComboBox).ItemIndex); + with tbPreview.Appearance.Tab do + GradientType := TBackgroundKind((Sender as TCombobox).ItemIndex); + if cbLinkTab.Checked then + SetLinkedGradientKind((Sender as TComboBox).ItemIndex); end; function TfrmAppearanceEditWindow.ChangeColor(Panel: TPanel): boolean; begin -cdColorDialog.Color:=Panel.Color; -if cdColorDialog.Execute then - begin - SetPanelColor(Panel, cdColorDialog.Color); - result:=true - end -else - result:=false; + cdColorDialog.Color:=Panel.Color; + if cdColorDialog.Execute then + begin + SetPanelColor(Panel, cdColorDialog.Color); + Result := true + end + else + Result := false; end; function TfrmAppearanceEditWindow.ChangeFont(Panel: TPanel): boolean; begin -fdFontDialog.Font.assign(Panel.font); -if fdFontDialog.Execute then - begin - SetPanelFont(Panel, fdFontDialog.Font); - result:=true; - end -else - result:=false; + fdFontDialog.Font.Assign(Panel.Font); + if fdFontDialog.Execute then + begin + SetPanelFont(Panel, fdFontDialog.Font); + Result := true; + end + else + Result := false; +end; + +procedure TfrmAppearanceEditWindow.FormCreate(Sender: TObject); +begin + bOK.AutoSize := false; + bOK.Width := bCancel.Width; end; procedure TfrmAppearanceEditWindow.FormShow(Sender: TObject); begin -LoadAppearance(tbPreview.Appearance); + LoadAppearance(tbPreview.Appearance); end; function TfrmAppearanceEditWindow.GetAppearance: TSpkToolbarAppearance; begin -result:=tbPreview.Appearance; + result := tbPreview.Appearance; end; procedure TfrmAppearanceEditWindow.LoadAppearance(AAppearance: TSpkToolbarAppearance); begin -with AAppearance do - begin - with Tab do - begin - SetPanelColor(pTabFrame, BorderColor); - SetPanelColor(pTabGradientFrom, GradientFromColor); - SetPanelColor(pTabGradientTo, GradientToColor); - SetComboGradientKind(cbTabGradientKind, GradientType); - SetPanelFont(pTabHeaderFont, TabHeaderFont); - SetPanelColor(pTabHeaderFontColor, TabHeaderFont.Color); - end; + with AAppearance do + begin + with Tab do + begin + SetPanelColor(pTabFrame, BorderColor); + SetPanelColor(pTabGradientFrom, GradientFromColor); + SetPanelColor(pTabGradientTo, GradientToColor); + SetComboGradientKind(cbTabGradientKind, GradientType); + SetPanelFont(pTabHeaderFont, TabHeaderFont); + SetPanelColor(pActiveTabHeaderFontColor, TabHeaderFont.Color); + SetPanelColor(pInactiveTabHeaderFontColor, InactiveTabHeaderFontColor); + end; - with Pane do - begin - SetPanelColor(pPaneBorderDark, BorderDarkColor); - SetPanelColor(pPaneBorderLight, BorderLightColor); - SetPanelColor(pPaneGradientFrom, GradientFromColor); - SetPanelColor(pPaneGradientTo, GradientToColor); - SetComboGradientKind(cbPaneGradientKind, GradientType); - SetPanelColor(pPaneCaptionBackground, CaptionBgColor); - SetPanelFont(pPaneCaptionFont, CaptionFont); - SetPanelColor(pPaneCaptionFontColor, CaptionFont.Color); - end; + with Pane do + begin + SetPanelColor(pPaneBorderDark, BorderDarkColor); + SetPanelColor(pPaneBorderLight, BorderLightColor); + SetPanelColor(pPaneGradientFrom, GradientFromColor); + SetPanelColor(pPaneGradientTo, GradientToColor); + SetComboGradientKind(cbPaneGradientKind, GradientType); + SetPanelColor(pPaneCaptionBackground, CaptionBgColor); + SetPanelFont(pPaneCaptionFont, CaptionFont); + SetPanelColor(pPaneCaptionFontColor, CaptionFont.Color); + end; - with Element do - begin - SetPanelFont(pItemFont, CaptionFont); + with Element do + begin + SetPanelFont(pItemFont, CaptionFont); - SetPanelColor(pItemIdleFrame, IdleFrameColor); - SetPanelColor(pItemIdleGradientFrom, IdleGradientFromColor); - SetPanelColor(pItemIdleGradientTo, IdleGradientToColor); - SetComboGradientKind(cbItemIdleGradientKind, IdleGradientType); - SetPanelColor(pItemIdleCaptionColor, IdleCaptionColor); - SetPanelColor(pItemIdleInnerDark, IdleInnerDarkColor); - SetPanelColor(pItemIdleInnerLight, IdleInnerLightColor); + SetPanelColor(pItemIdleFrame, IdleFrameColor); + SetPanelColor(pItemIdleGradientFrom, IdleGradientFromColor); + SetPanelColor(pItemIdleGradientTo, IdleGradientToColor); + SetComboGradientKind(cbItemIdleGradientKind, IdleGradientType); + SetPanelColor(pItemIdleCaptionColor, IdleCaptionColor); + SetPanelColor(pItemIdleInnerDark, IdleInnerDarkColor); + SetPanelColor(pItemIdleInnerLight, IdleInnerLightColor); - SetPanelColor(pItemHottrackFrame, HottrackFrameColor); - SetPanelColor(pItemHottrackGradientFrom, HottrackGradientFromColor); - SetPanelColor(pItemHottrackGradientTo, HottrackGradientToColor); - SetComboGradientKind(cbItemHottrackGradientKind, HottrackGradientType); - SetPanelColor(pItemHottrackCaptionColor, HottrackCaptionColor); - SetPanelColor(pItemHottrackInnerDark, HottrackInnerDarkColor); - SetPanelColor(pItemHottrackInnerLight, HottrackInnerLightColor); + SetPanelColor(pItemHottrackFrame, HottrackFrameColor); + SetPanelColor(pItemHottrackGradientFrom, HottrackGradientFromColor); + SetPanelColor(pItemHottrackGradientTo, HottrackGradientToColor); + SetComboGradientKind(cbItemHottrackGradientKind, HottrackGradientType); + SetPanelColor(pItemHottrackCaptionColor, HottrackCaptionColor); + SetPanelColor(pItemHottrackInnerDark, HottrackInnerDarkColor); + SetPanelColor(pItemHottrackInnerLight, HottrackInnerLightColor); - SetPanelColor(pItemActiveFrame, ActiveFrameColor); - SetPanelColor(pItemActiveGradientFrom, ActiveGradientFromColor); - SetPanelColor(pItemActiveGradientTo, ActiveGradientToColor); - SetComboGradientKind(cbItemActiveGradientKind, ActiveGradientType); - SetPanelColor(pItemActiveCaptionColor, ActiveCaptionColor); - SetPanelColor(pItemActiveInnerDark, ActiveInnerDarkColor); - SetPanelColor(pItemActiveInnerLight, ActiveInnerLightColor); - end; - end; + SetPanelColor(pItemActiveFrame, ActiveFrameColor); + SetPanelColor(pItemActiveGradientFrom, ActiveGradientFromColor); + SetPanelColor(pItemActiveGradientTo, ActiveGradientToColor); + SetComboGradientKind(cbItemActiveGradientKind, ActiveGradientType); + SetPanelColor(pItemActiveCaptionColor, ActiveCaptionColor); + SetPanelColor(pItemActiveInnerDark, ActiveInnerDarkColor); + SetPanelColor(pItemActiveInnerLight, ActiveInnerLightColor); + end; + end; end; procedure TfrmAppearanceEditWindow.pItemActiveCaptionColorClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - tbPreview.Appearance.Element.ActiveCaptionColor:=(Sender as TPanel).Color; + if ChangeColor(Sender as TPanel) then + tbPreview.Appearance.Element.ActiveCaptionColor:=(Sender as TPanel).Color; end; procedure TfrmAppearanceEditWindow.pItemActiveFrameClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - tbPreview.Appearance.Element.ActiveFrameColor:=(Sender as TPanel).Color; + if ChangeColor(Sender as TPanel) then + tbPreview.Appearance.Element.ActiveFrameColor:=(Sender as TPanel).Color; end; procedure TfrmAppearanceEditWindow.pItemActiveGradientFromClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - tbPreview.Appearance.Element.ActiveGradientFromColor:=(Sender as TPanel).Color; + if ChangeColor(Sender as TPanel) then + tbPreview.Appearance.Element.ActiveGradientFromColor:=(Sender as TPanel).Color; end; procedure TfrmAppearanceEditWindow.bExportClick(Sender: TObject); - -var Xml : TSpkXMLParser; - Node : TSpkXMLNode; - +var + Xml: TSpkXMLParser; + Node: TSpkXMLNode; begin -XML:=TSpkXMLParser.Create; -try - Node:=XML['Appearance',true]; - tbPreview.Appearance.SaveToXML(Node); - - mXML.Clear; - mXml.Text:=XML.Generate; -finally - XML.Free; -end; + XML:=TSpkXMLParser.Create; + try + Node := XML['Appearance', true]; + tbPreview.Appearance.SaveToXML(Node); + mXML.Clear; + mXml.Text:=XML.Generate; + finally + XML.Free; + end; end; procedure TfrmAppearanceEditWindow.bImportClick(Sender: TObject); - -var XML : TSpkXMLParser; +var + XML: TSpkXMLParser; Node: TSpkXMLNode; - begin -tbPreview.BeginUpdate; -XML:=TSpkXMLParser.Create; -try - XML.Parse(PChar(mXML.text)); - Node:=XML['Appearance',false]; - if assigned(Node) then - tbPreview.Appearance.LoadFromXML(Node); - LoadAppearance(tbPreview.Appearance); -finally - XML.Free; - tbPreview.EndUpdate; - tbPreview.ForceRepaint; -end; + tbPreview.BeginUpdate; + XML := TSpkXMLParser.Create; + try + XML.Parse(PChar(mXML.text)); + Node := XML['Appearance', false]; + if assigned(Node) then + tbPreview.Appearance.LoadFromXML(Node); + LoadAppearance(tbPreview.Appearance); + finally + XML.Free; + tbPreview.EndUpdate; + tbPreview.ForceRepaint; + end; end; procedure TfrmAppearanceEditWindow.bResetClick(Sender: TObject); begin -tbPreview.Appearance.Reset; -LoadAppearance(tbPreview.Appearance); + tbPreview.Appearance.Reset; + LoadAppearance(tbPreview.Appearance); end; procedure TfrmAppearanceEditWindow.cbItemActiveGradientKindChange(Sender: TObject); begin -case (Sender as TCombobox).ItemIndex of - 0 : tbPreview.Appearance.Element.ActiveGradientType:=bkSolid; - 1 : tbPreview.Appearance.Element.ActiveGradientType:=bkHorizontalGradient; - 2 : tbPreview.Appearance.Element.ActiveGradientType:=bkVerticalGradient; - 3 : tbPreview.Appearance.Element.ActiveGradientType:=bkConcave; -end; + with tbPreview.Appearance.Element do + ActiveGradientType := TBackgroundKind((Sender as TCombobox).ItemIndex); end; procedure TfrmAppearanceEditWindow.pItemActiveGradientToClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - tbPreview.Appearance.Element.ActiveGradientToColor:=(Sender as TPanel).Color; + if ChangeColor(Sender as TPanel) then + tbPreview.Appearance.Element.ActiveGradientToColor := (Sender as TPanel).Color; end; procedure TfrmAppearanceEditWindow.pItemActiveInnerDarkClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - tbPreview.Appearance.Element.ActiveInnerDarkColor:=(Sender as TPanel).Color; + if ChangeColor(Sender as TPanel) then + tbPreview.Appearance.Element.ActiveInnerDarkColor := (Sender as TPanel).Color; end; procedure TfrmAppearanceEditWindow.pItemActiveInnerLightClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - tbPreview.Appearance.Element.ActiveInnerLightColor:=(Sender as TPanel).Color; + if ChangeColor(Sender as TPanel) then + tbPreview.Appearance.Element.ActiveInnerLightColor := (Sender as TPanel).Color; end; procedure TfrmAppearanceEditWindow.pItemHottrackCaptionColorClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - tbPreview.Appearance.Element.HotTrackCaptionColor:=(Sender as TPanel).Color; + if ChangeColor(Sender as TPanel) then + tbPreview.Appearance.Element.HotTrackCaptionColor := (Sender as TPanel).Color; end; procedure TfrmAppearanceEditWindow.pItemHottrackFrameClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - tbPreview.Appearance.Element.HotTrackFrameColor:=(Sender as TPanel).Color; + if ChangeColor(Sender as TPanel) then + tbPreview.Appearance.Element.HotTrackFrameColor := (Sender as TPanel).Color; end; procedure TfrmAppearanceEditWindow.pItemHottrackGradientFromClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - tbPreview.Appearance.Element.HotTrackGradientFromColor:=(Sender as TPanel).Color; + if ChangeColor(Sender as TPanel) then + tbPreview.Appearance.Element.HotTrackGradientFromColor := (Sender as TPanel).Color; end; procedure TfrmAppearanceEditWindow.pItemHottrackGradientToClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - tbPreview.Appearance.Element.HotTrackGradientToColor:=(Sender as TPanel).Color; + if ChangeColor(Sender as TPanel) then + tbPreview.Appearance.Element.HotTrackGradientToColor := (Sender as TPanel).Color; end; procedure TfrmAppearanceEditWindow.pItemHottrackInnerDarkClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - tbPreview.Appearance.Element.HotTrackInnerDarkColor:=(Sender as TPanel).Color; + if ChangeColor(Sender as TPanel) then + tbPreview.Appearance.Element.HotTrackInnerDarkColor := (Sender as TPanel).Color; end; procedure TfrmAppearanceEditWindow.pItemHottrackInnerLightClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - tbPreview.Appearance.Element.HotTrackInnerLightColor:=(Sender as TPanel).Color; + if ChangeColor(Sender as TPanel) then + tbPreview.Appearance.Element.HotTrackInnerLightColor := (Sender as TPanel).Color; end; procedure TfrmAppearanceEditWindow.pItemIdleCaptionColorClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - tbPreview.Appearance.Element.IdleCaptionColor:=(Sender as TPanel).Color; + if ChangeColor(Sender as TPanel) then + tbPreview.Appearance.Element.IdleCaptionColor := (Sender as TPanel).Color; end; procedure TfrmAppearanceEditWindow.pItemIdleFrameClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - begin - tbPreview.Appearance.Element.IdleFrameColor:=(Sender as TPanel).Color; - - if cbLinkItem.Checked then + if ChangeColor(Sender as TPanel) then + begin + tbPreview.Appearance.Element.IdleFrameColor := (Sender as TPanel).Color; + if cbLinkItem.Checked then SetLinkedFrameColor((Sender as TPanel).Color); - end; + end; end; procedure TfrmAppearanceEditWindow.pItemIdleGradientFromClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - begin - tbPreview.Appearance.Element.IdleGradientFromColor:=(Sender as TPanel).Color; - - if cbLinkItem.Checked then + if ChangeColor(Sender as TPanel) then + begin + tbPreview.Appearance.Element.IdleGradientFromColor := (Sender as TPanel).Color; + if cbLinkItem.Checked then SetLinkedGradientFromColor((Sender as TPanel).Color); - end; + end; end; procedure TfrmAppearanceEditWindow.pItemIdleGradientToClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - begin - tbPreview.Appearance.Element.IdleGradientToColor:=(Sender as TPanel).Color; - - if cbLinkItem.Checked then + if ChangeColor(Sender as TPanel) then + begin + tbPreview.Appearance.Element.IdleGradientToColor := (Sender as TPanel).Color; + if cbLinkItem.Checked then SetLinkedGradientToColor((Sender as TPanel).Color); - end; + end; end; procedure TfrmAppearanceEditWindow.pItemIdleInnerDarkClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - tbPreview.Appearance.Element.IdleInnerDarkColor:=(Sender as TPanel).Color; + if ChangeColor(Sender as TPanel) then + tbPreview.Appearance.Element.IdleInnerDarkColor := (Sender as TPanel).Color; end; procedure TfrmAppearanceEditWindow.pItemIdleInnerLightClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - tbPreview.Appearance.Element.IdleInnerLightColor:=(Sender as TPanel).Color; + if ChangeColor(Sender as TPanel) then + tbPreview.Appearance.Element.IdleInnerLightColor := (Sender as TPanel).Color; end; procedure TfrmAppearanceEditWindow.pItemFontClick(Sender: TObject); begin -if ChangeFont(Sender as TPanel) then - tbPreview.Appearance.Element.CaptionFont.Assign((Sender as TPanel).Font); -tbPreview.ForceRepaint; + if ChangeFont(Sender as TPanel) then + tbPreview.Appearance.Element.CaptionFont.Assign((Sender as TPanel).Font); + tbPreview.ForceRepaint; end; procedure TfrmAppearanceEditWindow.pPaneBorderDarkClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - begin - tbPreview.Appearance.Pane.BorderDarkColor:=(Sender as TPanel).Color; - - if cbLinkPane.Checked then + if ChangeColor(Sender as TPanel) then + begin + tbPreview.Appearance.Pane.BorderDarkColor := (Sender as TPanel).Color; + if cbLinkPane.Checked then SetLinkedFrameColor((Sender as TPanel).Color); - end; + end; end; procedure TfrmAppearanceEditWindow.pPaneBorderLightClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - tbPreview.Appearance.Pane.BorderLightColor:=(Sender as TPanel).Color; + if ChangeColor(Sender as TPanel) then + tbPreview.Appearance.Pane.BorderLightColor := (Sender as TPanel).Color; end; procedure TfrmAppearanceEditWindow.pPaneCaptionBackgroundClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - tbPreview.Appearance.Pane.CaptionBgColor:=(Sender as TPanel).Color; + if ChangeColor(Sender as TPanel) then + tbPreview.Appearance.Pane.CaptionBgColor := (Sender as TPanel).Color; end; procedure TfrmAppearanceEditWindow.pPaneCaptionFontClick(Sender: TObject); begin -if ChangeFont(Sender as TPanel) then - tbPreview.Appearance.Pane.CaptionFont.Assign((Sender as TPanel).Font); -tbPreview.ForceRepaint; + if ChangeFont(Sender as TPanel) then + tbPreview.Appearance.Pane.CaptionFont.Assign((Sender as TPanel).Font); + tbPreview.ForceRepaint; end; procedure TfrmAppearanceEditWindow.pPaneCaptionFontColorClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - begin - tbPreview.Appearance.Pane.CaptionFont.Color:=((Sender as TPanel).Color); - pPaneCaptionFont.Font.color:=((Sender as TPanel).Color); - end; + if ChangeColor(Sender as TPanel) then + begin + tbPreview.Appearance.Pane.CaptionFont.Color:=((Sender as TPanel).Color); + pPaneCaptionFont.Font.color:=((Sender as TPanel).Color); + end; end; procedure TfrmAppearanceEditWindow.pPaneGradientFromClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - begin - tbPreview.Appearance.Pane.GradientFromColor:=(Sender as TPanel).Color; + if ChangeColor(Sender as TPanel) then + begin + tbPreview.Appearance.Pane.GradientFromColor:=(Sender as TPanel).Color; - if cbLinkPane.Checked then + if cbLinkPane.Checked then SetLinkedGradientFromColor((Sender as TPanel).Color); - end; + end; end; procedure TfrmAppearanceEditWindow.cbPaneGradientKindChange(Sender: TObject); begin -case (Sender as TCombobox).ItemIndex of - 0 : tbPreview.Appearance.Pane.GradientType:=bkSolid; - 1 : tbPreview.Appearance.Pane.GradientType:=bkHorizontalGradient; - 2 : tbPreview.Appearance.Pane.GradientType:=bkVerticalGradient; - 3 : tbPreview.Appearance.Pane.GradientType:=bkConcave; -end; - -if cbLinkPane.Checked then - SetLinkedGradientKind((Sender as TComboBox).ItemIndex); + with tbPreview.Appearance.Pane do + GradientType := TBackgroundKind((Sender as TCombobox).ItemIndex); + if cbLinkPane.Checked then + SetLinkedGradientKind((Sender as TComboBox).ItemIndex); end; procedure TfrmAppearanceEditWindow.pPaneGradientToClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - begin - tbPreview.Appearance.Pane.GradientToColor:=(Sender as TPanel).Color; - - if cbLinkPane.Checked then + if ChangeColor(Sender as TPanel) then + begin + tbPreview.Appearance.Pane.GradientToColor:=(Sender as TPanel).Color; + if cbLinkPane.Checked then SetLinkedGradientToColor((Sender as TPanel).Color); - end; + end; end; procedure TfrmAppearanceEditWindow.pTabFrameClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - begin - tbPreview.Appearance.Tab.BorderColor:=(Sender as TPanel).Color; - - if cbLinkTab.checked then + if ChangeColor(Sender as TPanel) then + begin + tbPreview.Appearance.Tab.BorderColor:=(Sender as TPanel).Color; + if cbLinkTab.checked then SetLinkedFrameColor((Sender as TPanel).Color); - end; + end; end; procedure TfrmAppearanceEditWindow.pTabGradientFromClick(Sender: TObject); begin -if ChangeColor(Sender as TPanel) then - begin - tbPreview.Appearance.Tab.GradientFromColor:=(Sender as TPanel).Color; - - if cbLinkTab.Checked then + if ChangeColor(Sender as TPanel) then + begin + tbPreview.Appearance.Tab.GradientFromColor := (Sender as TPanel).Color; + if cbLinkTab.Checked then SetLinkedGradientFromColor((Sender as TPanel).Color); - end; + end; end; procedure TfrmAppearanceEditWindow.pTabGradientToClick(Sender: TObject); begin if ChangeColor(Sender as TPanel) then begin - tbPreview.Appearance.Tab.GradientToColor:=(Sender as TPanel).Color; + tbPreview.Appearance.Tab.GradientToColor := (Sender as TPanel).Color; - if cbLinkTab.Checked then - SetLinkedGradientToColor((Sender as TPanel).Color); + if cbLinkTab.Checked then + SetLinkedGradientToColor((Sender as TPanel).Color); end; end; procedure TfrmAppearanceEditWindow.pTabHeaderFontClick(Sender: TObject); begin - if ChangeFont(Sender as TPanel) then - tbPreview.Appearance.Tab.TabHeaderFont.Assign((Sender as TPanel).Font); - tbPreview.ForceRepaint; + if ChangeFont(Sender as TPanel) then begin + tbPreview.Appearance.Tab.TabHeaderFont.Assign((Sender as TPanel).Font); + tbPreview.ForceRepaint; + end; end; -procedure TfrmAppearanceEditWindow.pTabHeaderFontColorClick(Sender: TObject); +procedure TfrmAppearanceEditWindow.pActiveTabHeaderFontColorClick(Sender: TObject); begin if ChangeColor(Sender as TPanel) then begin tbPreview.Appearance.Tab.TabHeaderFont.Color:=((Sender as TPanel).Color); - pTabHeaderFont.Font.color:=((Sender as TPanel).Color); + pTabHeaderFont.Font.color := (Sender as TPanel).Color; + end; +end; + +procedure TfrmAppearanceEditWindow.pInactiveTabHeaderFontColorClick( + Sender: TObject); +begin + if ChangeColor(Sender as TPanel) then + begin + tbPreview.Appearance.Tab.InactiveTabHeaderFontColor := (Sender as TPanel).Color; + tbPreview.ForceRepaint; end; end;