anchor.diff:    FFont.Free;
     FFont := fpgGetFont(AValue);
     { TODO: Implement AutoSize property, then adjust width here if True }
  +  RePaint;
  +end;
  +
  +procedure TfpgBaseCheckBox.SetReadOnly(const AValue: Boolean);
  +begin
  +  if FReadOnly=AValue then exit;
  +  FReadOnly:=AValue;
     RePaint;
   end;
   
  
positive.code:     property    Checked: boolean read FChecked write SetChecked default False;
      property    FontDesc: string read GetFontDesc write SetFontDesc;
      property    BoxLayout: TBoxLayout read GetBoxLayout write SetBoxLayout default tbLeftBox;
      property    Text: string read FText write SetText;
      property    OnChange: TNotifyEvent read FOnChange write FOnChange;
    public
  
negative.code:   private
      FChecked: boolean;
      FOnChange: TNotifyEvent;
      FReadOnly: Boolean;
      FText: string;
      FFont: TfpgFont;
      FBoxLayout: TBoxLayout;
  