paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-13 22:30:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Remove a useless test in function DefaultMessageBox.

Browse Source 
git-svn-id: trunk@53635 -
This commit is contained in:
juha 2016-12-11 15:18:31 +00:00
parent 02052bcaa9
commit a8646f33f5
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/dialogs.pp
View File

@ -846,12 +846,11 @@ begin
else else
if (Flags and MB_OKCANCEL) = MB_OKCANCEL then if (Flags and MB_OKCANCEL) = MB_OKCANCEL then
Buttons := [mbOK,mbCancel] Buttons := [mbOK,mbCancel]
//else
//if (Flags and MB_OK) = MB_OK then <-- MB_OK = 0, the test would always be true.
// Buttons := [mbOK]
else else
if (Flags and MB_OK) = MB_OK then Buttons := [mbOK];
Buttons := [mbOK]
else
{%H-}Buttons := [mbOK];
if (Flags and MB_ICONINFORMATION) = MB_ICONINFORMATION then if (Flags and MB_ICONINFORMATION) = MB_ICONINFORMATION then
DlgTYpe := mtInformation DlgTYpe := mtInformation