Reference TChicagoTheme

  TChicagoTheme = class(TCanvasTheme)
  protected
    function FontSize: Float; override;
    function GlyphSize: Float; override;
    function TitleSize: Float; override;
    procedure DrawCaption(Widget: TWidget; const Rect: TRectF; Text: string = ''); override;
    procedure DrawFocus(Widget: TWidget; const Rect: TRectF);
    procedure DrawThinBorder(Widget: TWidget; const Rect: TRectF);
    procedure DrawSunken(Widget: TWidget; const Rect: TRectF);
    procedure DrawThickBorder(Widget: TWidget);
    procedure Init(Canvas: ICanvas); override;
    procedure DrawEdit(Widget: TEdit); override;
    procedure DrawMemo(Widget: TMemo); override;
    procedure DrawListFrame(Widget: TWidget; out TextColor, SelectColor, SelectTextColor: TColorF); override;
    procedure DrawScrollBar(Widget: TWidget; const Track, Thumb: TRectF; Horizontal: Boolean); override;
    procedure DrawHeaderCell(Grid: TScrollGrid; const Rect: TRectF; Col: Integer; Hot, Pressed: Boolean); override;
    procedure DrawButton(Widget: TPushButton); override;
    procedure DrawGlyphButton(Widget: TGlyphButton); override;
    procedure DrawGlyphImage(Widget: TGlyphImage); override;
    procedure DrawCheckBox(Widget: TCheckBox); override;
    procedure DrawSlider(Widget: TSlider); override;
    procedure DrawSpinBox(Widget: TSpinBox); override;
    procedure PostDrawSpinBox(Widget: TSpinBox); override;
    procedure DropColors(Widget: TSpinBox; out Frame, Back, Hot, Text, HotText: TColorF); override;
    procedure DrawLabel(Widget: TLabel); override;
    procedure DrawWindow(Widget: TWindow); override;
    procedure DrawClose(Window: TWindow; const Rect: TRectF; Hot, Pressed: Boolean); override;
    procedure DrawContainer(Widget: TContainerWidget); override;
  public
    { The color of a theme color as $AARRGGBB }
    function Palette(Widget: TWidget; Color: TThemeColor): LongWord;
    function CalcColor(Widget: TWidget; Color: TThemeColor): TColorF; override;
    function CalcSize(Widget: TWidget; Part: TThemePart): TSizeF; override;
    function CalcCloseRect(Window: TWindow): TRectF; override;
  end;