Win32 version of this exaact same code works
Only difference between device and the debugged version on the Emulator
is that on Device it shows Access Violation error (usually) and then it
just dies. On emulator I get tons of error messages, and then the
program dies...
( I show this for between try.except and do not re raise, so IMHO it
shoudl still get up again, unless there is something really bad
happening behind the Scenes...)
{ Backwards is the Stack trace is also... }
Access Violation at :
procedure TMenuItem.DestroyHandle;
...
end;
TWSMenuItemClass(WidgetSetClass).DestroyHandle(Self); // - Here
FHandle := 0;
project Selo pda raised exception 'RunError(216)'
Project Selo pda raised exception class 'External: SIGSEGV'
#0 fpc_raiseexception at :0
#1 SYSUTILS_RUNERRORTOEXCEPT$LONGINT$POINTER$POINTER at :0
#2 SYSTEM_HANDLEERRORADDRFRAME$LONGINT$POINTER$POINTER at :0
#3 TMENUITEM__DESTROYHANDLE at C:\lazarus\lcl\include\menuitem.inc:698
#4 TMENUITEM__DESTROYHANDLE at C:\lazarus\lcl\include\menuitem.inc:694
#5 TMENU__DESTROYHANDLE at C:\lazarus\lcl\include\menu.inc:157
#6 TCUSTOMFORM__DESTROYWND at C:\lazarus\lcl\include\customform.inc:2488
#7 TWINCONTROL__DESTROYHANDLE((TWINCONTROL) 0x1abcec0) at
C:\lazarus\lcl\include\wincontrol.inc:5145
#8 TCUSTOMFORM__SHOWMODAL((TCUSTOMFORM) 0x1abcec0) at
C:\lazarus\lcl\include\customform.inc:2705
#9 TWINDOW_MM_SELECTUSER__EXCECUTE at wmm_selectuser.pas:247
#10 TWINDOW_MAINMENU__DOLOGIN((TWINDOW_MAINMENU) 0x1aa79a0) at
wmainmenu.pas:220
#11 TWINDOW_MAINMENU__FORMSHOW((^TOBJECT) 0x1cf3b4) at wmainmenu.pas:376
#12 TCUSTOMFORM__DOSHOW at C:\lazarus\lcl\include\customform.inc:957
#13 TCUSTOMFORM__CMSHOWINGCHANGED({MSG = 45081, WPARAM = 0, LPARAM = 0,
RESULT = 0, WPARAMLO = 0, WPARAMHI = 0, LPARAMLO = 0, LPARAMHI = 0,
RESULTLO = 0, RESULTHI = 0}, (TCUSTOMFORM) 0x1aa79a0) at
C:\lazarus\lcl\include\customform.inc:562
#14 SYSTEM_TOBJECT_$__DISPATCH$formal at :0
#15 TCONTROL__WNDPROC({MSG = 45081, WPARAM = 0, LPARAM = 0, RESULT = 0,
WPARAMLO = 0, WPARAMHI = 0, LPARAMLO = 0, LPARAMHI = 0, RESULTLO = 0,
RESULTHI = 0}, (TCONTROL) 0x1aa79a0) at
C:\lazarus\lcl\include\control.inc:1683
#16 TWINCONTROL__WNDPROC({MSG = 45081, WPARAM = 0, LPARAM = 0, RESULT =
0, WPARAMLO = 0, WPARAMHI = 0, LPARAMLO = 0, LPARAMHI = 0, RESULTLO = 0,
RESULTHI = 0}) at C:\lazarus\lcl\include\wincontrol.inc:5243
#17 TCUSTOMFORM__WNDPROC({MSG = 45081, WPARAM = 0, LPARAM = 0, RESULT =
0, WPARAMLO = 0, WPARAMHI = 0, LPARAMLO = 0, LPARAMHI = 0, RESULTLO = 0,
RESULTHI = 0}) at C:\lazarus\lcl\include\customform.inc:1368
#18 TCONTROL__PERFORM(45081, 0, 0) at
C:\lazarus\lcl\include\control.inc:1084
#19 CHANGESHOWING(true, (POINTER) 0x27a8fa58) at
C:\lazarus\lcl\include\wincontrol.inc:4237
#20 TWINCONTROL__UPDATESHOWING((TWINCONTROL) 0x1aa79a0) at
C:\lazarus\lcl\include\wincontrol.inc:4287
#21 TCUSTOMFORM__UPDATESHOWING at C:\lazarus\lcl\include\customform.inc:2569
#22 TWINCONTROL__DOALLAUTOSIZE((TWINCONTROL) 0x1aa79a0) at
C:\lazarus\lcl\include\wincontrol.inc:3519
#23 TCONTROL__ENABLEAUTOSIZING at C:\lazarus\lcl\include\control.inc:4855
#24 TCONTROL__SETVISIBLE(true, (TCONTROL) 0x1aa79a0) at
C:\lazarus\lcl\include\control.inc:3733
#25 TCUSTOMFORM__SETVISIBLE(true) at
C:\lazarus\lcl\include\customform.inc:404
#26 TCUSTOMFORM__SHOW at C:\lazarus\lcl\include\customform.inc:2115
#27 TAPPLICATION__RUN at C:\lazarus\lcl\include\application.inc:1384
#28 main at seulopda.lpr:40
--
___
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
