Win.Dialogs: Added "Result := " in WinMsg func. (bug fix)

jackdp · Aug 21, 2020 · 072c178 · 072c178
1 parent 7100d07
commit 072c178
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Base/JPL.Win.Dialogs.pas b/Base/JPL.Win.Dialogs.pas
@@ -36,7 +36,7 @@ implementation
 
 function WinMsg(const Text, Caption: string; Handle: HWND = 0; MBType: DWORD = MB_OK or MB_ICONINFORMATION): integer;
 begin
-  MessageBox(Handle, PChar(Text), PChar(Caption), MBType);
+  Result := MessageBox(Handle, PChar(Text), PChar(Caption), MBType);
 end;
 
 procedure MB(const Text: string; Caption: string = 'Information'; Handle: HWND = 0);
@@ -68,3 +68,4 @@ function WinMsgQuery(const Text, Caption: string; Handle: HWND = 0; MBType: DWOR
 
 end.
 
+