lazarus-ccr/components/spktoolbar/designtime/spkte_AppearanceEditor.pas

unit spkte_AppearanceEditor;

{$MODE Delphi}

interface

uses
  LCLIntf, LCLType, LMessages, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls,
  SpkGUITools, SpkXMLParser,
  spkt_Buttons, spkt_BaseItem, spkt_Pane, spkt_Types, spkt_Tab, SpkToolbar,
  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;
    SpkLargeButton1: TSpkLargeButton;
    SpkLargeButton3: TSpkLargeButton;
    SpkLargeButton2: TSpkLargeButton;
    SpkPane2: TSpkPane;
    SpkSmallButton1: TSpkSmallButton;
    SpkSmallButton2: TSpkSmallButton;
    SpkSmallButton3: TSpkSmallButton;
    SpkPane3: TSpkPane;
    SpkSmallButton4: TSpkSmallButton;
    SpkSmallButton5: TSpkSmallButton;
    SpkSmallButton6: TSpkSmallButton;
    SpkSmallButton7: TSpkSmallButton;
    SpkSmallButton8: TSpkSmallButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Label2: TLabel;
    pTabFrame: TPanel;
    pTabGradientFrom: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    pTabGradientTo: TPanel;
    cbTabGradientKind: TComboBox;
    Label5: TLabel;
    Label6: TLabel;
    pTabHeaderFont: TPanel;
    Label8: TLabel;
    pPaneBorderDark: TPanel;
    pPaneBorderLight: TPanel;
    Label21: TLabel;
    Label9: TLabel;
    pPaneGradientFrom: TPanel;
    pPaneGradientTo: TPanel;
    Label10: TLabel;
    Label11: TLabel;
    cbPaneGradientKind: TComboBox;
    pPaneCaptionBackground: TPanel;
    LblCaptionBackground: TLabel;
    Label13: TLabel;
    pPaneCaptionFont: TPanel;
    Label1: TLabel;
    Label7: TLabel;
    Label14: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    pItemFont: TPanel;
    cbItemIdleGradientKind: TComboBox;
    pItemIdleGradientTo: TPanel;
    pItemIdleGradientFrom: TPanel;
    pItemIdleFrame: TPanel;
    LblIdle: TLabel;
    Label28: TLabel;
    pItemIdleCaptionColor: TPanel;
    Label29: TLabel;
    pItemIdleInnerDark: TPanel;
    LblInnerLightColor: TLabel;
    pItemIdleInnerLight: TPanel;
    cbItemHottrackGradientKind: TComboBox;
    pItemHottrackGradientTo: TPanel;
    pItemHottrackGradientFrom: TPanel;
    pItemHottrackFrame: TPanel;
    LblHotTrack: TLabel;
    pItemHottrackCaptionColor: TPanel;
    pItemHottrackInnerDark: TPanel;
    pItemHottrackInnerLight: TPanel;
    cbItemActiveGradientKind: TComboBox;
    pItemActiveGradientTo: TPanel;
    pItemActiveGradientFrom: TPanel;
    pItemActiveFrame: TPanel;
    LblActive: TLabel;
    pItemActiveCaptionColor: TPanel;
    pItemActiveInnerDark: TPanel;
    pItemActiveInnerLight: TPanel;
    bOK: TButton;
    bCancel: TButton;
    cdColorDialog: TColorDialog;
    fdFontDialog: TFontDialog;
    pActiveTabHeaderFontColor: TPanel;
    pPaneCaptionFontColor: TPanel;
    TabSheet4: TTabSheet;
    bImport: TButton;
    bExport: TButton;
    mXML: TMemo;
    sTabRectangle: TShape;
    cbLinkTab: TCheckBox;
    sPaneRectangle: TShape;
    cbLinkPane: TCheckBox;
    cbLinkItem: TCheckBox;
    sItemRectangle: TShape;
    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 pItemActiveCaptionColorClick(Sender: TObject);
    procedure pItemActiveFrameClick(Sender: TObject);
    procedure pItemActiveGradientFromClick(Sender: TObject);
    procedure pItemActiveGradientToClick(Sender: TObject);
    procedure pItemActiveInnerDarkClick(Sender: TObject);
    procedure pItemActiveInnerLightClick(Sender: TObject);

    procedure pItemFontClick(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);
    procedure SetLinkedGradientFromColor(AColor : TColor);
    procedure SetLinkedGradientToColor(AColor : TColor);
    procedure SetLinkedGradientKind(AKindIndex : integer);

    function GetAppearance: TSpkToolbarAppearance;
    procedure SetAppearance(const Value: TSpkToolbarAppearance);

    procedure SwitchAttributesLink(const Value : boolean);

    function ChangeColor(Panel : TPanel) : boolean;
    procedure SetPanelColor(Panel: TPanel; AColor : TColor);
    function ChangeFont(Panel : TPanel) : boolean;
    procedure SetPanelFont(Panel : TPanel; AFont : TFont);
    procedure SetComboGradientKind(Combo : TComboBox; GradientType : TBackgroundKind);
    procedure LoadAppearance(AAppearance : TSpkToolbarAppearance);
  public
    property Appearance : TSpkToolbarAppearance read GetAppearance write SetAppearance;
    { Public declarations }
  end;

var
  frmAppearanceEditWindow: TfrmAppearanceEditWindow;

implementation

{$R *.lfm}

{ TForm3 }

procedure TfrmAppearanceEditWindow.SetAppearance(const Value: TSpkToolbarAppearance);
begin
  tbPreview.Appearance.Assign(Value);
end;

procedure TfrmAppearanceEditWindow.SetComboGradientKind(Combo: TComboBox;
  GradientType: TBackgroundKind);
begin
  Combo.ItemIndex := ord(GradientType);
end;

procedure TfrmAppearanceEditWindow.SetLinkedFrameColor(AColor: TColor);
begin
  tbPreview.Appearance.Tab.BorderColor := AColor;
  SetPanelColor(pTabFrame, AColor);

  tbPreview.Appearance.Pane.BorderDarkColor := AColor;
  SetPanelColor(pPaneBorderDark, 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.Pane.GradientFromColor := AColor;
  SetPanelColor(pPaneGradientFrom, AColor);

  tbPreview.Appearance.Element.IdleGradientFromColor := AColor;
  SetPanelColor(pItemIdleGradientFrom, AColor);
end;

procedure TfrmAppearanceEditWindow.SetLinkedGradientKind(AKindIndex: integer);
var
  Kind: TBackgroundKind;
begin
  Kind := TBackgroundKind(AKindIndex);

  tbPreview.Appearance.Tab.GradientType := Kind;
  SetComboGradientKind(cbTabGradientKind, Kind);

  tbPreview.Appearance.Pane.GradientType := Kind;
  SetComboGradientKind(cbPaneGradientKind, 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.Pane.GradientToColor := AColor;
  SetPanelColor(pPaneGradientTo, AColor);

  tbPreview.Appearance.Element.IdleGradientToColor := AColor;
  SetPanelColor(pItemIdleGradientTo, AColor);
end;

procedure TfrmAppearanceEditWindow.SetPanelColor(Panel: TPanel; AColor: TColor);
begin
  Panel.Color := AColor;
  if Panel.Color <> AColor then
     Showmessage('lipa!');
  if (GetRValue(AColor) + GetGValue(AColor) + GetBValue(AColor)) div 3 >= 128 then
    Panel.Font.Color := clBlack
  else
    Panel.Font.Color := clWhite;
  Panel.Caption := '$' + IntToHex(AColor, 8);
end;

procedure TfrmAppearanceEditWindow.SetPanelFont(Panel: TPanel; AFont: TFont);
begin
  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;

  sTabRectangle.Visible := Value;
  sPaneRectangle.Visible := Value;
  sItemRectangle.Visible := Value;
end;

procedure TfrmAppearanceEditWindow.cbItemHottrackGradientKindChange(Sender: TObject);
begin
  with tbPreview.Appearance.Element do
    HotTrackGradientType := TBackgroundKind((Sender as TCombobox).ItemIndex);
end;

procedure TfrmAppearanceEditWindow.cbItemIdleGradientKindChange(Sender: TObject);
begin
  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);
end;

procedure TfrmAppearanceEditWindow.cbLinkPaneClick(Sender: TObject);
begin
  SwitchAttributesLink(cbLinkPane.Checked);
end;

procedure TfrmAppearanceEditWindow.cbLinkTabClick(Sender: TObject);
begin
  SwitchAttributesLink(cbLinkTab.Checked);
end;

procedure TfrmAppearanceEditWindow.cbTabGradientKindChange(Sender: TObject);
begin
  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;
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;
end;

procedure TfrmAppearanceEditWindow.FormCreate(Sender: TObject);
begin
  bOK.AutoSize := false;
  bOK.Width := bCancel.Width;
end;

procedure TfrmAppearanceEditWindow.FormShow(Sender: TObject);
begin
  LoadAppearance(tbPreview.Appearance);
end;

function TfrmAppearanceEditWindow.GetAppearance: TSpkToolbarAppearance;
begin
  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(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 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(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;
end;

procedure TfrmAppearanceEditWindow.pItemActiveCaptionColorClick(Sender: TObject);
begin
  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;
end;

procedure TfrmAppearanceEditWindow.pItemActiveGradientFromClick(Sender: TObject);
begin
  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;
begin
  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;
  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;
end;

procedure TfrmAppearanceEditWindow.bResetClick(Sender: TObject);
begin
  tbPreview.Appearance.Reset;
  LoadAppearance(tbPreview.Appearance);
end;

procedure TfrmAppearanceEditWindow.cbItemActiveGradientKindChange(Sender: TObject);
begin
  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;
end;

procedure TfrmAppearanceEditWindow.pItemActiveInnerDarkClick(Sender: TObject);
begin
  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;
end;

procedure TfrmAppearanceEditWindow.pItemHottrackCaptionColorClick(Sender: TObject);
begin
  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;
end;

procedure TfrmAppearanceEditWindow.pItemHottrackGradientFromClick(Sender: TObject);
begin
  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;
end;

procedure TfrmAppearanceEditWindow.pItemHottrackInnerDarkClick(Sender: TObject);
begin
  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;
end;

procedure TfrmAppearanceEditWindow.pItemIdleCaptionColorClick(Sender: TObject);
begin
  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
      SetLinkedFrameColor((Sender as TPanel).Color);
  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
      SetLinkedGradientFromColor((Sender as TPanel).Color);
  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
      SetLinkedGradientToColor((Sender as TPanel).Color);
  end;
end;

procedure TfrmAppearanceEditWindow.pItemIdleInnerDarkClick(Sender: TObject);
begin
  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;
end;

procedure TfrmAppearanceEditWindow.pItemFontClick(Sender: TObject);
begin
  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
      SetLinkedFrameColor((Sender as TPanel).Color);
  end;
end;

procedure TfrmAppearanceEditWindow.pPaneBorderLightClick(Sender: TObject);
begin
  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;
end;

procedure TfrmAppearanceEditWindow.pPaneCaptionFontClick(Sender: TObject);
begin
  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;
end;

procedure TfrmAppearanceEditWindow.pPaneGradientFromClick(Sender: TObject);
begin
  if ChangeColor(Sender as TPanel) then
  begin
    tbPreview.Appearance.Pane.GradientFromColor:=(Sender as TPanel).Color;

    if cbLinkPane.Checked then
      SetLinkedGradientFromColor((Sender as TPanel).Color);
  end;
end;

procedure TfrmAppearanceEditWindow.cbPaneGradientKindChange(Sender: TObject);
begin
  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
      SetLinkedGradientToColor((Sender as TPanel).Color);
  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
      SetLinkedFrameColor((Sender as TPanel).Color);
  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
      SetLinkedGradientFromColor((Sender as TPanel).Color);
  end;
end;

procedure TfrmAppearanceEditWindow.pTabGradientToClick(Sender: TObject);
begin
  if ChangeColor(Sender as TPanel) then
  begin
    tbPreview.Appearance.Tab.GradientToColor := (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 begin
    tbPreview.Appearance.Tab.TabHeaderFont.Assign((Sender as TPanel).Font);
    tbPreview.ForceRepaint;
  end;
end;

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

end.