> > > Weird. > The order should not matter for the winapi. I hope some winapi expert has > seen something like this and can give some hint. > Maybe the SR1 is not at the right position. > In the unit lcl/interfaces/win32wscontrols.pp in procedure > TWin32WSWinControl.SetBounds after the line AdaptBounds you can add a > debugln: > > debugln(['TWin32WSWinControl.SetBounds ',dbgsname(AWinControl),' > l=',IntfLeft,' t=',IntfTop,' w=',IntfWidth,' h=',IntfHeight,' > suppress=',suppressMove]); > > Is SR1 getting the right bounds? > > on good working:
set sr1 to visible 450-:-743 -1 TWin32WSWinControl.SetBounds SR1:TStringGrid1 l=2 t=21 w=743 h=450 suppress=False 450-:-743 -1 TWin32WSWinControl.ShowHide SR1:TStringGrid1 True TWin32WSWinControl.ShowHide :TStringGrid1 False TWin32WSWinControl.SetBounds OptsR:TArrow l=11 t=1 w=19 h=19 suppress=False TWin32WSWinControl.ShowHide OptsR:TArrow True TWin32WSWinControl.ShowHide StopA:TButton False on not good working: TWin32WSWinControl.ShowHide StopA:TButton False set sr1 to visible TWin32WSWinControl.ShowHide :TStringGrid1 False 449-:-743 -1 TWin32WSWinControl.SetBounds OptsR:TArrow l=11 t=1 w=19 h=19 suppress=False TWin32WSWinControl.SetBounds SR1:TStringGrid1 l=2 t=21 w=743 h=449 suppress=False 449-:-743 -1 TWin32WSWinControl.ShowHide OptsR:TArrow True TWin32WSWinControl.ShowHide SR1:TStringGrid1 True > > Either your disk was full or there is too much output so that there is a > congestion that windows can not handle fast enough. You are writing the > output to a file, don't you? > > > so it's probably too much output, I write output to console, I thought it does not matter whether to the file or to the console. best regards faber
-- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
