Subversion Repositories jumper

Rev

Rev 8 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8 Rev 9
Line 190... Line 190...
190 
 
 190 
 
191 
procedure THighScoreForm.ClearBtnClick(Sender: TObject);
 191 
procedure THighScoreForm.ClearBtnClick(Sender: TObject);
192 
resourcestring
 192 
resourcestring
193 
  LNG_ARE_YOU_SURE = 'Are you really sure you want to clear the high score list?';
 193 
  LNG_ARE_YOU_SURE = 'Are you really sure you want to clear the high score list?';
194 
begin
 194 
begin
195 
  if MessageDlg(LNG_ARE_YOU_SURE, mtConfirmation, mbYesNoCancel) = mrYes then
 195 
  if MessageDlg(LNG_ARE_YOU_SURE, mtConfirmation, mbYesNoCancel, 0) = mrYes then
196 
  begin
 196 
  begin
197 
    DeleteFile(Format(JNL_FILE, [FLevelName]));
 197 
    DeleteFile(Format(JNL_FILE, [FLevelName]));
198 
    ClearLists;
 198 
    ClearLists;
199 
  end;
 199 
  end;
200 
end;
 200 
end;