anchor.diff:      OnClick := @btnHelpClick;
     end;
   
  -  Panel1 := TfpgPanel.Create(tsFontsColor);
  -  with Panel1 do
  -  begin
  -    Name := 'Panel1';
  -    SetPosition(128, 116, 204, 28);
  +  pnlSearchHighlight := TfpgPanel.Create(tsFontsColor);
  +  with pnlSearchHighlight do
  +  begin
  +    Name := 'pnlSearchHighlight';
  +    SetPosition(12, 104, 360, 24);
       FontDesc := '#Label1';
       Hint := '';
       Style := bsLowered;
  -    Text := 'Panel';
  +    Text := 'Search Highlight Color';
     end;
   
     cbIndexStyle := TfpgComboBox.Create(tsGeneral);
  
positive.code:     procedure btnCancelClick(Sender: TObject);
      procedure btnSaveClick(Sender: TObject);
      procedure btnSearchDirAddClicked(Sender: TObject);
      procedure SettingsToGui;
      procedure GuiToSettings;
    public
      constructor Create(AOwner: TComponent); override;
      procedure AfterCreate; override;
  
negative.code:   if s <> '' then
      lbSearchDirs.Items.Add(s);
  end;
  
  procedure TConfigurationForm.btnSearchHighlightClicked(Sender: TObject);
  begin
    pnlSearchHighlight.BackgroundColor := fpgSelectColorDialog(pnlSearchHighlight.BackgroundColor);
  end;
  
  procedure TConfigurationForm.ResetColorsButtonOnClick(Sender: TObject);
  var
    i: longint;
  Begin
    // restore default colors
    for i := 0 to NumColorSettings - 1 do
    begin
      Settings.Colors[i] := DefaultColors[i];
    end;
    UpdateColorPanels;
  End;
  
  procedure TConfigurationForm.SettingsToGui;
  begin
  