From c1128f29bb8cb437e0df18e5ba5960c98e1345de Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sun, 15 Jun 2008 17:54:34 +0000
Subject: [PATCH] Make ButtonCloseClick procedure in "About" window superflous

---
 source/about.dfm | 2 +-
 source/about.pas | 7 -------
 2 files changed, 1 insertion(+), 8 deletions(-)

diff --git a/source/about.dfm b/source/about.dfm
index cb3b8a5d..c4f5e595 100644
--- a/source/about.dfm
+++ b/source/about.dfm
@@ -1455,8 +1455,8 @@ object AboutBox: TAboutBox
     Cancel = True
     Caption = 'Close'
     Default = True
+    ModalResult = 1
     TabOrder = 1
-    OnClick = ButtonCloseClick
   end
   object PanelMain: TPanel
     Left = 1
diff --git a/source/about.pas b/source/about.pas
index da36c0b7..7dbe7cb5 100644
--- a/source/about.pas
+++ b/source/about.pas
@@ -33,7 +33,6 @@ type
     btnUpdateCheck: TButton;
     procedure btnUpdateCheckClick(Sender: TObject);
     procedure OpenURL(Sender: TObject);
-    procedure ButtonCloseClick(Sender: TObject);
     procedure MouseOver(Sender: TObject; Shift: TShiftState; X, Y: Integer);
     procedure FormShow(Sender: TObject);
 
@@ -79,12 +78,6 @@ begin
 end;
 
 
-procedure TAboutBox.ButtonCloseClick(Sender: TObject);
-begin
-  Close();
-end;
-
-
 procedure TAboutBox.MouseOver(Sender: TObject; Shift: TShiftState;
   X, Y: Integer);
 begin