[lazarus] Win32 interface is broken

[Karl Brandt]

Karl Brandt wrote:

>  The programs compile without problem, but when i run i get the 
> following message:
>
>    WindowProc - Exit
>    WindowProc - Start
>    WindowProc - Getting Object With Callback Procedure
>    WindowProc - Getting Callback Object
>    WindowProc - Checking Proc
>    WindowProc - Window Value: $0E58; Msg Value: WM_NCDESTROY; WParam: 
> $0000; LParam
>    : $0000
>
>    WindowProc - Exit
>    An unhandled exception occurred at 0x0042E240 :
>    Access violation
>      0x0042E240  TCONTROL__DESTROY,  line 1818 of ./include/control.inc
>      0x816FE0A2 line 176 of winext.pas

Is anyone getting the same problem?

>
>
> when i try to load the binary with gdb(mingw 5.1.1) i get the following:
>
>    Starting program: D:\work\cvsfpc\lazarus\examples/hello
>    Error creating process D:\work\cvsfpc\lazarus\examples/hello, 
> (error 193) 

Forget the above :-[

Here's the backtrace

#0  $0042ebd0 in TCONTROL__DESTROY (this=$49bf6c) at control.inc:1856
#1  $0042b1a9 in TWINCONTROL__DESTROY (this=$49bf6c) at wincontrol.inc:1814
#2  $00412a00 in TSCROLLINGWINCONTROL__DESTROY (this=$49bf6c) at 
scrollingwincontrol.inc:471
#3  $00412c98 in TCUSTOMFORM__DESTROY (this=$49bf6c) at customform.inc:121
#4  $0045da83 in CLASSES ()
#5  $0045a141 in CLASSES ()
#6  $0041462d in TAPPLICATION__DESTROY (this=$49adac) at application.inc:102
#7  $00466227 in SYSWIN32 ()
#8  $00411997 in FREEINTERFACEOBJECT () at forms.pp:903
#9  $00452d10 in INTERFACES_finalize () at interfaces.pp:44
#10 $0046b4c5 in SYSWIN32 ()
#11 $00469240 in SYSWIN32 ()
#12 $00467780 in SYSWIN32 ()
#13 $004691fd in SYSWIN32 ()
#14 $004673d1 in SYSWIN32 ()
#15 $00458d6e in SYSUTILS ()
#16 $004689fb in SYSWIN32 ()
#17 $00465a29 in SYSWIN32 ()
#18 $0042b81a in TWINCONTROL__CREATEWND (this=$49bf6c) at 
wincontrol.inc:2193
#19 $00412501 in TSCROLLINGWINCONTROL__CREATEWND (this=$49bf6c) at 
scrollingwincontrol.inc:334
#20 $00413c41 in TCUSTOMFORM__CREATEWND (this=$49bf6c) at 
customform.inc:1046
#21 $0042b640 in TWINCONTROL__CREATEHANDLE (this=$49bf6c)
    at wincontrol.inc:2135
#22 $004292f7 in TWINCONTROL__UPDATESHOWING (this=$49bf6c)
    at wincontrol.inc:690
#23 $00413eb1 in TCUSTOMFORM__UPDATESHOWING (this=$49bf6c)
    at customform.inc:1119
#24 $0042acaf in TWINCONTROL__UPDATECONTROLSTATE (this=$49bf6c)
    at wincontrol.inc:1578
#25 $0042bdd8 in TWINCONTROL__CMVISIBLECHANGED (THEMESSAGE=
      {MSG = 45067, WPARAM = 1, LPARAM = 0, RESULT = 0, WPARAMLO = 1, 
WPARAMHI =
 0, LPARAMLO = 0, LPARAMHI = 0, RESULTLO = 0, RESULTHI = 0}, this=$49bf6c)
    at wincontrol.inc:2469
#26 $004671fd in SYSWIN32 ()
#27 $0042d7ce in TCONTROL__WNDPROC (THEMESSAGE=
      {MSG = 45067, WPARAM = 1, LPARAM = 0, RESULT = 0, WPARAMLO = 1, 
WPARAMHI =
 0, LPARAMLO = 0, LPARAMHI = 0, RESULTLO = 0, RESULTHI = 0}, this=$49bf6c)
    at control.inc:913
#28 $0042a5c3 in TWINCONTROL__WNDPROC (MESSAGE=
      {MSG = 45067, WPARAM = 1, LPARAM = 0, RESULT = 0, WPARAMLO = 1, 
WPARAMHI =
 0, LPARAMLO = 0, LPARAMHI = 0, RESULTLO = 0, RESULTHI = 0}, this=$49bf6c)
    at wincontrol.inc:1264
#29 $004135ed in TCUSTOMFORM__WNDPROC (THEMESSAGE=
      {MSG = 45067, WPARAM = 1, LPARAM = 0, RESULT = 0, WPARAMLO = 1, 
WPARAMHI =
 0, LPARAMLO = 0, LPARAMHI = 0, RESULTLO = 0, RESULTHI = 0}, this=$49bf6c)
    at wincontrol.inc:2469
#26 $004671fd in SYSWIN32 ()
#27 $0042d7ce in TCONTROL__WNDPROC (THEMESSAGE=
      {MSG = 45067, WPARAM = 1, LPARAM = 0, RESULT = 0, WPARAMLO = 1, 
WPARAMHI =
 0, LPARAMLO = 0, LPARAMHI = 0, RESULTLO = 0, RESULTHI = 0}, this=$49bf6c)
    at control.inc:913
#28 $0042a5c3 in TWINCONTROL__WNDPROC (MESSAGE=
      {MSG = 45067, WPARAM = 1, LPARAM = 0, RESULT = 0, WPARAMLO = 1, 
WPARAMHI =
 0, LPARAMLO = 0, LPARAMHI = 0, RESULTLO = 0, RESULTHI = 0}, this=$49bf6c)
    at wincontrol.inc:1264
#29 $004135ed in TCUSTOMFORM__WNDPROC (THEMESSAGE=
      {MSG = 45067, WPARAM = 1, LPARAM = 0, RESULT = 0, WPARAMLO = 1, 
WPARAMHI =
 0, LPARAMLO = 0, LPARAMHI = 0, RESULTLO = 0, RESULTHI = 0}, this=$49bf6c)
    at customform.inc:677
#30 $0042ccd1 in TCONTROL__PERFORM (MSG=45067, WPARAM=1, LPARAM=0,
    this=$49bf6c) at control.inc:488
#31 $0042e803 in TCONTROL__SETVISIBLE (VALUE=true, this=$49bf6c) at 
control.inc:1717
#32 $0042df39 in TCONTROL__SHOW (this=$49bf6c) at control.inc:1328
#33 $004155fe in TAPPLICATION__RUN (this=$49adac) at application.inc:643
#34 $00452d56 in main () at hello.pp:30

>
> allmost all examples aren't working

The problem occurs in forms with TButton or  TBitBtn

>
> I'm using Win89SE + fpc106 + laz CVS 05/11/02