/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 |