TBGRADrawer

type TBGRADrawer = class(TCDDrawerCommon)

protected

  procedure AssignFont();

public

  constructor Create; override;

  function GetMeasures(); override;

  procedure DrawTickmark(); override;

  function DPIAdjustment();

  procedure DrawButton(); override;

  procedure DrawEditBackground(); override;

  procedure DrawEditFrame(); override;

  procedure DrawCaret(); override;

  procedure DrawEdit(); override;

  procedure DrawPanel(); override;

  procedure DrawStaticText(); override;

  procedure DrawProgressBar(); override;

  procedure DrawCheckBoxSquare(); override;

  procedure DrawCheckBox(); override;

  procedure DrawRadioButtonCircle(); override;

  procedure DrawRadioButton(); override;

end;

TBGRADrawer

TObject