Skip to content

GitLab

    • GitLab: the DevOps platform
    • Explore GitLab
    • Install GitLab
    • How GitLab compares
    • Get started
    • GitLab docs
    • GitLab Learn
  • Pricing
  • Talk to an expert
  • Help
    • Help
    • Support
    • Community forum
    • Submit feedback
    • Contribute to GitLab
    • Switch to GitLab Next
    • Menu
    Projects Groups Snippets
  • Get a free trial
  • Sign up
  • Login
  • Sign in / Register
  • Lazarus Lazarus
  • Project information
    • Project information
    • Activity
    • Labels
    • Members
  • Repository
    • Repository
    • Files
    • Commits
    • Branches
    • Tags
    • Contributors
    • Graph
    • Compare
    • Locked Files
  • Issues 2,083
    • Issues 2,083
    • List
    • Boards
    • Service Desk
    • Milestones
    • Iterations
  • Merge requests 8
    • Merge requests 8
  • Deployments
    • Deployments
    • Releases
  • Analytics
    • Analytics
    • Value stream
    • Code review
    • Insights
    • Issue
    • Repository
  • External wiki
    • External wiki
  • Activity
  • Graph
  • Create a new issue
  • Commits
  • Issue Boards
Collapse sidebar

GitLab 15.0 is launching on May 22! This version brings many exciting improvements, but also removes deprecated features and introduces breaking changes that may impact your workflow. To see what is being deprecated and removed, please visit Breaking changes in 15.0 and Deprecations.

  • FPC
  • Lazarus
  • LazarusLazarus
  • Issues
  • #22760
Closed
Open
Created Aug 31, 2012 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)
Assignee
Assign to
Time tracking