Remove donate button from updatecheck dialog

This commit is contained in:
Ansgar Becker
2013-11-05 04:58:11 +00:00
parent 3dba742f2d
commit ff09cd4be6
3 changed files with 9 additions and 1086 deletions

View File

@@ -2260,8 +2260,6 @@ begin
Dialog := (Sender as TImage).Parent;
if Dialog is TAboutBox then
place := 'about'
else if Dialog is TfrmUpdateCheck then
place := 'updatecheck'
else
place := 'main';
ShellExec(APPDOMAIN + 'donatebutton.php?place=' + EncodeURLParam(place));

View File

File diff suppressed because it is too large Load Diff

View File

@@ -16,7 +16,6 @@ type
lblStatus: TLabel;
memoRelease: TMemo;
memoBuild: TMemo;
imgDonate: TImage;
procedure FormCreate(Sender: TObject);
procedure btnBuildClick(Sender: TObject);
procedure btnReleaseClick(Sender: TObject);
@@ -57,8 +56,6 @@ begin
AutoClose := False;
InheritFont(Font);
TranslateComponent(Self);
imgDonate.OnClick := MainForm.imgDonate.OnClick;
imgDonate.Visible := MainForm.HasDonated(False) <> nbTrue;
end;
{**