anchor.diff:      rb_shadowcolor_gray: TfpgRadioButton;
       rb_shadowcolor_black: TfpgRadioButton;
       chbShowHint: TfpgCheckBox;
  +    chbAppShowHint: TfpgCheckBox;
       {@VFD_HEAD_END: MainForm}
       procedure AfterCreate; override;
     end;
  
positive.code:   rb_shadowcolor_black := CreateRadioButton(p_shadowcolor,80,25,'Black');
    rb_shadowcolor_black.OnChange:= @rb_shadowcolor_blackChange;
  
    chbShowHint := CreateCheckBox(Self,200,500,'Show hint');
    chbShowhint.OnChange:= @chbShowHintChange;
  
  
    {@VFD_BODY_END: MainForm}
    
  
negative.code: 
  procedure TMainForm.chbShowHintChange(Sender: TObject);
  begin
    self.ShowHint := chbShowHint.Checked;
  end;
  
  procedure TMainForm.chbAppShowHintChange(Sender: TObject);
  begin
    fpgApplication.ShowHint := chbAppShowHint.Checked;
  end;
  
  procedure TMainForm.rb_border_1Change(Sender: TObject);
  