MessageBox() not working

[Ronald Klitsche]

In your Dialogs demo, the MessageBox() raise

Exception EOverflow in Modul Dialogs bei 000312DB.
Gleitkommaüberlauf.

  Caption := MessageBox(0, 'message text', 'caption', MB_RETRYCANCEL).ToString;

[Eugene Kryukov]

It works on 0.30

[Ronald Klitsche]

I get the following error:

CrossVcl v 0.30
Copyright 2017 Eugene Kryukov
This is beta software for testing purpose only.

Exception EOverflow in Modul CrossVCLMsgBox bei 000312AB.
Gleitkommaüberlauf.
Runtime error   0 at 000312AB

with this call stack

System._DbgExcNotify(0,$A8C6D0,$294FCE {'EOverflow'},$312AB,nil)
System.NotifyReRaise
:00016e77 NotifyReRaise + $13
System.Internal.ExcUtils.RaiseSignalException(???,???,3221214360)
:000312ab RaiseSignalException + $37
:92e8bf38 ; libsystem_c
:92e8c12d ; libsystem_c
:92e8d2ab ; libsystem_c
:953b9c83 ; Foundation
:953cfd74 ; Foundation
:953cfd26 ; Foundation
:95d8933d ; AppKit
:953724ee ; Foundation
:9537156a ; Foundation
:953713f2 ; Foundation
:95cb9e9d ; AppKit
:95cb9cf1 ; AppKit
:953724ee ; Foundation
:953736d0 ; Foundation
:9537823e ; Foundation
:953724ee ; Foundation
:9537156a ; Foundation
:953713f2 ; Foundation
:95cb885e ; AppKit
:953724ee ; Foundation
:9537156a ; Foundation
:953713f2 ; Foundation
:95cb8614 ; AppKit
:95cb7a6e ; AppKit
:95f468d8 ; AppKit
:9600a596 ; AppKit
:9600a530 ; AppKit
:96009f63 ; AppKit
:00781411 ; libcrossvcl
:0055e340 ; user32
Unit1.TForm1.Button1Click($183BC00)
Vcl.Controls.TControl.Click
Vcl.StdCtrls.TCustomButton.Click
Vcl.StdCtrls.TCustomButton.CNCommand((48401, (), 0, 0, (), 9404736, 0))
Vcl.Controls.TControl.WndProc((48401, 0, 9404736, 0, 0, 0, (), 33088, 143, (), 0, 0, ()))
Vcl.Controls.TWinControl.WndProc((48401, 0, 9404736, 0, 0, 0, (), 33088, 143, (), 0, 0, ()))
Vcl.StdCtrls.TButtonControl.WndProc((48401, 0, 9404736, 0, 0, 0, (), 33088, 143, (), 0, 0, ()))
Vcl.Controls.TControl.Perform(48401,0,9404736)
Vcl.Controls.DoControlMsg(9404736,(no value))
Vcl.Controls.TWinControl.WMCommand((273, (), 0, 0, (), 9404736, -1546683744))
Vcl.Controls.TControl.WndProc((273, 0, 9404736, -1546683744, 0, 0, (), 33088, 143, (), 31392, 41935, ()))
Vcl.Controls.TWinControl.WndProc((273, 0, 9404736, -1546683744, 0, 0, (), 33088, 143, (), 31392, 41935, ()))
Vcl.StdCtrls.TButtonControl.WndProc((273, 0, 9404736, -1546683744, 0, 0, (), 33088, 143, (), 31392, 41935, ()))
Vcl.Controls.TWinControl.MainWndProc((273, 0, 9404736, -1546683744, 0, 0, (), 33088, 143, (), 31392, 41935, ()))
:00563fa3 ; user32
:005643d2 ; user32
:0079fa19 ; libcrossvcl
:007bd170 ; libcrossvcl
:9c7a93ee ; libobjc
:95f811bd ; AppKit
:9a7a03c1 ; libsystem_trace
:95f810de ; AppKit
:95f94991 ; AppKit
:95f94885 ; AppKit
:9a7a03c1 ; libsystem_trace
:95f947b4 ; AppKit
:961f6349 ; AppKit
:9a7a03c1 ; libsystem_trace
:95f92b61 ; AppKit
:95fdf003 ; AppKit
:95f91190 ; AppKit
:9658511b ; AppKit
:96586922 ; AppKit
:95f1d7b7 ; AppKit
:95e98b45 ; AppKit
:0077f340 ; libcrossvcl
:0055e4cb ; user32
Vcl.Forms.TApplication.ProcessMessage($BFFFFAA8)
Vcl.Forms.TApplication.HandleMessage
Vcl.Forms.TApplication.Run
CrossVCLMsgBox.CrossVCLMsgBox

[Eugene Kryukov]

Ok then, it works on dev build.

[Eugene Kryukov]

fixed in 0.35