anchor.diff:      property Brightness: Byte read fBrightness write SetBrightness;
       property ScrollSpeed: Byte read fScrollSpeed write SetScrollSpeed;
       property AlphaShadows: Boolean read fAlphaShadows write SetAlphaShadows;
  -    property Locale: AnsiString read fLocale write fLocale;
  +    property Locale: AnsiString read fLocale write SetLocale;
       property MusicOff: Boolean read fMusicOff write SetMusicOff;
       property ShuffleOn: Boolean read fShuffleOn write SetShuffleOn;
       property MusicVolume: Single read fMusicVolume write SetMusicVolume;
  
positive.code:   fNeedsSave := False;
  end;
  
  procedure TGameSettings.SetMaxRooms(eValue: Integer);
  begin
    fMaxRooms   := eValue;
    fNeedsSave  := True;
  end;
  
  procedure TGameSettings.SetHTMLStatusFile(eValue: string);
  begin
    fHTMLStatusFile   := eValue;
    fNeedsSave        := True;
  end;
  
  procedure TGameSettings.SetMasterAnnounceInterval(eValue: Integer);
  begin
    fMasterAnnounceInterval := eValue;
    fNeedsSave              := True;
  end;
  
  procedure TGameSettings.SetPingInterval(aValue: Integer);
  begin
    fPingInterval    := aValue;
    fNeedsSave       := True;
  end;
  
  procedure TGameSettings.SetAutoKickTimeout(aValue: Integer);
  begin
    fAutoKickTimeout := aValue;
    fNeedsSave       := True;
  end;
  
  procedure TGameSettings.SetAnnounceServer(aValue: Boolean);
  begin
    fAnnounceServer := aValue;
    fNeedsSave      := True;
  end;
  
  procedure TGameSettings.SetServerWelcomeMessage(aValue: string);
  begin
    fServerWelcomeMessage := aValue;
    fNeedsSave            := True;
  end;
  
  procedure TMainSettings.SetFullScreen(aValue: boolean);
  begin
    fFullScreen := aValue;
    fNeedsSave  := True;
  end;
  
  
  procedure TMainSettings.SetResolution(const Value: TScreenRes);
  begin
    fResolution := Value;
    fNeedsSave  := True;
  end;
  
  
  procedure TMainSettings.SetVSync(aValue: boolean);
  begin
    fVSync := aValue;
    fNeedsSave  := True;
  end;
  
  
  
negative.code:     fFullScreen: Boolean;
      fResolution: TScreenRes;
      fVSync: Boolean;
      procedure SetFullScreen(aValue: Boolean);
      procedure SetResolution(const Value: TScreenRes);
      procedure SetVSync(aValue: Boolean);
    protected
      procedure Changed;
      function LoadFromINI(FileName: string): Boolean;
      procedure SaveToINI(FileName: string);
    public
      constructor Create;
      destructor Destroy; override;
  