TfpgPlasticStyle

type TfpgPlasticStyle = class(TfpgStyle)

public

  constructor Create; override;

  procedure DrawControlFrame(); override; overload;

  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 DrawMenuItemSeparator(); override;

end;

TfpgPlasticStyle

TfpgStyle

This supplies very basic theming support for now

TObject