anchor.diff:    inherited AfterCreate;
     {@VFD_BODY_BEGIN: MainForm}
     Name := 'MainForm';
  -  SetPosition(294, 174, 709, 250);
  +  SetPosition(399, 184, 709, 333);
     WindowTitle := 'Treeview Test';
     Hint := '';
     WindowPosition := wpScreenCenter;
  
positive.code: end;
  
  procedure TMainForm.btnMoveToClicked(Sender: TObject);
  var
    i: integer;
  begin
    if FSrcNode = FDestNode then
    begin
      ShowMessage('Source and Destination may not be the same');
      exit;
    end;
    i := cbMoveToTypes.FocusItem;
  
negative.code:   with Label2 do
    begin
      Name := 'Label2';
      SetPosition(316, 40, 288, 16);
      FontDesc := '#Label1';
      Hint := '';
      Text := 'Label';
  