scheckbox.pas

来自「AlphaControls是一个Delphi标准控件的集合」· PAS 代码 · 共 31 行

unit sCheckbox;

{$I sDefs.inc}

interface

uses
  Windows, Messages, Classes, Graphics, Controls, Forms, ExtCtrls,
  sStyleUtil, sCheckedControl, sConst;

type
  TsCheckBox = class(TsCheckedControl)
  public
    constructor Create (AOwner: TComponent); override;
  published
  end;

implementation

uses sPanel;
{ TsCheckBox }

constructor TsCheckBox.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  sStyle.COC := COC_TsCheckBox;
end;

end.