On Thu, 2 Mar 2006 17:40:23 -0300
"Felipe Monteiro de Carvalho" <[EMAIL PROTECTED]> wrote:

> On 3/2/06, Mattias Gaertner <[EMAIL PROTECTED]> wrote:
> > How to find out:
> > - add a check to DoSetBounds to raise an error if bounds over 10000
> 
> This is already like that on LCL code. This is why the error is
> raised. What I need is to find out why the bounds have wrong values.
> 
> > - create a backtrace
> 
> Doesn't help much, it's the same from the error message:
> 
> Program received signal SIGFPE, Arithmetic exception.
> 0x080ac6f8 in RAISEGDBEXCEPTION (MSG=0xb74e1a1c) at lclproc.pas:737
> 737     lclproc.pas: Arquivo ou diretório não encontrado.
>         in lclproc.pas
> Current language:  auto; currently pascal
> (gdb) bt
> #0  0x080ac6f8 in RAISEGDBEXCEPTION (MSG=0xb74e1a1c) at lclproc.pas:737
> #1  0x080da7b3 in BOUNDSOUTOFBOUNDS (parentfp=0xbfbb1d38) at
> control.inc:440 #2  0x080da545 in TCONTROL__DOSETBOUNDS (ALEFT=78,
> ATOP=17, AWIDTH=141295429, AHEIGHT=1212909093, this=0xb7443468)
>     at control.inc:445
> #3  0x080da1d1 in TCONTROL__CHANGEBOUNDS (ALEFT=78, ATOP=17,
> AWIDTH=141295429, AHEIGHT=1212909093, this=0xb7443468)
>     at control.inc:364
> #4  0x080de692 in TCONTROL__SETBOUNDS (ALEFT=78, ATOP=17,
> AWIDTH=141295429, AHEIGHT=1212909093, this=0xb7443468)
>     at control.inc:2500
> #5  0x080e1650 in TCONTROL__SETBOUNDSKEEPBASE (ALEFT=78, ATOP=17,
> AWIDTH=141295429, AHEIGHT=1212909093, LOCK=true,
>     this=0xb7443468) at control.inc:3641
> #6  0x080f890c in TCUSTOMLABEL__DOAUTOSIZE (this=0xb7443468) at
> customlabel.inc:79

This is:
    SetBoundsKeepBase(Left, Top, NewWidth, NewHeight);

... looking what sets NewWidth ...

    CalcSize(NewWidth, NewHeight);

... find declaration gives ...

procedure TCustomLabel.CalcSize

...

DrawText

Well? What does DrawText return under qt?


> #7  0x080d9727 in TCONTROL__ADJUSTSIZE (this=0xb7443468) at control.inc:50
> ..........


Mattias

_________________________________________________________________
     To unsubscribe: mail [EMAIL PROTECTED] with
                "unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives

Reply via email to