From 80b0d8935a866ce34674064bec6f179e6b1f4a4e Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sat, 8 Nov 2014 15:07:51 +0000
Subject: [PATCH] Add "view changelog" button to updatecheck dialog.

---
 source/updatecheck.dfm | 11 ++++++++++-
 source/updatecheck.pas |  8 ++++++++
 2 files changed, 18 insertions(+), 1 deletion(-)

diff --git a/source/updatecheck.dfm b/source/updatecheck.dfm
index 23a88f9e..6cca87ba 100644
--- a/source/updatecheck.dfm
+++ b/source/updatecheck.dfm
@@ -1142,7 +1142,7 @@ object frmUpdateCheck: TfrmUpdateCheck
       Left = 6
       Top = 16
       Width = 355
-      Height = 143
+      Height = 113
       Anchors = [akLeft, akTop, akRight, akBottom]
       BorderStyle = bsNone
       Color = clBtnFace
@@ -1152,6 +1152,15 @@ object frmUpdateCheck: TfrmUpdateCheck
       ScrollBars = ssVertical
       TabOrder = 1
     end
+    object btnChangelog: TButton
+      Left = 6
+      Top = 130
+      Width = 355
+      Height = 25
+      Caption = 'View changelog'
+      TabOrder = 2
+      OnClick = btnChangelogClick
+    end
   end
   object groupRelease: TGroupBox
     Left = 8
diff --git a/source/updatecheck.pas b/source/updatecheck.pas
index 05d8e5f0..632f9a86 100644
--- a/source/updatecheck.pas
+++ b/source/updatecheck.pas
@@ -17,10 +17,12 @@ type
     memoRelease: TMemo;
     memoBuild: TMemo;
     imgDonate: TImage;
+    btnChangelog: TButton;
     procedure FormCreate(Sender: TObject);
     procedure btnBuildClick(Sender: TObject);
     procedure btnReleaseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure btnChangelogClick(Sender: TObject);
   private
     { Private declarations }
     ReleaseURL, BuildURL : String;
@@ -179,6 +181,12 @@ begin
 end;
 
 
+procedure TfrmUpdateCheck.btnChangelogClick(Sender: TObject);
+begin
+  ShellExec(APPDOMAIN+'download.php?place='+EncodeURLParam(TButton(Sender).Name)+'#nightlybuilds');
+end;
+
+
 {**
   Download latest build and replace running exe
 }