anchor.diff:    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');
  
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
  