TfpgCarbonStyle

type TfpgCarbonStyle = class(TfpgStyle)

public

  constructor Create; override;

  procedure DrawControlFrame(); override;

  function GetControlFrameBorders; override;

  procedure DrawBevel(); override;

  procedure DrawDirectionArrow(); override;

  procedure DrawString(); override;

  procedure DrawFocusRect(); override;

  procedure DrawButtonFace(); override;

  function GetButtonBorders; override;

  function GetButtonShift; override;

  function HasButtonHoverEffect; override;

  procedure DrawMenuBar(); override;

  procedure DrawMenuRow(); override;

  procedure DrawMenuItemSeparator(); override;

end;

TfpgCarbonStyle

TfpgStyle

This supplies very basic theming support for now

TObject