anchor.diff:                {$IFDEF FPC} False; {$ENDIF}
     end;
   
  +begin
  +  if SkipReset(aCtrl) then Exit; //Skip reset for some controls
  +
  +  if aCtrl is TCheckBox then
  +    TCheckBox(aCtrl).Checked :=   (aCtrl = chkBevel)
  +                               or (aCtrl = chkLogNetConnection)
  +                               or (aCtrl = chkLogSkipTempCmd)
  +                               or ((aCtrl = chkSnowHouses) and gGameSettings.AllowSnowHouses)
  +                               or ((aCtrl = chkInterpolatedRender) and gGameSettings.InterpolatedRender)
  +                               or (aCtrl = chkShowObjects)
  +                               or (aCtrl = chkShowHouses)
  +                               or (aCtrl = chkShowUnits)
  +                               or (aCtrl = chkShowOverlays)
  +  else
  +  if aCtrl is TTrackBar then
  +    TTrackBar(aCtrl).Position := 0
  +  else
  +  if (aCtrl is TRadioGroup)
  +    and (aCtrl <> rgDebugFont) then
  +    TRadioGroup(aCtrl).ItemIndex := 0
  +  else
  +  if (aCtrl is TSpinEdit) then
  +    TSpinEdit(aCtrl).Value := 0
  +  else
  +  if (aCtrl is TEdit) then
  +    TEdit(aCtrl).Text := ''
  +  else
  +  if (aCtrl is TGroupBox) then
  +    ResetSubPanel(TGroupBox(aCtrl));
  +end;
  +
  +
  +procedure TFormMain.ResetSubPanel(aPanel: TWinControl);
  +var
  +  I: Integer;
  +begin
  +  for I := 0 to aPanel.ControlCount - 1 do
  +    ResetControl(aPanel.Controls[I]);
  +end;
  +
  +
  +//Revert all controls to defaults (e.g. before MP session)
  +procedure TFormMain.ControlsReset;
  +
     {$IFDEF WDC}
     procedure ResetCategoryPanel(aPanel: TCategoryPanel);
     var
  
positive.code: end;
  
  
  //Revert all controls to defaults (e.g. before MP session)
  procedure TFormMain.ControlsReset;
  
    function SkipReset(aCtrl: TControl): Boolean;
    begin
  
negative.code:     if aPanel.Controls[0] is TCategoryPanelSurface then
      begin
        PanelSurface := TCategoryPanelSurface(aPanel.Controls[0]);
        ResetSubPanel(PanelSurface);
      end;
    end;
  
  