{***************************************************************************}
{ TAdvCardList component                                                    }
{ for Delphi & C++Builder                                                   }
{                                                                           }
{ written by TMS Software                                                   }
{            copyright © 2005 - 2015                                        }
{            Email : info@tmssoftware.com                                   }
{            Web : http://www.tmssoftware.com                               }
{                                                                           }
{ The source code is given as is. The author is not responsible             }
{ for any possible damage done due to the use of this code.                 }
{ The component can be freely used in any application. The complete         }
{ source code remains property of the author and may not be distributed,    }
{ published, given or sold in any form as such. No parts of the source      }
{ code can be included in any other component or application without        }
{ written authorization of the author.                                      }
{***************************************************************************}

unit AdvCardListStyler;

interface

uses
  Classes, AdvCardList, Graphics, Controls, AdvStyleIF;

const
  TMS_COLOR_MENUBAR = 30;
  clSystemColor = $FF000000;
  clMenuBar = TColor(clSystemColor or TMS_COLOR_MENUBAR);
  clCream = TColor($F0FBFF);

type

  TAdvCardListStyle = (clsXPBlue, clsAquaBlue, clsSilverFox, clsBasicBeige, clsTerminalGreen2, clsMacOS, clsOffice2003, clsOffice2007Luna, clsOffice2007Obsidian, clsWhidbey, clsOffice2007Silver, clsTerminal, clsWindowsVista, clsWindows7, clsOffice2010Blue, clsOffice2010Silver, clsOffice2010Black,
  clsWindows8, clsOffice2013White, clsOffice2013LightGray, clsOffice2013Gray,
  clsWindows10, clsOffice2016White, clsOffice2016Gray, clsOffice2016Black, clsCustom);

  TAdvCustomCardListStyler = class(TComponent)
  private
    FCardList: TCustomAdvCardList;
    procedure SetCardList(const Value: TCustomAdvCardList);
  protected
    procedure ApplyStyle; virtual;
    procedure Notification(AComponent: TComponent; AOperation: TOperation); override;
  published
    property CardList: TCustomAdvCardList read FCardList write SetCardList;
  end;

  {$IFDEF DELPHIXE2_LVL}
  [ComponentPlatformsAttribute(pidWin32 or pidWin64)]
  {$ENDIF}
  TAdvCardListStyler = class(TAdvCustomCardListStyler, ITMSStyle)
  private
    FStyle: TAdvCardListStyle;
    FDefaultStyle: boolean;
    procedure SetStyle(const Value: TAdvCardListStyle);
    procedure SetDefaultStyle(const Value: boolean);
  protected
    procedure ApplyStyle; override;
  public
    procedure SetComponentStyle(AStyle: TTMSStyle);
    destructor Destroy; override;
  published
    property DefaultStyle: boolean read FDefaultStyle write SetDefaultStyle default false;
    property Style: TAdvCardListStyle read FStyle write SetStyle default clsXPBlue;
  end;

implementation

{ TAdvCardListStyler }

procedure TAdvCardListStyler.ApplyStyle;
begin
  inherited;
  SetStyle(FStyle);
end;

destructor TAdvCardListStyler.Destroy;
begin
  inherited;
end;

procedure TAdvCardListStyler.SetComponentStyle(AStyle: TTMSStyle);
begin
  case AStyle of
    tsOffice2003Blue: Style := clsXPBlue;
    tsOffice2003Olive: Style := clsXPBlue;
    tsOffice2003Silver: Style := clsXPBlue;
    tsOffice2003Classic: Style := clsOffice2003;
    tsOffice2007Luna: Style := clsOffice2007Luna;
    tsOffice2007Obsidian: Style := clsOffice2007Obsidian;
    tsWindowsXP: Style := clsOffice2003;
    tsWhidbey: Style := clsWhidbey;
    tsOffice2007Silver: Style := clsOffice2007Silver;
    tsWindowsVista: Style := clsWindowsVista;
    tsWindows7: Style := clsWindows7;
    tsTerminal: Style := clsTerminal;    
    tsOffice2010Blue: Style := clsOffice2010Blue;
    tsOffice2010Silver: Style := clsOffice2010Silver;
    tsOffice2010Black: Style := clsOffice2010Black;
    tsWindows8: Style := clsWindows8;
    tsOffice2013White: Style := clsOffice2013White;
    tsOffice2013LightGray: Style := clsOffice2013LightGray;
    tsOffice2013Gray: Style := clsOffice2013Gray;
    tsWindows10: Style := clsWindows10;
    tsOffice2016White: Style := clsOffice2016White;
    tsOffice2016Gray: Style := clsOffice2016Gray;
    tsOffice2016Black: Style := clsOffice2016Black;
  end;
end;


procedure TAdvCardListStyler.SetDefaultStyle(const Value: boolean);
begin
  if (FDefaultStyle <> Value) then
  begin
    FDefaultStyle := Value;
    if Value and Assigned(CardList) then
      CardList.SetDefaultAppearance;
  end;
end;

procedure TAdvCardListStyler.SetStyle(const Value: TAdvCardListStyle);

  procedure ApplyTemplate;
  var
    i: Integer;
  begin
     for i := 1 to CardList.CardTemplate.Items.Count do
     begin
       CardList.CardTemplate.Items[i - 1].AssignVisuals(CardList.CardTemplate.DefaultItem);
     end;
  end;

begin
  if (FStyle <> Value) then
  begin
    FDefaultStyle := false;

    FStyle := Value;

    if not Assigned(CardList) then
      Exit;

    CardList.BeginUpdate;

    case FStyle of
    clsAquaBlue :
      begin
       with CardList.Color do
        begin
          Color := $00E6E0B0;
          ColorTo := clWhite;
          Direction := gdHorizontal;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvSpace;

          BorderColor := clNone;
          BorderWidth := 0;

          CaptionBorderColor := clHighlight;
          CaptionBorderWidth := 1;
          CaptionColor.Color := $00FEF17E;
          CaptionColor.ColorTo := $00D08130;
          CaptionColor.Direction := gdHorizontal;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 10;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdHorizontal;

          Enabled := true;

          ItemEditFont.Color := $00D08130;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := $00D08130;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [fsBold];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
        with CardList.CardHoverAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvSpace;

          BorderColor := clNone;
          BorderWidth := 0;

          CaptionBorderColor := clHighlight;
          CaptionBorderWidth := 1;
          CaptionColor.Color := $00F9FFBF;
          CaptionColor.ColorTo := $00E6E0B0;
          CaptionColor.Direction := gdHorizontal;
          CaptionFont.Color := $00D08130;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 10;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := $00E6E0B0;
          Color.Direction := gdHorizontal;

          Enabled := true;

          ItemEditFont.Color := $00D08130;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := $00D08130;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [fsBold];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
        with CardList.CardSelectedAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvSpace;

          BorderColor := clNone;
          BorderWidth := 0;

          CaptionBorderColor := clHighlight;
          CaptionBorderWidth := 1;
          CaptionColor.Color := $00FEF17E;
          CaptionColor.ColorTo := $00D08130;
          CaptionColor.Direction := gdHorizontal;
          CaptionFont.Color := $000080FF;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 10;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := $00E6E0B0;
          Color.Direction := gdHorizontal;

          Enabled := true;

          ItemEditFont.Color := $00D08130;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := $00D08130;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [fsBold];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
        with CardList.CardEditingAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvSpace;

          BorderColor := clNone;
          BorderWidth := 0;

          CaptionBorderColor := clHighlight;
          CaptionBorderWidth := 1;
          CaptionColor.Color := $00FEF17E;
          CaptionColor.ColorTo := $00D08130;
          CaptionColor.Direction := gdHorizontal;
          CaptionFont.Color := $000080FF;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 10;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdHorizontal;

          Enabled := true;

          ItemEditFont.Color := $00D08130;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := $00D08130;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [fsBold];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardTemplate do
          CardCaptionAlignment := taLeftJustify;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'Tahoma';
          CaptionColor := clNone;
          ValueFont.Name := 'Tahoma';
          ValueColor := clNone;
          EditColor := clNone;
        end;
    end;
    clsSilverFox :
      begin
       with CardList.Color do
        begin
          Color := $00F0F0F0;
          ColorTo := $00F0F0F0;
          Direction := gdVertical;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clNone;
          BorderWidth := 0;

          CaptionBorderColor := clNone;
          CaptionBorderWidth := 1;
          CaptionColor.Color := clWhite;
          CaptionColor.ColorTo := $00C5BAB7;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clWindowText;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 10;
          CaptionFont.Style := [fsBold];

          Color.Color := $00E4DCDA;
          Color.ColorTo := $00E4DCDA;
          Color.Direction := gdHorizontal;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardHoverAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clNone;
          BorderWidth := 0;

          CaptionBorderColor := $006A240A;
          CaptionBorderWidth := 1;
          CaptionColor.Color := $00D2BDB5;
          CaptionColor.ColorTo := $00D2BDB5;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $000000B0;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 10;
          CaptionFont.Style := [fsBold];

          Color.Color := $00E4DCDA;
          Color.ColorTo := $00E4DCDA;
          Color.Direction := gdHorizontal;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardSelectedAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clNone;
          BorderWidth := 0;

          CaptionBorderColor := clNone;
          CaptionBorderWidth := 1;
          CaptionColor.Color := clWhite;
          CaptionColor.ColorTo := $00D2BDB5;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clWindowText;
          //CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 10;
          CaptionFont.Style := [fsBold];

          Color.Color := $00E4DCDA;
          Color.ColorTo := $00E4DCDA;
          Color.Direction := gdHorizontal;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardEditingAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clNone;
          BorderWidth := 0;

          CaptionBorderColor := $006A240A;
          CaptionBorderWidth := 1;
          CaptionColor.Color := clWhite;
          CaptionColor.ColorTo := $00D2BDB5;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $000000B0;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 10;
          CaptionFont.Style := [fsBold];

          Color.Color := $00E4DCDA;
          Color.ColorTo := $00E4DCDA;
          Color.Direction := gdHorizontal;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardTemplate do
          CardCaptionAlignment := taLeftJustify;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'Tahoma';
          CaptionColor := clNone;
          ValueFont.Name := 'Tahoma';
          ValueColor := clNone;
          EditColor := clNone;
        end;
      end;
    clsBasicBeige :
      begin
       with CardList.Color do
        begin
          Color := clWhite;
          ColorTo := clMenuBar;
          Direction := gdVertical;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clInactiveBorder;
          BorderWidth := 1;

          CaptionBorderColor := clNone;
          CaptionBorderWidth := 0;
          CaptionColor.Color := clCream;
          CaptionColor.ColorTo := clMenuBar;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clOlive;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 10;
          CaptionFont.Style := [fsBold];

          Color.Color := clBtnFace;
          Color.ColorTo := clScrollBar;
          Color.Direction := gdHorizontal;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 9;
          ItemEditFont.Style := [fsBold];
          ItemLabelFont.Color := clOlive;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 9;
          ItemLabelFont.Style := [fsBold, fsUnderline];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardHoverAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clInactiveBorder;
          BorderWidth := 1;

          CaptionBorderColor := clNone;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $00D9FFFF;
          CaptionColor.ColorTo := $00C1FFFE;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clOlive;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 10;
          CaptionFont.Style := [fsBold];

          Color.Color := clBtnFace;
          Color.ColorTo := clScrollBar;
          Color.Direction := gdHorizontal;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 9;
          ItemEditFont.Style := [fsBold];
          ItemLabelFont.Color := clOlive;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 9;
          ItemLabelFont.Style := [fsBold, fsUnderline];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardSelectedAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clActiveBorder;
          BorderWidth := 1;

          CaptionBorderColor := clNone;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $00D7EDED;
          CaptionColor.ColorTo := $008AC2C1;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clMaroon;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 10;
          CaptionFont.Style := [fsBold];

          Color.Color := clBtnFace;
          Color.ColorTo := clScrollBar;
          Color.Direction := gdHorizontal;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          //ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 9;
          ItemEditFont.Style := [fsBold];
          ItemLabelFont.Color := clOlive;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 9;
          ItemLabelFont.Style := [fsBold, fsUnderline];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
     with CardList.CardEditingAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clMaroon;
          BorderWidth := 1;

          CaptionBorderColor := clNone;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $00D7EDED;
          CaptionColor.ColorTo := $008AC2C1;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clMaroon;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 10;
          CaptionFont.Style := [fsBold];

          Color.Color := clBtnFace;
          Color.ColorTo := clScrollBar;
          Color.Direction := gdHorizontal;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 9;
          ItemEditFont.Style := [fsBold];
          ItemLabelFont.Color := clOlive;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 9;
          ItemLabelFont.Style := [fsBold, fsUnderline];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;
      end;
      with CardList.CardTemplate do
          CardCaptionAlignment := taCenter;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'MS Sans Serif';
          CaptionColor := clNone;
          ValueFont.Name := 'MS Sans Serif';
          ValueColor := clNone;
          EditColor := clNone;
        end;
      end;
    clsTerminalGreen2 :
      begin
       with CardList.Color do
        begin
          Color := clWhite;
          ColorTo := $00EEFDF3;
          Direction := gdVertical;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvRaised;

          BorderColor := clGreen;
          BorderWidth := 1;

          CaptionBorderColor := clNone;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $0089E0B7;
          CaptionColor.ColorTo := clWhite;
          CaptionColor.Direction := gdHorizontal;
          CaptionFont.Color := clGray;
          CaptionFont.Name := 'Verdana';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold, fsItalic];

          Color.Color := clWhite;
          Color.ColorTo := $00BAF5D0;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Arial';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Arial';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardHoverAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvRaised;

          BorderColor := clGreen;
          BorderWidth := 1;

          CaptionBorderColor := clNone;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $0089E0B7;
          CaptionColor.ColorTo := clWhite;
          CaptionColor.Direction := gdHorizontal;
          CaptionFont.Color := $000080FF;
          CaptionFont.Name := 'Verdana';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold, fsItalic];

          Color.Color := clWhite;
          Color.ColorTo := $00BAF5D0;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Arial';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Arial';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardSelectedAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvRaised;

          BorderColor := $000080FF;
          BorderWidth := 1;

          CaptionBorderColor := clNone;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $0089E0B7;
          CaptionColor.ColorTo := $0089E0B7;
          CaptionColor.Direction := gdHorizontal;
          CaptionFont.Color := $000080FF;
          CaptionFont.Name := 'Verdana';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold, fsItalic];

          Color.Color := clWhite;
          Color.ColorTo := $00BAF5D0;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Arial';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Arial';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
     with CardList.CardEditingAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvRaised;

          BorderColor := $000080FF;
          BorderWidth := 1;

          CaptionBorderColor := clNone;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $0089E0B7;
          CaptionColor.ColorTo := $0089E0B7;
          CaptionColor.Direction := gdHorizontal;
          CaptionFont.Color := $000080FF;
          CaptionFont.Name := 'Verdana';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold, fsItalic];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Arial';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Arial';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardTemplate do
          CardCaptionAlignment := taLeftJustify;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'Arial';
          CaptionColor := clNone;
          ValueFont.Name := 'Arial';
          ValueColor := clInfoBk;
          EditColor := clInfoBk;
        end;
      end;
   clsMacOS:
      begin
       with CardList.Color do
        begin
          Color := clWhite;
          ColorTo := $00F3F3F3;
          Direction := gdHorizontal;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clGray;
          BorderWidth := 1;

          CaptionBorderColor := clNone;
          CaptionBorderWidth := 0;
          CaptionColor.Color := clNone;
          CaptionColor.ColorTo := clNone;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clGray;
          CaptionFont.Name := 'Arial';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $00F3F3F3;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Arial';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Arial';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardHoverAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvRaised;

          BorderColor := clGray;
          BorderWidth := 1;

          CaptionBorderColor := clNone;
          CaptionBorderWidth := 0;
          CaptionColor.Color := clGray;
          CaptionColor.ColorTo := clGray;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clWhite;
          CaptionFont.Name := 'Arial';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $00F5F5F5;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Arial';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Arial';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
     with CardList.CardSelectedAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvRaised;

          BorderColor := clGray;
          BorderWidth := 1;

          CaptionBorderColor := clNone;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $00F19546;
          CaptionColor.ColorTo := $00C34907;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clWhite;
          CaptionFont.Name := 'Arial';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $00F5F5F5;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Arial';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Arial';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
     with CardList.CardEditingAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvRaised;

          BorderColor := clGray;
          BorderWidth := 1;

          CaptionBorderColor := clNone;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $00F19546;
          CaptionColor.ColorTo := $00C34907;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clWhite;
          CaptionFont.Name := 'Arial';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $00F5F5F5;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Arial';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Arial';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardTemplate do
          CardCaptionAlignment := taCenter;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'Arial';
          CaptionColor := clNone;
          ValueFont.Name := 'Arial';
          ValueColor := clNone;
          EditColor := clNone;
        end;

      end;
    clsXPBlue:
      begin
       with CardList.Color do
        begin
          Color := cl3DLight;
          ColorTo := clMenuBar;
          Direction := gdVertical;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clHighlight;
          BorderWidth := 1;

          CaptionBorderColor := clWhite;
          CaptionBorderWidth := 1;
          CaptionColor.Color := $00FDEADA;
          CaptionColor.ColorTo := $00E4AE88;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clHighlight;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $00FDEADA;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardSelectedAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clHighlight;
          BorderWidth := 1;

          CaptionBorderColor := clWhite;
          CaptionBorderWidth := 1;
          CaptionColor.Color := $007CDAF7;
          CaptionColor.ColorTo := $00087FE8;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clWhite;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $00D3F8FF;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
        with CardList.CardHoverAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clBlack;
          BorderWidth := 1;

          CaptionBorderColor := clWhite;
          CaptionBorderWidth := 1;
          CaptionColor.Color := $00FDEADA;
          CaptionColor.ColorTo := $00D08130;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $00FDEADA;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardEditingAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clBlack;
          BorderWidth := 1;

          CaptionBorderColor := clWhite;
          CaptionBorderWidth := 1;
          CaptionColor.Color := clSilver;
          CaptionColor.ColorTo := clRed;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clWhite;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $00D3F8FF;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;

      with CardList.CardTemplate do
        CardCaptionAlignment := taLeftJustify;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'MS Sans Serif';
          CaptionColor := clNone;
          ValueFont.Name := 'MS Sans Serif';
          ValueColor := clNone;
          EditColor := clNone;
        end;

        ApplyTemplate;

      end;
      clsOffice2007Obsidian:
      begin
       with CardList.Color do
        begin
          Color := $EBEBEB;
          ColorTo := $EBEBEB;
          Direction := gdVertical;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $5C534C;
          BorderWidth := 1;

          CaptionBorderColor := $5C534C;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $F2F1F0;
          CaptionColor.ColorTo := $C9C2BD;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $433C37;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := $F9F5F1;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardSelectedAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $5C534C;
          BorderWidth := 1;

          CaptionBorderColor := $5C534C;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $94E6FB;
          CaptionColor.ColorTo := $1595EE;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clInfoBk;
          Color.ColorTo := $F9F5F1;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
        with CardList.CardHoverAppearance do
        begin
           BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $5C534C;
          BorderWidth := 1;

          CaptionBorderColor := $5C534C;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $F2F1F0;
          CaptionColor.ColorTo := $C9C2BD;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $433C37;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := $F9F5F1;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardEditingAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $5C534C;
          BorderWidth := 1;

          CaptionBorderColor := $5C534C;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $94E6FB;
          CaptionColor.ColorTo := $1595EE;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clInfoBk;
          Color.ColorTo := $F9F5F1;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;

      with CardList.CardTemplate do
        CardCaptionAlignment := taLeftJustify;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'MS Sans Serif';
          CaptionColor := clNone;
          ValueFont.Name := 'MS Sans Serif';
          ValueColor := clNone;
          EditColor := clNone;
        end;

        ApplyTemplate;

      end;
      clsOffice2007Luna:
      begin
       with CardList.Color do
        begin
          Color := $F2E4D5;
          ColorTo := $F2E4D5;
          Direction := gdVertical;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $CF9365;
          BorderWidth := 1;

          CaptionBorderColor := $CF9365;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $FFEFE3;
          CaptionColor.ColorTo := $FFD2AF;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $723708;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := $F9F5F1;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardSelectedAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $CF9365;
          BorderWidth := 1;

          CaptionBorderColor := $CF9365;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $94E6FB;
          CaptionColor.ColorTo := $1595EE;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clInfoBk;
          Color.ColorTo := $F9F5F1;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
        with CardList.CardHoverAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $CF9365;
          BorderWidth := 1;

          CaptionBorderColor := $CF9365;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $FFEFE3;
          CaptionColor.ColorTo := $FFD2AF;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $723708;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := $F9F5F1;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardEditingAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $CF9365;
          BorderWidth := 1;

          CaptionBorderColor := $CF9365;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $94E6FB;
          CaptionColor.ColorTo := $1595EE;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clInfoBk;
          Color.ColorTo := $F9F5F1;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;

      with CardList.CardTemplate do
        CardCaptionAlignment := taLeftJustify;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'MS Sans Serif';
          CaptionColor := clNone;
          ValueFont.Name := 'MS Sans Serif';
          ValueColor := clNone;
          EditColor := clNone;
        end;

        ApplyTemplate;

      end;
      clsOffice2007Silver:
      begin
       with CardList.Color do
        begin
          Color := $F2F1F0;
          ColorTo := $F2F1F0;
          Direction := gdVertical;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $74706F;
          BorderWidth := 1;

          CaptionBorderColor := $C1BFBE;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $F6EBE7;
          CaptionColor.ColorTo := $D3C9C7;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $5C534C;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := $F9F5F1;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardSelectedAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $CF9365;
          BorderWidth := 1;

          CaptionBorderColor := $CF9365;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $94E6FB;
          CaptionColor.ColorTo := $1595EE;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clInfoBk;
          Color.ColorTo := $F9F5F1;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
        with CardList.CardHoverAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $74706F;
          BorderWidth := 1;

          CaptionBorderColor := $C1BFBE;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $F6EBE7;
          CaptionColor.ColorTo := $D3C9C7;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $5C534C;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := $F9F5F1;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardEditingAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $CF9365;
          BorderWidth := 1;

          CaptionBorderColor := $CF9365;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $94E6FB;
          CaptionColor.ColorTo := $1595EE;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clInfoBk;
          Color.ColorTo := $F9F5F1;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;

      with CardList.CardTemplate do
        CardCaptionAlignment := taLeftJustify;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'MS Sans Serif';
          CaptionColor := clNone;
          ValueFont.Name := 'MS Sans Serif';
          ValueColor := clNone;
          EditColor := clNone;
        end;

        ApplyTemplate;

      end;
    clsOffice2003:
      begin
        with CardList.Color do
        begin
          Color := clWhite;
          ColorTo := clWhite;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clMenuBar;
          BorderWidth := 0;

          CaptionBorderColor := clWhite;
          CaptionBorderWidth := 1;
          CaptionColor.Color := clMenuBar;
          CaptionColor.ColorTo := clNone;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Verdana';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Verdana';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Verdana';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
        with CardList.CardHoverAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clMenuBar;
          BorderWidth := 0;

          CaptionBorderColor := clWhite;
          CaptionBorderWidth := 1;
          CaptionColor.Color := clMenuBar;
          CaptionColor.ColorTo := clNone;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Verdana';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Verdana';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Verdana';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardSelectedAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clMenuBar;
          BorderWidth := 2;

          CaptionBorderColor := clWhite;
          CaptionBorderWidth := 1;
          CaptionColor.Color := clHighLight;
          CaptionColor.ColorTo := clNone;
          CaptionFont.Color := clWhite;
          CaptionFont.Name := 'Verdana';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Verdana';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Verdana';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardEditingAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clMenuBar;
          BorderWidth := 2;

          CaptionBorderColor := clWhite;
          CaptionBorderWidth := 1;
          CaptionColor.Color := clHighLight;
          CaptionColor.ColorTo := clNone;
          CaptionFont.Color := clWhite;
          CaptionFont.Name := 'Verdana';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Verdana';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Verdana';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;

      with CardList.CardTemplate do
          CardCaptionAlignment := taLeftJustify;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'Verdana';
          CaptionColor := clNone;
          ValueFont.Name := 'Verdana';
          ValueColor := clNone;
          EditColor := clNone;
        end;
        ApplyTemplate;
      end;
   clsWhidbey:
      begin
        with CardList.Color do
        begin
          Color := clWhite;
          ColorTo := clWhite;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clMenuBar;
          BorderWidth := 0;

          CaptionBorderColor := clWhite;
          CaptionBorderWidth := 1;
          CaptionColor.Color := clMenuBar;
          CaptionColor.ColorTo := clNone;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Verdana';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Verdana';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Verdana';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;
        end;
        with CardList.CardHoverAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clMenuBar;
          BorderWidth := 0;

          CaptionBorderColor := clWhite;
          CaptionBorderWidth := 1;
          CaptionColor.Color := clMenuBar;
          CaptionColor.ColorTo := clNone;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Verdana';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Verdana';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Verdana';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardSelectedAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clMenuBar;
          BorderWidth := 2;

          CaptionBorderColor := clWhite;
          CaptionBorderWidth := 1;
          CaptionColor.Color := clHighLight;
          CaptionColor.ColorTo := clNone;
          CaptionFont.Color := clWhite;
          CaptionFont.Name := 'Verdana';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Verdana';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Verdana';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardEditingAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clMenuBar;
          BorderWidth := 2;

          CaptionBorderColor := clWhite;
          CaptionBorderWidth := 1;
          CaptionColor.Color := clHighLight;
          CaptionColor.ColorTo := clNone;
          CaptionFont.Color := clWhite;
          CaptionFont.Name := 'Verdana';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Verdana';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Verdana';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;

      with CardList.CardTemplate do
          CardCaptionAlignment := taLeftJustify;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'Verdana';
          CaptionColor := clNone;
          ValueFont.Name := 'Verdana';
          ValueColor := clNone;
          EditColor := clNone;
        end;
        ApplyTemplate;
      end;

      clsWindows7:
      begin
       with CardList.Color do
        begin
          Color := $00FCEBDC;
          ColorTo := $00FCDBC1;
          Direction := gdVertical;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $00CEA27D;
          BorderWidth := 1;

          CaptionBorderColor := $C1BFBE;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $00FDFBFA;
          CaptionColor.ColorTo := $00FDF3EB;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := $F9F5F1;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardSelectedAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $CF9365;
          BorderWidth := 1;

          CaptionBorderColor := $CF9365;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $00FCEBDC;
          CaptionColor.ColorTo := $00FCDBC1;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
        with CardList.CardHoverAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $00E3B28D;
          BorderWidth := 1;

          CaptionBorderColor := $C1BFBE;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $00FDFBFA;
          CaptionColor.ColorTo := $00FDF3EB;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $5C534C;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardEditingAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $CF9365;
          BorderWidth := 1;

          CaptionBorderColor := $CF9365;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $00FCEBDC;
          CaptionColor.ColorTo := $00FCDBC1;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;

      with CardList.CardTemplate do
        CardCaptionAlignment := taLeftJustify;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'Tahoma';
          CaptionColor := clNone;
          ValueFont.Name := 'Tahoma';
          ValueColor := clNone;
          EditColor := clNone;
        end;

        ApplyTemplate;

      end;

      clsWindowsVista:
      begin
       with CardList.Color do
        begin
          Color := $00FFFDF9;
          ColorTo := $00FFFAF0;
          Direction := gdVertical;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $00FCF2DA;
          BorderWidth := 1;

          CaptionBorderColor := $00FDDE99;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $00FFFDF9;
          CaptionColor.ColorTo := $00FFFAF0;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $5C534C;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardSelectedAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $00FEDF9A;
          BorderWidth := 1;

          CaptionBorderColor := $CF9365;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $00FEF9F0;
          CaptionColor.ColorTo := $00FDF0D7;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
        with CardList.CardHoverAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $00FEDF9A;
          BorderWidth := 1;

          CaptionBorderColor := $CF9365;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $00FFFDF9;
          CaptionColor.ColorTo := $00FFFAF0;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $5C534C;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardEditingAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $00FEDF9A;
          BorderWidth := 1;

          CaptionBorderColor := $CF9365;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $00FFFABF;
          CaptionColor.ColorTo := $00FEDF9A;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;

      with CardList.CardTemplate do
        CardCaptionAlignment := taLeftJustify;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'Tahoma';
          CaptionColor := clNone;
          ValueFont.Name := 'Tahoma';
          ValueColor := clNone;
          EditColor := clNone;
        end;

        ApplyTemplate;

      end;

      clsTerminal:
      begin
       with CardList.Color do
        begin
          Color := clWhite;
          ColorTo := clWhite;
          Direction := gdVertical;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clBlack;
          BorderWidth := 1;

          CaptionBorderColor := clbtnface;
          CaptionBorderWidth := 0;
          CaptionColor.Color := clbtnface;
          CaptionColor.ColorTo := clbtnface;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $5C534C;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardSelectedAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clBlack;
          BorderWidth := 1;

          CaptionBorderColor := $CF9365;
          CaptionBorderWidth := 0;
          CaptionColor.Color := clHighlight;
          CaptionColor.ColorTo := clHighlight;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clWhite;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
        with CardList.CardHoverAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clBlack;
          BorderWidth := 1;

          CaptionBorderColor := $C1BFBE;
          CaptionBorderWidth := 0;
          CaptionColor.Color := clSilver;
          CaptionColor.ColorTo := clSilver;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $5C534C;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardEditingAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := clBlack;
          BorderWidth := 1;

          CaptionBorderColor := $CF9365;
          CaptionBorderWidth := 0;
          CaptionColor.Color := clGray;
          CaptionColor.ColorTo := clGray;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'MS Sans Serif';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'MS Sans Serif';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'MS Sans Serif';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;

      with CardList.CardTemplate do
        CardCaptionAlignment := taLeftJustify;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'MS Sans Serif';
          CaptionColor := clNone;
          ValueFont.Name := 'MS Sans Serif';
          ValueColor := clNone;
          EditColor := clNone;
        end;

        ApplyTemplate;

      end;
      clsOffice2010Blue:
      begin
       with CardList.Color do
        begin
          Color := $FDF6EF;
          ColorTo := $F0DAC7;
          Direction := gdVertical;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $C7B29F;
          BorderWidth := 1;

          CaptionBorderColor := $C7B29F;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $EAD3BF;
          CaptionColor.ColorTo := $EAD3BF;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardSelectedAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $308AC2;
          BorderWidth := 1;

          CaptionBorderColor := $308AC2;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $6CD0FF;
          CaptionColor.ColorTo := $7BEEFF;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
        with CardList.CardHoverAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $58CAF1;
          BorderWidth := 1;

          CaptionBorderColor := $58CAF1;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $8AE3FD;
          CaptionColor.ColorTo := $8AE3FD;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardEditingAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $D9C3B1;
          BorderWidth := 1;

          CaptionBorderColor := $D9C3B1;
          CaptionBorderWidth := 0;
          CaptionColor.Color := clWhite;
          CaptionColor.ColorTo := $D9C3B1;
          CaptionColor.Direction := gdVertical;
         CaptionFont.Color := $5B391E;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;

      with CardList.CardTemplate do
        CardCaptionAlignment := taLeftJustify;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'Tahoma';
          CaptionColor := clNone;
          ValueFont.Name := 'Tahoma';
          ValueColor := clNone;
          EditColor := clNone;
        end;

        ApplyTemplate;

      end;

      clsOffice2010Silver:
      begin
       with CardList.Color do
        begin
          Color := $FFFFFF;
          ColorTo := $EDE5E0;
          Direction := gdVertical;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $D2CDC8;
          BorderWidth := 1;

          CaptionBorderColor := $D2CDC8;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $D4CFCB;
          CaptionColor.ColorTo := $D4CFCB;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardSelectedAppearance do
        begin
           BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $308AC2;
          BorderWidth := 1;

          CaptionBorderColor := $308AC2;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $6CD0FF;
          CaptionColor.ColorTo := $7BEEFF;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
        with CardList.CardHoverAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $58CAF1;
          BorderWidth := 1;

          CaptionBorderColor := $58CAF1;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $8AE3FD;
          CaptionColor.ColorTo := $8AE3FD;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardEditingAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $DBD4CE;
          BorderWidth := 1;

          CaptionBorderColor := $DBD4CE;
          CaptionBorderWidth := 0;
          CaptionColor.Color := clWhite;
          CaptionColor.ColorTo := $DBD4CE;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $5B391E;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;

      with CardList.CardTemplate do
        CardCaptionAlignment := taLeftJustify;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'Tahoma';
          CaptionColor := clNone;
          ValueFont.Name := 'Tahoma';
          ValueColor := clNone;
          EditColor := clNone;
        end;

        ApplyTemplate;

      end;

      clsOffice2010Black:
      begin
       with CardList.Color do
        begin
          Color := $BFBFBF;
          ColorTo := $919191;
          Direction := gdVertical;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $6D6D6D;
          BorderWidth := 1;

          CaptionBorderColor := $6D6D6D;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $656565;
          CaptionColor.ColorTo := $656565;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clWhite;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardSelectedAppearance do
        begin
           BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $308AC2;
          BorderWidth := 1;

          CaptionBorderColor := $308AC2;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $6CD0FF;
          CaptionColor.ColorTo := $7BEEFF;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
        with CardList.CardHoverAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $58CAF1;
          BorderWidth := 1;

          CaptionBorderColor := $58CAF1;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $8AE3FD;
          CaptionColor.ColorTo := $8AE3FD;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardEditingAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $656565;
          BorderWidth := 1;

          CaptionBorderColor := $656565;
          CaptionBorderWidth := 0;
          CaptionColor.Color := clSilver;
          CaptionColor.ColorTo := $656565;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clWhite;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;

      with CardList.CardTemplate do
        CardCaptionAlignment := taLeftJustify;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'Tahoma';
          CaptionColor := clNone;
          ValueFont.Name := 'Tahoma';
          ValueColor := clNone;
          EditColor := clNone;
        end;

        ApplyTemplate;

      end;

    clsWindows8, clsWindows10:
      begin
       with CardList.Color do
        begin
          Color := clWhite;
          ColorTo := clWhite;
          Direction := gdVertical;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $E4E3E2;
          BorderWidth := 1;

          CaptionBorderColor := $E4E3E2;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $F7F6F5;
          CaptionColor.ColorTo := $F7F6F5;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardSelectedAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $E4A262;
          BorderWidth := 1;

          CaptionBorderColor := $E4E3E2;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $F7F6F5;
          CaptionColor.ColorTo := $F7F6F5;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $F7E0C9;
          Color.ColorTo := $F7E0C9;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
        with CardList.CardHoverAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $F9CEA4;
          BorderWidth := 1;

          CaptionBorderColor := $E4E3E2;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $F7F6F5;
          CaptionColor.ColorTo := $F7F6F5;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $F7EFE8;
          Color.ColorTo := $F7EFE8;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardEditingAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $DBD4CE;
          BorderWidth := 1;

          CaptionBorderColor := $DAA026;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $DAA026;
          CaptionColor.ColorTo := $DAA026;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clWhite;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;

      with CardList.CardTemplate do
        CardCaptionAlignment := taLeftJustify;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'Tahoma';
          CaptionColor := clNone;
          ValueFont.Name := 'Tahoma';
          ValueColor := clNone;
          EditColor := clNone;
        end;

        ApplyTemplate;

      end;

    clsOffice2013White:
      begin
       with CardList.Color do
        begin
          Color := clWhite;
          ColorTo := clWhite;
          Direction := gdVertical;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $D4D4D4;
          BorderWidth := 1;

          CaptionBorderColor := $D4D4D4;
          CaptionBorderWidth := 1;
          CaptionColor.Color := clWhite;
          CaptionColor.ColorTo := clWhite;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardSelectedAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $E59D56;
          BorderWidth := 1;

          CaptionBorderColor := $D4D4D4;
          CaptionBorderWidth := 0;
          CaptionColor.Color := clWhite;
          CaptionColor.ColorTo := clWhite;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $FCE2C8;
          Color.ColorTo := $FCE2C8;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
        with CardList.CardHoverAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $EAB47E;
          BorderWidth := 1;

          CaptionBorderColor := $D4D4D4;
          CaptionBorderWidth := 0;
          CaptionColor.Color := clWhite;
          CaptionColor.ColorTo := clWhite;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $FCF0E4;
          Color.ColorTo := $FCF0E4;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardEditingAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $DBD4CE;
          BorderWidth := 1;

          CaptionBorderColor := $FF9933;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $FF9933;
          CaptionColor.ColorTo := $FF9933;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clWhite;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;

      with CardList.CardTemplate do
        CardCaptionAlignment := taLeftJustify;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'Tahoma';
          CaptionColor := clNone;
          ValueFont.Name := 'Tahoma';
          ValueColor := clNone;
          EditColor := clNone;
        end;

        ApplyTemplate;

      end;
    clsOffice2013LightGray:
      begin
       with CardList.Color do
        begin
          Color := clWhite;
          ColorTo := clWhite;
          Direction := gdVertical;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $C6C6C6;
          BorderWidth := 1;

          CaptionBorderColor := $C6C6C6;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $F6F6F6;
          CaptionColor.ColorTo := $F6F6F6;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardSelectedAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $E59D56;
          BorderWidth := 1;

          CaptionBorderColor := $C6C6C6;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $F6F6F6;
          CaptionColor.ColorTo := $F6F6F6;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $FCE2C8;
          Color.ColorTo := $FCE2C8;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
        with CardList.CardHoverAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $EAB47E;
          BorderWidth := 1;

          CaptionBorderColor := $C6C6C6;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $F6F6F6;
          CaptionColor.ColorTo := $F6F6F6;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $FCF0E4;
          Color.ColorTo := $FCF0E4;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardEditingAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $DBD4CE;
          BorderWidth := 1;

          CaptionBorderColor := $FF9933;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $FF9933;
          CaptionColor.ColorTo := $FF9933;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clWhite;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;

      with CardList.CardTemplate do
        CardCaptionAlignment := taLeftJustify;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'Tahoma';
          CaptionColor := clNone;
          ValueFont.Name := 'Tahoma';
          ValueColor := clNone;
          EditColor := clNone;
        end;

        ApplyTemplate;

      end;
    clsOffice2013Gray:
      begin
       with CardList.Color do
        begin
          Color := clWhite;
          ColorTo := clWhite;
          Direction := gdVertical;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $ABABAB;
          BorderWidth := 1;

          CaptionBorderColor := $ABABAB;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $E5E5E5;
          CaptionColor.ColorTo := $E5E5E5;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardSelectedAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $E59D56;
          BorderWidth := 1;

          CaptionBorderColor := $ABABAB;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $E5E5E5;
          CaptionColor.ColorTo := $E5E5E5;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $FCE2C8;
          Color.ColorTo := $FCE2C8;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
        with CardList.CardHoverAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $EAB47E;
          BorderWidth := 1;

          CaptionBorderColor := $ABABAB;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $E5E5E5;
          CaptionColor.ColorTo := $E5E5E5;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clBlack;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $FCF0E4;
          Color.ColorTo := $FCF0E4;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardEditingAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $DBD4CE;
          BorderWidth := 1;

          CaptionBorderColor := $FF9933;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $FF9933;
          CaptionColor.ColorTo := $FF9933;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := clWhite;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := clBlack;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := clBlack;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;

      with CardList.CardTemplate do
        CardCaptionAlignment := taLeftJustify;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'Tahoma';
          CaptionColor := clNone;
          ValueFont.Name := 'Tahoma';
          ValueColor := clNone;
          EditColor := clNone;
        end;

        ApplyTemplate;

      end;

    clsOffice2016White:
      begin
       with CardList.Color do
        begin
          Color := clWhite;
          ColorTo := clWhite;
          Direction := gdVertical;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $D4D4D4;
          BorderWidth := 1;

          CaptionBorderColor := $D4D4D4;
          CaptionBorderWidth := 1;
          CaptionColor.Color := clWhite;
          CaptionColor.ColorTo := clWhite;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $505050;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := $505050;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := $505050;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardSelectedAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $E3BDA3;
          BorderWidth := 1;

          CaptionBorderColor := $E3BDA3;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $E3BDA3;
          CaptionColor.ColorTo := $E3BDA3;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $505050;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := $505050;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := $505050;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
        with CardList.CardHoverAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $F2E1D5;;
          BorderWidth := 1;

          CaptionBorderColor := $F2E1D5;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $F2E1D5;
          CaptionColor.ColorTo := $F2E1D5;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $505050;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := $505050;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := $505050;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardEditingAppearance do
        begin
         BorderColor := $F2E1D5;;
          BorderWidth := 1;

          CaptionBorderColor := $F2E1D5;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $F2E1D5;
          CaptionColor.ColorTo := $F2E1D5;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $505050;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := clWhite;
          Color.ColorTo := clWhite;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := $505050;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := $505050;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;

      with CardList.CardTemplate do
        CardCaptionAlignment := taLeftJustify;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'Tahoma';
          CaptionColor := clNone;
          ValueFont.Name := 'Tahoma';
          ValueColor := clNone;
          EditColor := clNone;
        end;

        ApplyTemplate;

      end;
    clsOffice2016Gray:
      begin
       with CardList.Color do
        begin
          Color := $B2B2B2;
          ColorTo := $B2B2B2;
          Direction := gdVertical;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $444444;
          BorderWidth := 1;

          CaptionBorderColor := $444444;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $B2B2B2;
          CaptionColor.ColorTo := $B2B2B2;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $424242;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $B2B2B2;
          Color.ColorTo := $B2B2B2;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := $424242;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := $424242;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardSelectedAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $E3BDA3;
          BorderWidth := 1;

          CaptionBorderColor := $E3BDA3;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $E3BDA3;
          CaptionColor.ColorTo := $E3BDA3;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $424242;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $B2B2B2;
          Color.ColorTo := $B2B2B2;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := $424242;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := $424242;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
        with CardList.CardHoverAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $F2E1D5;
          BorderWidth := 1;

          CaptionBorderColor := $F2E1D5;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $F2E1D5;
          CaptionColor.ColorTo := $F2E1D5;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $424242;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $B2B2B2;
          Color.ColorTo := $B2B2B2;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := $424242;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := $424242;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardEditingAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $E3BDA3;
          BorderWidth := 1;

          CaptionBorderColor := $E3BDA3;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $E3BDA3;
          CaptionColor.ColorTo := $E3BDA3;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $424242;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $B2B2B2;
          Color.ColorTo := $B2B2B2;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := $424242;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := $424242;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;

      with CardList.CardTemplate do
        CardCaptionAlignment := taLeftJustify;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'Tahoma';
          CaptionColor := clNone;
          ValueFont.Name := 'Tahoma';
          ValueColor := clNone;
          EditColor := clNone;
        end;

        ApplyTemplate;

      end;
    clsOffice2016Black:
      begin
       with CardList.Color do
        begin
          Color := $363636;
          ColorTo := $363636;
          Direction := gdVertical;
        end;
        with CardList.CardNormalAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $444444;
          BorderWidth := 1;

          CaptionBorderColor := $444444;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $363636;
          CaptionColor.ColorTo := $363636;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $A6A6A6;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $363636;
          Color.ColorTo := $363636;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := $A6A6A6;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := $A6A6A6;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
       with CardList.CardSelectedAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $444444;
          BorderWidth := 1;

          CaptionBorderColor := $444444;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $444444;
          CaptionColor.ColorTo := $444444;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $A6A6A6;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $363636;
          Color.ColorTo := $363636;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := $A6A6A6;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := $A6A6A6;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
        with CardList.CardHoverAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $6A6A6A;
          BorderWidth := 1;

          CaptionBorderColor := $6A6A6A;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $6A6A6A;
          CaptionColor.ColorTo := $6A6A6A;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $A6A6A6;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $363636;
          Color.ColorTo := $363636;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := $A6A6A6;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := $A6A6A6;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;
      with CardList.CardEditingAppearance do
        begin
          BevelInner := bvNone;
          BevelOuter := bvNone;

          BorderColor := $444444;
          BorderWidth := 1;

          CaptionBorderColor := $444444;
          CaptionBorderWidth := 0;
          CaptionColor.Color := $444444;
          CaptionColor.ColorTo := $444444;
          CaptionColor.Direction := gdVertical;
          CaptionFont.Color := $A6A6A6;
          CaptionFont.Name := 'Tahoma';
          CaptionFont.Size := 8;
          CaptionFont.Style := [fsBold];

          Color.Color := $363636;
          Color.ColorTo := $363636;
          Color.Direction := gdVertical;

          Enabled := true;

          ItemEditFont.Color := $A6A6A6;
          ItemEditFont.Name := 'Tahoma';
          ItemEditFont.Size := 8;
          ItemEditFont.Style := [];
          ItemLabelFont.Color := $A6A6A6;
          ItemLabelFont.Name := 'Tahoma';
          ItemLabelFont.Size := 8;
          ItemLabelFont.Style := [];
          ReplaceEditFont := true;
          ReplaceLabelFont := true;

        end;

      with CardList.CardTemplate do
        CardCaptionAlignment := taLeftJustify;

      with CardList.CardTemplate.DefaultItem do
        begin
          CaptionFont.Name := 'Tahoma';
          CaptionColor := clNone;
          ValueFont.Name := 'Tahoma';
          ValueColor := clNone;
          EditColor := clNone;
        end;

        ApplyTemplate;

      end;

    end;
    CardList.EndUpdate;
  end;
end;


{ TAdvCustomCardListStyler }

procedure TAdvCustomCardListStyler.ApplyStyle;
begin

end;

procedure TAdvCustomCardListStyler.Notification(AComponent: TComponent;
  AOperation: TOperation);
begin
  inherited;
  if (AOperation = opRemove) and (AComponent = CardList) then
    FCardList := nil;
end;

procedure TAdvCustomCardListStyler.SetCardList(const Value: TCustomAdvCardList);
var
  flg: boolean;
begin
  if (FCardList <> Value) and Assigned(Value) then
  begin
    flg := FCardList = nil;
    FCardList := Value;
    if flg and (csDesigning in ComponentState) then
      ApplyStyle;
  end;
end;

end.
