anchor.diff:    with chkSmoothScroll do
     begin
       Name := 'chkSmoothScroll';
  -    SetPosition(394, 128, 120, 20);
  +    SetPosition(394, 132, 120, 24);
       Anchors := [anRight,anTop];
       FontDesc := '#Label1';
       Hint := '';
       TabOrder := 14;
       Text := 'Smooth Scroll';
       OnChange := @chkSmoothScrollChange;
  +  end;
  +
  +  chkAlterColor := TfpgCheckBox.Create(self);
  +  with chkAlterColor do
  +  begin
  +    Name := 'chkAlterColor';
  +    SetPosition(394, 156, 120, 24);
  +    FontDesc := '#Label1';
  +    Hint := '';
  +    TabOrder := 15;
  +    Text := 'Alternate Color';
  +    OnChange := @chkAlterColorChange;
     end;
   
     {@VFD_BODY_END: MainForm}
  
positive.code:     btnFiveOnly: TfpgButton;
      btnDelRow: TfpgButton;
      chkSmoothScroll: TfpgCheckBox;
      {@VFD_HEAD_END: MainForm}
      procedure   StringGridDoubleClicked(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint);
      procedure   btnAddFiveClicked(Sender: TObject);
  
negative.code:   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);
  