anchor.diff:    with Label3 do
     begin
       Name := 'Label3';
  -    SetPosition(312, 52, 272, 16);
  +    SetPosition(316, 56, 272, 16);
       FontDesc := '#Label1';
       Hint := '';
       Text := 'Label';
  
positive.code:     Label3: TfpgLabel;
      Label4: TfpgLabel;
      Label5: TfpgLabel;
      Bevel1: TfpgBevel;
      lblSource: TfpgLabel;
      lblDestination: TfpgLabel;
      btnSource: TfpgButton;
      btnDest: TfpgButton;
      btnMoveTo: TfpgButton;
      cbMoveToTypes: TfpgComboBox;
      Button1: TfpgButton;
      {@VFD_HEAD_END: MainForm}
      FImagelist: TfpgImageList;
      FSrcNode: TfpgTreeNode;
  
negative.code:   // reset values
    FSrcNode := nil;
    FDestnode := nil;
    lblSource.Text := cEmpty;
    lblDestination.Text := cEmpty;
  
    TreeNodeChanged(nil);
  end;
  
  procedure TMainForm.cbShowImagesChange(Sender: TObject);
  