anchor.diff:      Exit; //==>
     FChecked := AValue;
     RePaint;
  +  if not (csDesigning in ComponentState) then
  +    DoOnChange;
   end;
   
   function TfpgBaseCheckBox.GetBoxLayout: TBoxLayout;
  
positive.code: {
      fpGUI  -  Free Pascal GUI Toolkit
  
      Copyright (C) 2006 - 2010 See the file AUTHORS.txt, included in this
      distribution, for details of the copyright.
  
      See the file COPYING.modifiedLGPL, included in this distribution,
  
negative.code:   inherited HandleLMouseUp(x, y, shiftstate);
    FIsPressed := False;
    Checked := not FChecked;
  end;
  
  procedure TfpgBaseCheckBox.HandleKeyRelease(var keycode: word;
  