Carbon: Application.QueueAsyncCall hangs, if called in WinContros.Resize
Original Reporter info from Mantis: Martin @martin_frb
-
Reporter name: Martin Friebe
Original Reporter info from Mantis: Martin @martin_frb
- Reporter name: Martin Friebe
Description:
See app below. It will hang on start (as resize happens, when form is created)
Additional information:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
type
{ TForm1 }
TForm1 = class(TForm)
procedure FormResize(Sender: TObject);
public
procedure ExecASync(Data: PtrInt);
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
procedure TForm1.FormResize(Sender: TObject);
begin
Application.QueueAsyncCall(@ExecASync, 0);
end;
procedure TForm1.ExecASync(Data: PtrInt);
begin
//
end;
end.
Mantis conversion info:
- Mantis ID: 23393
- Version: 1.1 (SVN)
- Fixed in revision: 43469 (#2ff9c62e)