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:   lblNext   := CreateLabel(self, 200, 80, 'Next value is...');
    btnShapes := CreateButton(self, 200, 100, 90, 'bsFrame', @btnShapesClick);
    btnStyles := CreateButton(self, 200, 130, 90, 'bsLowered', @btnStylesClick);
  
    lblShape  := CreateLabel(self, 6, 190, 'Shape is bsBox');
    lblStyle  := CreateLabel(self, 6, 210, 'Style is bsRaised');
  
negative.code:   fpg_form,
    fpg_button,
    fpg_panel,
    fpg_label,
    fpg_checkbox;
    
  type
    TMainForm = class(TfpgForm)
  