Subversion Repositories jumper

Compare Revisions

Regard whitespace Rev 7 → Rev 8

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