TDefaultStyle

type TDefaultStyle = class(TStyle)

protected

  procedure DrawDirectionArrows();

  procedure DrawCheckBoxCheck();

public

  function GetGUIColor(); override;

  procedure DrawText(); override;

  procedure DrawItemBefore(); override;

  procedure DrawItemAfter(); override;

  procedure Draw3DFrame(); override;

  procedure DrawFocusRect(); override;

  procedure DrawSunkenOuterBorder(); override;

  procedure DrawRaisedOuterBorder(); override;

  procedure DrawWindowBackground(); override;

  procedure DrawButtonFace(); override;

  function GetButtonBorders; override;

  procedure DrawSeparator(); override;

  function GetSeparatorSize; override;

  procedure DrawGroupBox(); override;

  function GetGroupBoxBorders(); override;

  procedure DrawEditBox(); override;

  function GetEditBoxBorders; override;

  procedure DrawCheckBox(); override;

  procedure GetCheckBoxLayout(); override;

  procedure DrawRadioButton(); override;

  procedure GetRadioButtonLayout(); override;

  procedure DrawComboBoxArrow(); override;

  function GetComboBoxArrowSize; override;

  function GetScrollBarBorders(); override;

  function GetScrollBarBtnSize(); override;

  function GetScrollBarBtnMinSize; override;

  procedure DrawScrollBarBorder(); override;

  procedure DrawScrollBarButton(); override;

  function GetScrollBoxBorders; override;

  procedure DrawScrollBoxBorder(); override;

  function GetMenuBorders(); override;

  function GetPanelBorders; override;

  procedure DrawPanel(); override;

end;

TDefaultStyle

TStyle

The TStyle class is an abstract base class that encapsulates the look and feel of a GUI.

TObject