Круглый Button

Unit RoundCheck;
 
Interface
 
Uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls,mmsystem;
 
Type
TRoundCheck=Class(TCustomControl)
 
Private
  PFState:   TCheckBoxState;
  col1:tcolor;
  col2:tcolor;
  Function GetChecked: Boolean;
  Procedure SetChecked(AValue: Boolean);
Protected
  Procedure Paint; override;
  Procedure Click; override;
Public
  Constructor Create(aOwner:TComponent); override;
  Property State: TCheckBoxState read PFState;
Published
  Property Checked: Boolean read GetChecked
  Write SetChecked;
  Property OnClick;
   Property color1:Tcolor read col1  Write col1;
   Property color2:Tcolor read col2  Write col2;
   End;
 
Procedure Register;
Implementation
Uses ExtCtrls;
 
Constructor TRoundCheck.Create;
Begin
  Inherited Create(aOwner);
  Width:=10; Height:=10;
  col1:=clGreen;
  col2:=clbtnFace;
End;
 
Procedure TRoundCheck.Paint;
Var X, Y: integer;
Begin
  X:=Width; Y:=Height;
  Canvas.Pen.Width:=3; Canvas.Pen.Color:=col1;
  Canvas.Brush.Color:=col2;
  Canvas.Ellipse(0,0,x,y);
  If Checked then
  begin
    Canvas.Pen.Width:=5; Canvas.Pen.Color:=col1;
    Canvas.MoveTo(round(x/3),round(y/2));
    Canvas.LineTo(round(x/2),round(2*y/3));
    Canvas. LineTo(round(2*x/3),round(y/3));
  End;
End;
 
Function TRoundCheck.GetChecked:boolean;
Begin
  GetChecked:=not(State=cbUnChecked);
End;
 
Procedure TRoundCheck.SetChecked(AValue: Boolean);
Begin
  If AValue then PFState:= cbChecked
  Else PFState:= cbUnChecked;
  Paint;
End;
 
Procedure TRoundCheck.Click;
Begin
  Checked:=not Checked;
      playsound('C:\\click.wav',snd_loop,0);
End;
 
Procedure Register;
Begin
  RegisterComponents('My_Component', [TRoundCheck]);
End;
 
End.