anchor.diff:      lblStyle: TfpgLabel;
       lblShape: TfpgLabel;
       lblNext: TfpgLabel;
  +    chkDouble: TfpgCheckBox;
  +    procedure   chkDoubleChanged(Sender: TObject);
       procedure   btnQuitClick(Sender: TObject);
       procedure   btnStylesClick(Sender: TObject);
       procedure   btnShapesClick(Sender: TObject);
  
positive.code:   fpg_form,
    fpg_button,
    fpg_panel,
    fpg_label;
    
  type
    TMainForm = class(TfpgForm)
  
negative.code:   end;
  
  { TMainForm }
  
  procedure TMainForm.chkDoubleChanged(Sender: TObject);
  begin
    if chkDouble.Checked then
      Bevel.BorderStyle := bsDouble
    else
      Bevel.BorderStyle := bsSingle;
  end;
  
  procedure TMainForm.btnQuitClick(Sender: TObject);
  begin
  