Replace ugly donate menu item with a normal TImage, living on the rig…

…ht edge of the toolbar
HeidiSQL · Jun 6, 2019 · 694baca · 694baca
1 parent fdea79e
commit 694baca
Show file tree

Hide file tree

Showing 3 changed files with 325 additions and 92 deletions.
diff --git a/source/about.pas b/source/about.pas
@@ -91,6 +91,8 @@ procedure TAboutBox.btnDonatedOKClick(Sender: TObject);
       MessageDialog(_('Thanks for donating!'), mtInformation, [mbOK]);
   end;
   imgDonate.Visible := Check <> nbTrue;
+  MainForm.imgDonate.Visible := imgDonate.Visible;
+  MainForm.FormResize(Self);
 end;