anchor.diff:      n.Data := ts;
       tvProject.Selection := n;
     end;
  +end;
  +
  +procedure TMainForm.miTest(Sender: TObject);
  +var
  +  s: TfpgString;
  +  r: TfpgString;
  +begin
  +  s := cMacro_Compiler + ' -FU' +cMacro_Target+' -Fu' + cMacro_FPGuiLibDir;
  +  writeln('source string = ', s);
  +  r := GMacroList.ExpandMacro(s);
  +  writeln('expanded string = ', r);
   end;
   
   procedure TMainForm.FormShow(Sender: TObject);
  
positive.code:     grdFiles: TfpgFileGrid;
      grdMessages: TfpgStringGrid;
      memScribble: TfpgMemo;
      {@VFD_HEAD_END: MainForm}
      procedure   FormShow(Sender: TObject);
      procedure   btnQuitClicked(Sender: TObject);
  
negative.code:   with tsMessages do
    begin
      Name := 'tsMessages';
      SetPosition(73, 3, 188, 78);
      Text := 'Messages';
    end;
  
  