Subversion Repositories jumper

Compare Revisions

Regard whitespace Rev HEAD → Rev 1

/trunk/HighScore.pas
189,15 → 189,11
end;
 
procedure THighScoreForm.ClearBtnClick(Sender: TObject);
resourcestring
LNG_ARE_YOU_SURE = 'Are you really sure you want to clear the high score list?';
begin
if MessageDlg(LNG_ARE_YOU_SURE, mtConfirmation, mbYesNoCancel, 0) = mrYes then
begin
// TODO: Benutzer fragen, ob OK
DeleteFile(Format(JNL_FILE, [FLevelName]));
ClearLists;
end;
end;
 
procedure THighScoreForm.ClearLists;
begin