anchor.diff:    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
  
positive.code:     Text := 'Open files with contents expanded';
    end;
  
    {@VFD_BODY_END: ConfigurationForm}
    {%endregion}
  end;
  
  
  
negative.code:     OnClick := @btnHelpClick;
    end;
  
    pnlSearchHighlight := TfpgPanel.Create(tsFontsColor);
    with pnlSearchHighlight do
    begin
      Name := 'pnlSearchHighlight';
      SetPosition(12, 104, 360, 24);
      FontDesc := '#Label1';
      Hint := '';
      Style := bsLowered;
      Text := 'Search Highlight Color';
    end;
  
    cbIndexStyle := TfpgComboBox.Create(tsGeneral);
  