Fix back door introduced in r4523

This commit is contained in:
Ansgar Becker
2013-10-03 04:01:26 +00:00
parent 087cf72a9c
commit 54a297f39b
4 changed files with 7 additions and 7 deletions

View File

@ -58,8 +58,8 @@ msgid "Not a valid donators email address"
msgstr "Not a valid donators email address"
#. About dialog
msgid "Could not check donation state, gracefully assuming you have donated."
msgstr "Could not check donation state, gracefully assuming you have donated."
msgid "Could not check donation state."
msgstr "Could not check donation state."
#. frmBinEditor..Caption
#: bineditor.dfm:4

View File

@ -71,13 +71,13 @@ begin
Check := MainForm.HasDonated(True);
case Check of
nbUnset:
MessageDialog(_('Could not check donation state, gracefully assuming you have donated.'), mtWarning, [mbOK]);
MessageDialog(_('Could not check donation state.'), mtWarning, [mbOK]);
nbFalse:
ErrorDialog(_('Not a valid donators email address'));
nbTrue:
MessageDialog(_('Thanks for donating!'), mtInformation, [mbOK]);
end;
imgDonate.Visible := Check = nbFalse;
imgDonate.Visible := Check <> nbTrue;
MainForm.imgDonate.Width := 122;
MainForm.imgDonate.Visible := imgDonate.Visible;
end;
@ -109,7 +109,7 @@ begin
InheritFont(lblAppName.Font);
lblAppName.Font.Size := 14;
InheritFont(lblAppWebpage.Font);
imgDonate.Visible := MainForm.HasDonated(False) = nbFalse;
imgDonate.Visible := MainForm.HasDonated(False) <> nbTrue;
imgDonate.OnClick := MainForm.imgDonate.OnClick;
editDonated.Text := AppSettings.ReadString(asDonatedEmail);

View File

@ -1682,7 +1682,7 @@ begin
FHasDonatedDatabaseCheck := nbUnset;
imgDonate.Width := 122;
imgDonate.Height := 22;
imgDonate.Visible := HasDonated(True) = nbFalse;
imgDonate.Visible := HasDonated(True) <> nbTrue;
FileEncodings := Explode(',', _('Auto detect (may fail)')+',ANSI,ASCII,Unicode,Unicode Big Endian,UTF-8,UTF-7');

View File

@ -58,7 +58,7 @@ begin
InheritFont(Font);
TranslateComponent(Self);
imgDonate.OnClick := MainForm.imgDonate.OnClick;
imgDonate.Visible := MainForm.HasDonated(False) = nbFalse;
imgDonate.Visible := MainForm.HasDonated(False) <> nbTrue;
end;
{**