anchor.diff:  
   procedure TMainForm.chbShowHintChange(Sender: TObject);
   begin
  -  if chbShowHint.Checked then
  -  begin
  -    edtText.ShowHint := True;
  -    edtInteger.ShowHint := True;
  -    edtFloat.ShowHint := True;
  -    edtCurrency.ShowHint := True;
  -  end
  -  else
  -  begin
  -    edtText.ShowHint := False;
  -    edtInteger.ShowHint := False;
  -    edtFloat.ShowHint := False;
  -    edtCurrency.ShowHint := False;
  -  end;
  +  self.ShowHint := chbShowHint.Checked;
  +end;
  +
  +procedure TMainForm.chbAppShowHintChange(Sender: TObject);
  +begin
  +  fpgApplication.ShowHint := chbAppShowHint.Checked;
   end;
   
   procedure TMainForm.rb_border_1Change(Sender: TObject);
  
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 chbSpaceChange(Sender: TObject);
      procedure chbFloatDecChange(Sender: TObject);
      procedure chbShowHintChange(Sender: TObject);
      procedure chbAppShowHintChange(Sender: TObject);
      procedure rb_border_1Change(Sender: TObject);
      procedure rb_border_2Change(Sender: TObject);
      procedure rb_border_3Change(Sender: TObject);
  