Range check error when moving component in form designer
Original Reporter info from Mantis: Ask
-
Reporter name: Alexander S. Klenin
Original Reporter info from Mantis: Ask
- Reporter name: Alexander S. Klenin
Description:
AddComponent TImageList Parent=Form1:TForm1 84,71,0,0
Parent is 'Form1:TForm1'
TMainIDE.OnPropHookPersistentAdded A ImageList1:TImageList
[TEventsCodeTool.CompleteComponent] CurComponent=ImageList1:TImageList
TApplication.HandleException Range check error
Stack trace:
$008111E7 TSELECTEDCONTROL__SETLEFT, line 785 of D:/lazarus/designer/controlselection.pp
$008108FE TSELECTEDCONTROL__SETBOUNDS, line 604 of D:/lazarus/designer/controlselection.pp
$00810B73 TSELECTEDCONTROL__SETFORMRELATIVEBOUNDS, line 636 of D:/lazarus/designer/controlselection.pp
$00812BD5 TCONTROLSELECTION__DOAPPLYUSERBOUNDS, line 1206 of D:/lazarus/designer/controlselection.pp
$008122C8 TCONTROLSELECTION__ENDRESIZING, line 979 of D:/lazarus/designer/controlselection.pp
$0081583C TCONTROLSELECTION__MOVESELECTIONWITHSNAPPING, line 2228 of D:/lazarus/designer/controlselection.pp
$007FCC9F TDESIGNER__MOUSEMOVEONCONTROL, line 2283 of D:/lazarus/designer/designer.pp
$007FDAD6 TDESIGNER__ISDESIGNMSG, line 2579 of D:/lazarus/designer/designer.pp
$005DCE47 TCONTROL__WNDPROC, line 2038 of ./include/control.inc
$005CE3D1 TWINCONTROL__WNDPROC, line 5322 of ./include/wincontrol.inc
$0042F7E6 TCUSTOMFORM__WNDPROC, line 1433 of ./include/customform.inc
$00658875 DELIVERMESSAGE,
Steps to reproduce:
- Compile Lazarus with -Cr
- Create new form
- Put a component on it (for example, TImageList)
- Move the component with a mouse over the left boundary of the form
=>
Range check error.
Additional information:
After pressing "Cancel" Lazarus does not
exit, but hangs, leaving unfinished trace in the debug log as posted above.
Mantis conversion info:
- Mantis ID: 22760
- Version: 1.1 (SVN)
- Fixed in revision: r38466 (#50b8a2fe)