Reference TCupertinoTheme

  TCupertinoTheme = class(TDesktopTheme)
  protected
    function Palette(Widget: TWidget; Color: TThemeColor): LongWord; override;
    function CaptionHeight: Float; override;
    function ButtonHeight: Float; override;
    function ThumbSize: TSizeF; override;
    function WindowRadius: Float; override;
    function FontSize: Float; override;
    function TitleSize: Float; override;
    procedure Init(Canvas: ICanvas); override;
    procedure FocusRing(Widget: TWidget; const R: TRectF; Radius: Float);
    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 DrawCheckBox(Widget: TCheckBox); override;
    procedure DrawSlider(Widget: TSlider); override;
    procedure DrawSpinBox(Widget: TSpinBox); override;
    procedure DrawWindow(Widget: TWindow); override;
    procedure DrawClose(Window: TWindow; const Rect: TRectF; Hot, Pressed: Boolean); override;
  public
    function CalcCloseRect(Window: TWindow): TRectF; override;
  end;