Subversion Repositories jumper

Rev

Rev 1 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1 Rev 8
Line 187... Line 187...
187 
begin
 187 
begin
188 
  Close();
 188 
  Close();
189 
end;
 189 
end;
190 
 
 190 
 
191 
procedure THighScoreForm.ClearBtnClick(Sender: TObject);
 191 
procedure THighScoreForm.ClearBtnClick(Sender: TObject);
- 
 
 192 
resourcestring
- 
 
 193 
  LNG_ARE_YOU_SURE = 'Are you really sure you want to clear the high score list?';
- 
 
 194 
begin
- 
 
 195 
  if MessageDlg(LNG_ARE_YOU_SURE, mtConfirmation, mbYesNoCancel) = mrYes then
192 
begin
 196 
  begin
193 
  // TODO: Benutzer fragen, ob OK
 - 
 
194 
  DeleteFile(Format(JNL_FILE, [FLevelName]));
 197 
    DeleteFile(Format(JNL_FILE, [FLevelName]));
195 
  ClearLists;
 198 
    ClearLists;
196 
end;
 199 
  end;
- 
 
 200 
end;
197 
 
 201 
 
198 
procedure THighScoreForm.ClearLists;
 202 
procedure THighScoreForm.ClearLists;
199 
begin
 203 
begin
200 
  RemainingList.Clear;
 204 
  RemainingList.Clear;
201 
  ScoreList.Clear;
 205 
  ScoreList.Clear;