[Lazarus] New AutoSize issue

[Mattias Gaertner]

On Fri, 14 May 2010 15:46:50 +0200
faber <faber.cpu at gmail.com> wrote:

> OK, a get this.
> 
> This is my code:
>     ...
>     Second form closes and ends with some calculations
>     ...	
>     debugln('set sr1 to visible true');
>     SR1.Visible:=true;
>     SG1.Visible:=false;
>     if Assigned(SR1) AND SR1.Visible then begin
>        OptsR.Parent:=SR1;
>        OptsR.Top:=1;
>        OptsR.Left:=11;
>        OptsR.ArrowType:=atDown;
>        OptsR.Height:=19;
>        OptsR.Width:=19;
>        OptsR.Visible:=true;
>     end;
>     StopA.Visible:=false;
> 
> and LCL debug from app on WinXP (works ok):
> 
> set sr1 to visible
> 450-:-743 -1 //debug from OnResize
> 450-:-743 -1
> ChangeShowing SR1:TStringGrid1 new FShowing=True
> TWinControl.CMShowingChanged SR1:TStringGrid1 HandleAllocated=True []
> TWinControl.DoSendShowHideToInterface SR1:TStringGrid1 FBoundsRealized= x1=2,y1=
> 21,x2=745,y2=471 New=True
> ChangeShowing :TStringGrid1 new FShowing=False
> TWinControl.CMShowingChanged :TStringGrid1 HandleAllocated=True []
> TWinControl.DoSendShowHideToInterface :TStringGrid1 FBoundsRealized= x1=2,y1=21,
> x2=745,y2=471 New=False
> TWinControl.UpdateShowing OptsR:TArrow handle not allocated

Maybe I found the reason for this bug (arrow handle not allocated).
Can you test with svn rev 25541?


> ChangeShowing OptsR:TArrow new FShowing=True
> TWinControl.CMShowingChanged OptsR:TArrow HandleAllocated=True []
> TWinControl.DoSendShowHideToInterface OptsR:TArrow FBoundsRealized= x1=11,y1=1,x
> 2=30,y2=20 New=True
> ChangeShowing StopA:TButton new FShowing=False
> TWinControl.CMShowingChanged StopA:TButton HandleAllocated=True []
> TWinControl.DoSendShowHideToInterface StopA:TButton FBoundsRealized= x1=432,y1=3
> ,x2=523,y2=24 New=False
> 
> 
> and LCL debug from app on Vista (not works correct):
> 
> ChangeShowing StopA:TButton new FShowing=False
> TWinControl.CMShowingChanged StopA:TButton HandleAllocated=True []
> TWinControl.DoSendShowHideToInterface StopA:TButton FBoundsRealized= x1=432,y1=3
> ,x2=523,y2=24 New=False
> set sr1 to visible
> ChangeShowing :TStringGrid1 new FShowing=False
> TWinControl.CMShowingChanged :TStringGrid1 HandleAllocated=True []
> TWinControl.DoSendShowHideToInterface :TStringGrid1 FBoundsRealized= x1=2,y1=21,
> x2=745,y2=470 New=False
> TWinControl.UpdateShowing OptsR:TArrow handle not allocated
> 449-:-743 -1
> 449-:-743 -1
> ChangeShowing OptsR:TArrow new FShowing=True
> TWinControl.CMShowingChanged OptsR:TArrow HandleAllocated=True []
> TWinControl.DoSendShowHideToInterface OptsR:TArrow FBoundsRealized= x1=11,y1=1,x
> 2=30,y2=20 New=True
> ChangeShowing SR1:TStringGrid1 new FShowing=True
> TWinControl.CMShowingChanged SR1:TStringGrid1 HandleAllocated=True []
> TWinControl.DoSendShowHideToInterface SR1:TStringGrid1 FBoundsRealized= x1=2,y1=
> 21,x2=745,y2=470 New=True



Mattias