anchor.diff:    fpg_form,
     fpg_button,
     fpg_panel,
  -  fpg_label;
  +  fpg_label,
  +  fpg_checkbox;
     
   type
     TMainForm = class(TfpgForm)
  
positive.code:     lblStyle: TfpgLabel;
      lblShape: TfpgLabel;
      lblNext: TfpgLabel;
      procedure   btnQuitClick(Sender: TObject);
      procedure   btnStylesClick(Sender: TObject);
      procedure   btnShapesClick(Sender: TObject);
  
negative.code:   lblNext   := CreateLabel(self, 200, 80, 'Next value is...');
    btnShapes := CreateButton(self, 200, 100, 90, 'bsFrame', @btnShapesClick);
    btnStyles := CreateButton(self, 200, 130, 90, 'bsLowered', @btnStylesClick);
    chkDouble := CreateCheckBox(self, 200, 160, 'Double Line');
    chkDouble.OnChange  := @chkDoubleChanged;
  
    lblShape  := CreateLabel(self, 6, 190, 'Shape is bsBox');
    lblStyle  := CreateLabel(self, 6, 210, 'Style is bsRaised');
  