anchor.diff:    else
       stringgrid.Options := stringgrid.Options - [go_SmoothScroll];
     stringgrid.Update;
  +end;
  +
  +procedure TMainForm.chkAlterColorChange(Sender: TObject);
  +begin
  +  if chkAlterColor.Checked then
  +    stringgrid.Options := stringgrid.Options + [go_AlternativeColor]
  +  else
  +    stringgrid.Options := stringgrid.Options - [go_AlternativeColor];
  +  stringgrid.Invalidate;
   end;
   
   procedure TMainForm.btnQuitClick(Sender: TObject);
  
positive.code:   with chkSmoothScroll do
    begin
      Name := 'chkSmoothScroll';
      SetPosition(394, 128, 120, 20);
      Anchors := [anRight,anTop];
      FontDesc := '#Label1';
      Hint := '';
      TabOrder := 14;
      Text := 'Smooth Scroll';
      OnChange := @chkSmoothScrollChange;
    end;
  
    {@VFD_BODY_END: MainForm}
  
negative.code:   with chkHideFocus do
    begin
      Name := 'chkHideFocus';
      SetPosition(394, 108, 120, 24);
      Anchors := [anRight,anTop];
      FontDesc := '#Label1';
      Hint := '';
  