anchor.diff:  procedure TMainForm.ShowLineNumbers(Sender: TObject);
   begin
     TextEdit.GutterShowLineNumbers := chkLineNumbers.Checked;
  +end;
  +
  +procedure TMainForm.ShowRightEdge(Sender: TObject);
  +begin
  +  TextEdit.RightEdge := chkRightEdge.Checked;
   end;
   
   procedure TMainForm.AppExceptions(Sender: TObject; E: Exception);
  
positive.code:     Label3: TfpgLabel;
      Label4: TfpgLabel;
      Bevel2: TfpgBevel;
      {@VFD_HEAD_END: MainForm}
      procedure   ShowGutterChanged(Sender: TObject);
      procedure   ShowLineNumbers(Sender: TObject);
      procedure   AppExceptions(Sender: TObject; E: Exception);
      procedure   btnQuitClick(Sender: TObject);
      procedure   HandleResize(awidth, aheight: TfpgCoord); override;
  
negative.code:     SetPosition(20, 28, 120, 20);
      FontDesc := '#Label1';
      GroupIndex := 0;
      Hint := '';
      TabOrder := 4;
      Text := 'Left';
    end;
  