paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 21:55:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

Win Installer: ask uninstall, ensure button visible

Browse Source 
git-svn-id: trunk@38106 -
This commit is contained in:
martin 2012-08-01 19:07:05 +00:00
parent 8a784ff039
commit 2a7875a8b2
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tools/install/win/lazarus.iss
View File

@ -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;