anchor.diff:      Exit; //==>
     FChecked := AValue;
     RePaint;
  +  if not (csDesigning in ComponentState) then
  +    DoOnChange;
   end;
   
   function TfpgBaseCheckBox.GetBoxLayout: TBoxLayout;
  
positive.code:   begin
      consumed := True;
      Checked := not FChecked;
      DoOnChange;
    end;
  
    if consumed then
  
negative.code:   inherited HandleLMouseUp(x, y, shiftstate);
    FIsPressed := False;
    Checked := not FChecked;
  end;
  
  procedure TfpgBaseCheckBox.HandleKeyRelease(var keycode: word;
  