anchor.diff:      Text := 'Editor1';
     end;
   
  -  tsEditor2 := TfpgTabSheet.Create(pcEditor);
  -  with tsEditor2 do
  -  begin
  -    Name := 'tsEditor2';
  -    SetPosition(3, 3, 318, 114);
  -    Text := 'Editor2';
  -  end;
  -
     Memo1 := TfpgMemo.Create(tsEditor1);
     with Memo1 do
     begin
  
positive.code:   end;
  end;
  
  procedure TMainForm.miAboutFPGuiClicked(Sender: TObject);
  begin
    TfpgMessageDialog.AboutFPGui;
  
negative.code:     procedure   FormShow(Sender: TObject);
      procedure   btnQuitClicked(Sender: TObject);
      procedure   btnOpenFileClicked(Sender: TObject);
      procedure   miFileSaveAs(Sender: TObject);
      procedure   miAboutFPGuiClicked(Sender: TObject);
      procedure   miAboutIDE(Sender: TObject);
      procedure   miConfigureIDE(Sender: TObject);
  