anchor.diff:    fpg_button,
     fpg_imagelist,
     fpg_label,
  -  fpg_panel,
     fpg_dialogs,
  -  fpg_combobox;
  +  fpg_combobox,
  +  fpg_utils;
   
   type
   
     TMainForm = class(TfpgForm)
  -    procedure TestButtonClicked(Sender: TObject);
     private
       {@VFD_HEAD_BEGIN: MainForm}
       tree: TfpgTreeView;
  
positive.code:   with Label5 do
    begin
      Name := 'Label5';
      SetPosition(312, 92, 320, 16);
      FontDesc := '#Label1';
      Hint := '';
      Text := 'Label';
    end;
  
    Bevel1 := TfpgBevel.Create(self);
    with Bevel1 do
    begin
      Name := 'Bevel1';
      SetPosition(312, 116, 388, 12);
      Anchors := [anLeft,anRight,anTop];
      BorderStyle := bsDouble;
      Hint := '';
      Style := bsLowered;
      Shape := bsTopLine;
    end;
  
    lblSource := TfpgLabel.Create(self);
    with lblSource do
    begin
      Name := 'lblSource';
      SetPosition(312, 160, 140, 16);
      FontDesc := '#Label1';
      Hint := '';
      Text := 'Label';
    end;
  
    lblDestination := TfpgLabel.Create(self);
    with lblDestination do
    begin
      Name := 'lblDestination';
      SetPosition(464, 160, 128, 16);
      FontDesc := '#Label1';
      Hint := '';
      Text := 'Label';
    end;
  
    btnSource := TfpgButton.Create(self);
    with btnSource do
    begin
      Name := 'btnSource';
      SetPosition(312, 132, 80, 24);
      Text := 'Source';
      FontDesc := '#Label1';
      Hint := '';
      ImageName := '';
      TabOrder := 13;
      OnClick := @btnSourceClicked;
    end;
  
    btnDest := TfpgButton.Create(self);
    with btnDest do
    begin
      Name := 'btnDest';
      SetPosition(464, 132, 80, 24);
      Text := 'Destination';
      FontDesc := '#Label1';
      Hint := '';
      ImageName := '';
      TabOrder := 14;
      OnClick := @btnDestinationClicked;
    end;
  
    btnMoveTo := TfpgButton.Create(self);
    with btnMoveTo do
    begin
      Name := 'btnMoveTo';
      SetPosition(608, 132, 80, 24);
      Text := 'MoveTo';
      FontDesc := '#Label1';
      Hint := '';
      ImageName := '';
      TabOrder := 15;
      OnClick := @btnMoveToClicked;
    end;
  
  
negative.code:   with Label4 do
    begin
      Name := 'Label4';
      SetPosition(316, 72, 300, 16);
      FontDesc := '#Label1';
      Hint := '';
      Text := 'Label';
  