On Tue, 10 Jan 2006 15:50:24 +0100 (CET)
[EMAIL PROTECTED] wrote:
> The last ofcourse...
I followed the backtrace ControlSelection.pp:1603, saw that it read
'FForms.Components', but in the line in front it tested only for
'FLookupRoot.ComponentCount'. So, it was obvious, that one of them is wrong.
In this case the LookupRoot is the real component and the FForm variable is
only the designer visual form.
This was wrong at a neighbour method too. Probably a paste and copy bug aka
relict from the extension for TDataModules.
Mattias
>
> > On 08 Jan 2006 23:36:19 +0100
> > Darius Blaszijk <[EMAIL PROTECTED]> wrote:
> >
> >> How the hell....
> >>
> >> Can you give me a hint how you did find this bug?
> >
> > Do you mean, how JPMugaas found this bug, or how I found the bug reason?
> >
> > Mattias
> >
> >
> >>
> >> Darius
> >>
> >> On Sun, 2006-01-08 at 23:32, Mattias Gaertner wrote:
> >> > On Sun, 08 Jan 2006 18:34:07 +0100
> >> > Vincent Snijders <[EMAIL PROTECTED]> wrote:
> >> >
> >> > > Hi,
> >> > >
> >> > > When I put a TButtonPanel on a form and click on the OK an error
> >> > > message is shown. Running lazarus is gdb gave me this error
> >> message.
> >> > >
> >> > > Thanks to JPMugaas for explaining how to trigger this error.
> >> >
> >> > Fixed.
> >> >
> >> > Mattias
> >> >
> >> >
> >> > >
> >> > > Vincent.
> >> > >
> >> > > #0 $0040a8f6 in fpc_raiseexception (OBJ=$466e13, ANADDR=$6fc94,
> >> > > AFRAME=$968a04) at except.inc:180
> >> > > #1 $00466e1f in TFPLIST__ERROR (MSG=$968a04, DATA=1, pvmt=$956370)
> >> > > at lists.inc:120
> >> > > #2 $00466ac6 in TFPLIST__RAISEINDEXERROR (INDEX=1, this=$289b6e4)
> >> > > at lists.inc:24
> >> > > #3 $00466aee in TFPLIST__GET (INDEX=1, this=$289b6e4) at
> >> lists.inc:30
> >> > > #4 $004672f0 in TLIST__GET (INDEX=1, this=$289b734) at
> >> lists.inc:311
> >> > > #5 $0046b751 in TCOMPONENT__GETCOMPONENT (AINDEX=1, this=$2958f48)
> >> > > at compon.inc:29
> >> > > #6 $005e3e46 in TCONTROLSELECTION__GETRIGHTGUIDELINE (ALINE=
> >> > > {LEFT = 0, TOP = 0, RIGHT = 2010220243, BOTTOM = 4853383,
> >> > > TOPLEFT = {X =
> >> > > 0, Y = 0}, BOTTOMRIGHT = {X = 2010220243, Y = 4853383}},
> >> > > this=$218844c)
> >> > > at ControlSelection.pp:1603
> >> > > #7 $005e7bda in TCONTROLSELECTION__DRAWGUIDELINES (DC=$2857eac,
> >> > > this=$218844c) at ControlSelection.pp:2909
> >> > > #8 $005d8f65 in TDESIGNER__DOPAINTDESIGNERITEMS (this=$21885dc)
> >> > > at Designer.pp:2236
> >> > > #9 $005d8dbb in TDESIGNER__DRAWDESIGNERITEMS (ONLYIFNEEDED=true,
> >> > > this=$21885dc) at Designer.pp:2191
> >> > > #10 $005db17f in TFORMEDITOR__PAINTALLDESIGNERITEMS (this=$235ebcc)
> >> > > at FormEditor.pp:89
> >> > > #11 $004548cf in TMAINIDE__ONAPPLICATIONIDLE (SENDER=$fe77c,
> >> > > this=$11e93c)
> >> > > at Main.pp:11905
> >> > > #12 $00421385 in TAPPLICATION__NOTIFYIDLEHANDLER (this=$fe77c)
> >> > > at application.inc:514
> >> > > #13 $00420dc4 in TAPPLICATION__IDLE (WAIT=true, this=$fe77c)
> >> > > at application.inc:270
> >> > > #14 $00422125 in TAPPLICATION__HANDLEMESSAGE (this=$fe77c)
> >> > > at application.inc:900
> >> > > #15 $0042243c in RUNMESSAGE (parentfp=$6ff20) at
> >> application.inc:1016
> >> > > #16 $00422393 in TAPPLICATION__RUNLOOP (this=$fe77c) at
> >> > > application.inc:1026 #17 $0045e11f in TWIDGETSET__APPRUN (
> >> > > ALOOP=$422354 <TAPPLICATION__RUNLOOP at application.inc:1021>,
> >> > > this=$1167c4) at interfacebase.inc:42
> >> > > #18 $0042234c in TAPPLICATION__RUN (this=$fe77c) at
> >> > > application.inc:1006 #19 $00401151 in main () at lazarus.pp:92
> >> > >
> >> > > _________________________________________________________________
> >> > > To unsubscribe: mail [EMAIL PROTECTED] with
> >> > > "unsubscribe" as the Subject
> >> > > archives at http://www.lazarus.freepascal.org/mailarchives
> >> >
> >> > _________________________________________________________________
> >> > To unsubscribe: mail [EMAIL PROTECTED] with
> >> > "unsubscribe" as the Subject
> >> > archives at http://www.lazarus.freepascal.org/mailarchives
> >>
> >>
> >> _________________________________________________________________
> >> To unsubscribe: mail [EMAIL PROTECTED] with
> >> "unsubscribe" as the Subject
> >> archives at http://www.lazarus.freepascal.org/mailarchives
> >
> > _________________________________________________________________
> > To unsubscribe: mail [EMAIL PROTECTED] with
> > "unsubscribe" as the Subject
> > archives at http://www.lazarus.freepascal.org/mailarchives
> >
>
>
> _________________________________________________________________
> To unsubscribe: mail [EMAIL PROTECTED] with
> "unsubscribe" as the Subject
> archives at http://www.lazarus.freepascal.org/mailarchives
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
