From a8646f33f50e094ff9d1db2f3db8f965e93bec9b Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Sun, 11 Dec 2016 15:18:31 +0000
Subject: [PATCH] LCL: Remove a useless test in function DefaultMessageBox.

git-svn-id: trunk@53635 -
---
 lcl/dialogs.pp | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/lcl/dialogs.pp b/lcl/dialogs.pp
index f6e398e49b..832c875121 100644
--- a/lcl/dialogs.pp
+++ b/lcl/dialogs.pp
@@ -846,12 +846,11 @@ begin
   else
   if (Flags and MB_OKCANCEL) = MB_OKCANCEL then
     Buttons := [mbOK,mbCancel]
+  //else
+  //if (Flags and MB_OK) = MB_OK then  <-- MB_OK = 0, the test would always be true.
+  //  Buttons := [mbOK]
   else
-  if (Flags and MB_OK) = MB_OK then
-    Buttons := [mbOK]
-  else
-    {%H-}Buttons := [mbOK];
-
+    Buttons := [mbOK];
 
   if (Flags and MB_ICONINFORMATION) = MB_ICONINFORMATION then
     DlgTYpe := mtInformation