anchor.diff:      Text := 'Font';
     end;
   
  -  FontEdit1 := TfpgFontEdit.Create(tsEditor);
  -  with FontEdit1 do
  -  begin
  -    Name := 'FontEdit1';
  +  edtEditorFont := TfpgFontEdit.Create(tsEditor);
  +  with edtEditorFont do
  +  begin
  +    Name := 'edtEditorFont';
       SetPosition(8, 22, 424, 24);
       Anchors := [anLeft,anRight,anTop];
       FontDesc := '#Edit1';
  
positive.code:     Label8: TfpgLabel;
      Label9: TfpgLabel;
      Label11: TfpgLabel;
      FontEdit1: TfpgFontEdit;
      edtExeExt: TfpgEdit;
      edtTarget: TfpgEdit;
      grdShortcuts: TfpgStringGrid;
  
negative.code:   edtDebugger.Filename := gINI.ReadString(cEnvironment, 'Debugger', 'gdb');
    edtExeExt.Text := gINI.ReadString(cEnvironment, 'ExeExt', '');
    edtTarget.Text := gINI.ReadString(cEnvironment, 'Target', 'i386-linux');
    edtEditorFont.FontDesc := gINI.ReadString(cEditor, 'Font', '#Edit2');
  end;
  
  procedure TConfigureIDEForm.SaveSettings;
  