anchor.diff:      tsEditor: TfpgTabSheet;
       tsShortcuts: TfpgTabSheet;
       Label1: TfpgLabel;
  -    edtFPCDir: TfpgDirectoryEdit;
  +    edtFPCSrcDir: TfpgDirectoryEdit;
       edtFPGuiDir: TfpgDirectoryEdit;
       edtFPGuiLibDir: TfpgDirectoryEdit;
       edtSyntaxDefDir: TfpgDirectoryEdit;
  
positive.code: 
  procedure TConfigureIDEForm.SaveSettings;
  begin
    gINI.WriteString(cEnvironment, 'fpcDir', edtFPCDir.Directory);
    gINI.WriteString(cEnvironment, 'fpGuiDir', edtFPGuiDir.Directory);
    gINI.WriteString(cEnvironment, 'fpGuiLibDir', edtFPGuiLibDir.Directory);
    gINI.WriteString(cEnvironment, 'SyntaxDefDir', edtSyntaxDefDir.Directory);
    gINI.WriteString(cEnvironment, 'TemplateDir', edtTempateDir.Directory);
    gINI.WriteString(cEnvironment, 'Compiler', edtCompiler.Filename);
  
negative.code:     Text := '${FPCDIR}';
    end;
  
    edtFPCSrcDir := TfpgDirectoryEdit.Create(tsEnvironment);
    with edtFPCSrcDir do
    begin
      Name := 'edtFPCSrcDir';
      SetPosition(8, 22, 424, 24);
      Anchors := [anLeft,anRight,anTop];
      ExtraHint := '';
  