poMainFormCenter

[monta]

Kann folgendes Jemand bestätigen:

Aufruf über:

Code: Alles auswählen

procedure TForm_Main.MenuItem6Click(Sender: TObject);
begin
  Form_Config.ShowModal;
end;

Anschließend erscheint der beliebte vielsagende Error:
...'External: SIGSEGV'

in der customform.inc bleibt er stehen:

Code: Alles auswählen

poMainFormCenter :
          if (Self <> Application.MainForm) then begin
{>>>>}      X:= ((Application.MainForm.Width - Width) div 2) + Application.MainForm.Left;{<<<<<<}
            Y:= ((Application.MainForm.Height - Height) div 2) + Application.MainForm.Top;
          end;

Dannach wird die Ausführung beendet.

poDefault dagegen funktioniert einwandfrei, es liegt also an der Option poMainFormCenter.


Snapshot vom 28.03; SVN-Revision 10815; FPC 2.1.3; Win XP

[theo]

Muss wohl am Snapshot liegen. Die 0.9.22 hat da keine Probleme.
Getestet mit GTK, GTK2, Win32 über Wine.