Skip to content

GitLab

Closed
Created by FPC Admin account@fpc_adminOwner

Range check error when moving component in form designer

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:

  1. Compile Lazarus with -Cr
  2. Create new form
  3. Put a component on it (for example, TImageList)
  4. 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)