Naming and About updates.

Embarcadero · Jul 2, 2020 · 34a5214 · 34a5214
1 parent 4111193
commit 34a5214
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 11 deletions.
diff --git a/Lang/English.lng b/Lang/English.lng
@@ -490,14 +490,14 @@ Ver=1
 36015=&Check for updates
 36016=4.9.9.2 to 5.12 Development:
 36017=http://orwelldevcpp.blogspot.com
-36018=> 4.9.9.2
+36018=> 5.12
 36019=Repository:
 36020=Subreddit:
 36021=Compilers
 36022=TDM-GCC Compiler Website:
 36023=<= 4.9.9.2 (old stuff)
 36024=Please support Dev-C++ by making a donation:
-36025=Blog:
+36025=Sponsor:
 
 
 37001=Edit code insert entry

diff --git a/Source/main.dfm b/Source/main.dfm
@@ -1628,6 +1628,7 @@ object MainForm: TMainForm
       end
       object DonateItem: TMenuItem
         Action = actDonate
+        Visible = False
       end
     end
   end
@@ -2793,7 +2794,6 @@ object MainForm: TMainForm
     object actDonate: TAction
       Caption = 'Donate :)'
       ImageIndex = 41
-      OnExecute = actDonateExecute
     end
   end
   object MessagePopup: TPopupMenu

diff --git a/Source/main.pas b/Source/main.pas
@@ -789,7 +789,6 @@   TMainForm = class(TForm)
       Selected: Boolean);
     procedure actRunTestsExecute(Sender: TObject);
     procedure WMCopyData(var Message: TMessage); message WM_COPYDATA;
-    procedure actDonateExecute(Sender: TObject);
   private
     fPreviousHeight: integer; // stores MessageControl height to be able to restore to previous height
     fTools: TToolController; // tool list controller
@@ -6665,13 +6664,6 @@ function TMainForm.ParseParameters(const Parameters: WideString): Integer;
   LocalFree(Cardinal(ParameterList));
 end;
 
-procedure TMainForm.actDonateExecute(Sender: TObject);
-begin
-  ShellExecute(GetDesktopWindow(), 'open',
-    PChar('https://www.paypal.com/cgi-bin/webscr?cmd=_s-xclick&hosted_button_id=7FD675DNV8KKJ'), nil, nil,
-    SW_SHOWNORMAL);
-end;
-
 end.