From 2a7875a8b2bc15e2881d894aacef63cd5e1bd58e Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Wed, 1 Aug 2012 19:07:05 +0000
Subject: [PATCH] Win Installer: ask uninstall, ensure button visible

git-svn-id: trunk@38106 -
---
 tools/install/win/lazarus.iss | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/tools/install/win/lazarus.iss b/tools/install/win/lazarus.iss
index a2f061354d..c751fd3e89 100644
--- a/tools/install/win/lazarus.iss
+++ b/tools/install/win/lazarus.iss
@@ -515,6 +515,8 @@ begin
 end;
 
 procedure InitAskUninstall(s1, s2, s3, s4: String);
+var
+  y: integer;
 begin
   wpLabel1.Caption := s1;
   wpLabel2.Caption := s2;
@@ -529,7 +531,10 @@ begin
   wpLabel2.Top := wpLabel1.Top + wpLabel1.Height + ScaleY(5);
   wpLabel3.Top := wpLabel2.Top + wpLabel2.Height + ScaleY(5);
   wpLabel4.Top := wpLabel3.Top + wpLabel3.Height + ScaleY(5);
-  wpButton.Top := wpLabel4.Top + wpLabel4.Height + ScaleY(20);
+  y := wpLabel4.Top + wpLabel4.Height + ScaleY(20);
+  if y > wpAskUnistall.SurfaceHeight - wpCheckBox.Height - wpButton.Height then
+    y := wpAskUnistall.SurfaceHeight - wpCheckBox.Height - wpButton.Height;
+  wpButton.Top := y;
 end;
   
 procedure UnInstUpdateGUI;