TCheckbox derived

unit AdvCheckBox;

interface
uses
  SysUtils, StdCtrls, Classes, Controls, Windows, Messages, Graphics;

  type
  TAdvancedCheckbox = class(TCheckBox)


  private


  protected

procedure PaintControls(DC: HDC; First: TControl);


  public
  procedure Repaint; override;

      procedure PaintTo(DC: HDC; X, Y: Integer); overload;
    procedure PaintTo(Canvas: TCanvas; X, Y: Integer); overload;



  end;

implementation


{ TAdvancedStringgrid }

procedure TAdvancedCheckbox.PaintControls(DC: HDC; First: TControl);
begin
  inherited;
  Windows.beep(100, 50);
end;

procedure TAdvancedCheckbox.PaintTo(DC: HDC; X, Y: Integer);
begin
  Windows.beep(100, 50);
          inherited;
end;

procedure TAdvancedCheckbox.PaintTo(Canvas: TCanvas; X, Y: Integer);
begin
  Windows.beep(100, 50);
inherited;
end;

procedure TAdvancedCheckbox.Repaint;
begin
  Windows.beep(100, 50);
  inherited;


end;


end.