mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-09-15 12:39:07 +02:00
Opkman: Uninstall feature small bugfix.
git-svn-id: trunk@54908 -
This commit is contained in:
parent
7c8a2cc2a5
commit
da2b815a14
@ -808,7 +808,7 @@ begin
|
||||
|
||||
if IsAtLeastOnePackageInstalled then
|
||||
begin
|
||||
if MessageDlgEx(Format(rsMainFrm_rsUninstall, [' ']), mtInformation, [mbYes, mbNo], Self) = mrNo then
|
||||
if MessageDlgEx(Format(rsMainFrm_rsUninstall, [' ']), mtInformation, [mbYes, mbNo], Self) <> mrYes then
|
||||
Exit;
|
||||
end
|
||||
else
|
||||
|
Loading…
Reference in New Issue
Block a user