Minor changes to Delete User Database dialogue box

Punctuation & spacing changes
Confirmation text string now cleared when invalid text entered

Author: delphidabbler

Src/FmDeleteUserDBDlg.pas

@@ -64,13 +64,14 @@ procedure TDeleteUserDBDlg.ArrangeForm;
 
 procedure TDeleteUserDBDlg.btnOKClick(Sender: TObject);
 resourcestring
-  sBadPassword = 'Invalid confirmation text entered: not deleting';
+  sBadPassword = 'Invalid confirmation text entered';
 begin
   inherited;
   fPermissionGranted := IsValidPassword;
   if not fPermissionGranted then
   begin
     TMessageBox.Error(Self, sBadPassword);
+    edConfirm.Text := '';
     ModalResult := mrNone;
   end;
 end;

Src/Res/HTML/dlg-dbdelete.html

@@ -34,11 +34,11 @@ <h1>
     <p>
       <strong class="warning">This action cannot be undone: you will loose all your user-defined snippets.</strong>
     </p>
-    
+
     <p>
-      To confirm enter <code>DELETE MY SNIPPETS</code> (in capital letters) in the box below then click <em>OK</em>.
+      To confirm enter <code>DELETE</code> <code>MY</code> <code>SNIPPETS</code> (in capital letters) in the box below, then click <em>OK</em>.
     </p>
-    
+
     <p>
       <strong>There will be no further chances to change your mind.</strong>
     </p>