[HeDiBo]

I have a TsCalcEdit field with a BoundLabel. When I delete the control in the IDE with Ctrl-X I get an access violation. This is the stack:

Code:

[19C8B97C]{acntDelphiXE4_R.bpl} sGlyphUtils.TacAddedGlyph.Width + $4
[5042DEC8]{vcl180.bpl } Vcl.Graphics.TGraphicsObject.Unlock (Line 2297, “Vcl.Graphics.pas” + 4) + $1
[5042E4A5]{vcl180.bpl } Vcl.Graphics.TFont.Assign (Line 2468, “Vcl.Graphics.pas” + 28) + $3
[5042E4B8]{vcl180.bpl } Vcl.Graphics.TFont.Assign (Line 2472, “Vcl.Graphics.pas” + 32) + $6
[19C89F40]{acntDelphiXE4_R.bpl} sCurrEdit.TsCustomNumEdit.PaintText + $B8
[00900013]{bds.exe } bds.bds (Line 204, “” + 8) + $41CA54
[19C39A9E]{acntDelphiXE4_R.bpl} sMaskEdit.TsMaskEdit.PrepareCache + $246
[19C39159]{acntDelphiXE4_R.bpl} sMaskEdit.TsMaskEdit.PaintAddedGlyphStd + $25
[19C39FC3]{acntDelphiXE4_R.bpl} sMaskEdit.TsMaskEdit.WndProc + $31B
[19D4AB5D]{acntDelphiXE4_R.bpl} sCommonData.TsCommonData.GetCommonSkinData + $35
[19C82906]{acntDelphiXE4_R.bpl} sCustomComboEdit.TsCustomComboEdit.PrepareCache + $6
[19C82DDC]{acntDelphiXE4_R.bpl} sCustomComboEdit.TsCustomComboEdit.PaintBtnStd + $50
[19C83536]{acntDelphiXE4_R.bpl} sCustomComboEdit.TsCustomComboEdit.WndProc + $23E
[19C8A0EA]{acntDelphiXE4_R.bpl} sCurrEdit.TsCustomNumEdit.WndProc + $A
[50456BF8]{vcl180.bpl } Vcl.Controls.TWinControl.MainWndProc (Line 9751, “Vcl.Controls.pas” + 3) + $6
[50170090]{rtl180.bpl } System.Classes.StdWndProc (Line 16860, “System.Classes.pas” + 8) + $0
[51FEC539]{vcldesigner180.bpl} VCLSurface.TGrabHandles.Update (Line 2179, “VCLSurface.pas” + 33) + $1
[51FEEB7D]{vcldesigner180.bpl} VCLSurface.TVclDesignSurface.UpdateGrabHandles (Line 3100, “VCLSurface.pas” + 6) + $F
[51FEFCDC]{vcldesigner180.bpl} VCLSurface.TVclDesignSurface.IsDesignMsg (Line 3505, “VCLSurface.pas” + 105) + $6
[5005EE12]{rtl180.bpl } System.@IsClass (Line 15664, “System.pas” + 1) + $8
[5045287F]{vcl180.bpl } Vcl.Controls.TControl.WndProc (Line 7137, “Vcl.Controls.pas” + 4) + $21
[5005F00F]{rtl180.bpl } System.TObject.Dispatch (Line 16044, “System.pas” + 11) + $0
[21101D7A]{designide180.bpl} DeskUtil.SetFocusHook (Line 463, “DeskUtil.pas” + 4) + $C
[504575B5]{vcl180.bpl } Vcl.Controls.TWinControl.WndProc (Line 10039, “Vcl.Controls.pas” + 153) + $6
[19D4AB5D]{acntDelphiXE4_R.bpl} sCommonData.TsCommonData.GetCommonSkinData + $35
[19D4BB2C]{acntDelphiXE4_R.bpl} sCommonData.TsCommonData.Skinned + $50
[19C3A10D]{acntDelphiXE4_R.bpl} sMaskEdit.TsMaskEdit.WndProc + $465
[19C83545]{acntDelphiXE4_R.bpl} sCustomComboEdit.TsCustomComboEdit.WndProc + $24D
[19C8A0EA]{acntDelphiXE4_R.bpl} sCurrEdit.TsCustomNumEdit.WndProc + $A
[50456BF8]{vcl180.bpl } Vcl.Controls.TWinControl.MainWndProc (Line 9751, “Vcl.Controls.pas” + 3) + $6
[50170090]{rtl180.bpl } System.Classes.StdWndProc (Line 16860, “System.Classes.pas” + 8) + $0
[50459D2D]{vcl180.bpl } Vcl.Controls.TWinControl.SetBounds (Line 11779, “Vcl.Controls.pas” + 5) + $15
[50453233]{vcl180.bpl } Vcl.Controls.TControl.CheckNewSize (Line 7404, “Vcl.Controls.pas” + 4) + $8
[5046152F]{vcl180.bpl } Vcl.Controls.TMargins.SetControlBounds (Line 16409, “Vcl.Controls.pas” + 10) + $37
[50454D85]{vcl180.bpl } Vcl.Controls.TWinControl.ArrangeControl (Line 8534, “Vcl.Controls.pas” + 78) + $13
[50455082]{vcl180.bpl } Vcl.Controls.DoPosition (Line 8580, “Vcl.Controls.pas” + 1) + $24
[50455200]{vcl180.bpl } Vcl.Controls.DoAlign (Line 8737, “Vcl.Controls.pas” + 29) + $17
[504556B5]{vcl180.bpl } Vcl.Controls.TWinControl.AlignControls (Line 8879, “Vcl.Controls.pas” + 31) + $3
[504557FB]{vcl180.bpl } Vcl.Controls.TWinControl.AlignControl (Line 8923, “Vcl.Controls.pas” + 9) + $A
[50455D0B]{vcl180.bpl } Vcl.Controls.TWinControl.RemoveControl (Line 9121, “Vcl.Controls.pas” + 25) + $4
[504510CB]{vcl180.bpl } Vcl.Controls.TControl.SetParent (Line 6016, “Vcl.Controls.pas” + 6) + $2
[5044FF9A]{vcl180.bpl } Vcl.Controls.TControl.Destroy (Line 5370, “Vcl.Controls.pas” + 14) + $6
[5005F50C]{rtl180.bpl } System.TMonitor.Destroy (Line 16749, “System.pas” + 0) + $0
[5005EBB7]{rtl180.bpl } System.TObject.CleanupInstance (Line 15395, “System.pas” + 24) + $0
[50059970]{rtl180.bpl } System.@FreeMem (Line 4237, “System.pas” + 20) + $0
[5005EA34]{rtl180.bpl } System.TObject.FreeInstance (Line 15183, “System.pas” + 2) + $2
[5005F286]{rtl180.bpl } System.@ClassDestroy (Line 16528, “System.pas” + 0) + $2
[5044F737]{vcl180.bpl } Vcl.Controls.TControlCanvas.Destroy (Line 5021, “Vcl.Controls.pas” + 3) + $6
[5045C803]{vcl180.bpl } Vcl.Controls.TGraphicControl.Destroy (Line 13438, “Vcl.Controls.pas” + 3) + $6
[19C133E4]{acntDelphiXE4_R.bpl} sLabel.TsEditLabel.Destroy + $24
[5005EB34]{rtl180.bpl } System.TObject.Free (Line 15251, “System.pas” + 1) + $4
[5009FBB8]{rtl180.bpl } System.SysUtils.FreeAndNil (Line 24205, “System.SysUtils.pas” + 2) + $2
[19D4E853]{acntDelphiXE4_R.bpl} sCommonData.TsBoundLabel.Destroy + $1B
[5005EB34]{rtl180.bpl } System.TObject.Free (Line 15251, “System.pas” + 1) + $4
[5009FBB8]{rtl180.bpl } System.SysUtils.FreeAndNil (Line 24205, “System.SysUtils.pas” + 2) + $2
[19C38B85]{acntDelphiXE4_R.bpl} sMaskEdit.TsMaskEdit.Destroy + $11
[19C825E5]{acntDelphiXE4_R.bpl} sCustomComboEdit.TsCustomComboEdit.Destroy + $35
[19C88859]{acntDelphiXE4_R.bpl} sCurrEdit.TsCustomNumEdit.Destroy + $39
[5005EB34]{rtl180.bpl } System.TObject.Free (Line 15251, “System.pas” + 1) + $4
[211461B4]{designide180.bpl} ComponentDesigner.TComponentRoot.DeleteSelection (Line 4703, “ComponentDesigner.pas” + 44) + $2
[51FFF37D]{vcldesigner180.bpl} VCLFormDesigner.TVCLRootDesigner.CutSelection (Line 555, “VCLFormDesigner.pas” + 3) + $4
[520002A9]{vcldesigner180.bpl} VCLFormDesigner.TVCLRootDesigner.EditAction (Line 989, “VCLFormDesigner.pas” + 4) + $0
[004239D8]{bds.exe } Sanctuary.Util..{System.Generics.Collections}TList> (Line 13, “Sanctuary.Util.pas” + 0) + $2740
[00423A81]{bds.exe } Sanctuary.Util..{System.Generics.Collections}TList> (Line 13, “Sanctuary.Util.pas” + 0) + $27E9
[00420B53]{bds.exe } Sanctuary.MD5.Transform (Line 342, “Sanctuary.MD5.pas” + 71) + $9
[5016F37F]{rtl180.bpl } System.Classes.TBasicAction.Execute (Line 16354, “System.Classes.pas” + 3) + $7
[5043C277]{vcl180.bpl } Vcl.ActnList.TCustomAction.Execute (Line 284, “Vcl.ActnList.pas” + 19) + $35
[5016F21F]{rtl180.bpl } System.Classes.TBasicActionLink.Execute (Line 16270, “System.Classes.pas” + 2) + $7
[505653BF]{vcl180.bpl } Vcl.Menus.TMenuItem.Click (Line 2521, “Vcl.Menus.pas” + 17) + $7
[50566F27]{vcl180.bpl } Vcl.Menus.DoClick (Line 3691, “Vcl.Menus.pas” + 41) + $4
[50567013]{vcl180.bpl } Vcl.Menus.TMenu.IsShortCut (Line 3744, “Vcl.Menus.pas” + 38) + $6
[00425D21]{bds.exe } Sanctuary.Util.TFileMutexNewImpl.Lock (Line 1373, “Sanctuary.Util.pas” + 2) + $2
[5057C838]{vcl180.bpl } Vcl.Forms.TCustomForm.IsShortCut (Line 7321, “Vcl.Forms.pas” + 2) + $16
[50580CB2]{vcl180.bpl } Vcl.Forms.TApplication.IsShortCut (Line 10225, “Vcl.Forms.pas” + 3) + $27
[505801FC]{vcl180.bpl } Vcl.Forms.TApplication.WndProc (Line 9865, “Vcl.Forms.pas” + 106) + $6
[218A45BB]{vclactnband180.bpl} Vcl.ActnMenus.CallWindowHook (Line 748, “Vcl.ActnMenus.pas” + 20) + $F
[50170090]{rtl180.bpl } System.Classes.StdWndProc (Line 16860, “System.Classes.pas” + 8) + $0
[5005FA84]{rtl180.bpl } System.TMonitor.TryEnter (Line 17109, “System.pas” + 10) + $0
[50065B80]{rtl180.bpl } System.@IntfClear (Line 34016, “System.pas” + 10) + $0
[5044D954]{vcl180.bpl } Vcl.Controls.SendAppMessage (Line 3581, “Vcl.Controls.pas” + 2) + $4
[50459A9D]{vcl180.bpl } Vcl.Controls.TWinControl.IsMenuKey (Line 11677, “Vcl.Controls.pas” + 16) + $C
[50459AD5]{vcl180.bpl } Vcl.Controls.TWinControl.CNKeyDown (Line 11689, “Vcl.Controls.pas” + 5) + $4
[50452AF9]{vcl180.bpl } Vcl.Controls.TControl.WndProc (Line 7224, “Vcl.Controls.pas” + 91) + $6
[21101D7A]{designide180.bpl} DeskUtil.SetFocusHook (Line 463, “DeskUtil.pas” + 4) + $C
[504575B5]{vcl180.bpl } Vcl.Controls.TWinControl.WndProc (Line 10039, “Vcl.Controls.pas” + 153) + $6
[505777F9]{vcl180.bpl } Vcl.Forms.TCustomForm.WndProc (Line 4388, “Vcl.Forms.pas” + 201) + $5
[51FF84BF]{vcldesigner180.bpl} VCLFormContainer.TControlSizer.ControlWndProc (Line 311, “VCLFormContainer.pas” + 33) + $C
[218A45BB]{vclactnband180.bpl} Vcl.ActnMenus.CallWindowHook (Line 748, “Vcl.ActnMenus.pas” + 20) + $F
[50456BF8]{vcl180.bpl } Vcl.Controls.TWinControl.MainWndProc (Line 9751, “Vcl.Controls.pas” + 3) + $6
[50170090]{rtl180.bpl } System.Classes.StdWndProc (Line 16860, “System.Classes.pas” + 8) + $0
[50580BBC]{vcl180.bpl } Vcl.Forms.TApplication.IsKeyMsg (Line 10196, “Vcl.Forms.pas” + 25) + $12
[50580C56]{vcl180.bpl } Vcl.Forms.TApplication.IsHintMsg (Line 10217, “Vcl.Forms.pas” + 3) + $2
[50580E63]{vcl180.bpl } Vcl.Forms.TApplication.ProcessMessage (Line 10282, “Vcl.Forms.pas” + 17) + $31
[50580ECA]{vcl180.bpl } Vcl.Forms.TApplication.HandleMessage (Line 10318, “Vcl.Forms.pas” + 1) + $4
[50581205]{vcl180.bpl } Vcl.Forms.TApplication.Run (Line 10456, “Vcl.Forms.pas” + 26) + $3

[Support]

Hello

Are you sure this error happens with version 14.18?

This error is repeatable? I have some problems with repeating it, maybe some other options should be taken into consideration.

[HeDiBo]

'Support' wrote:

Hello

Are you sure this error happens with version 14.18?

This error is repeatable? I have some problems with repeating it, maybe some other options should be taken into consideration.

Lucky you! It's repeatable:

[attachment=9216:acCalcEditBug.zip]

Delete the one TsDBCalcEdit control and it happens.

I think it has to do with the Align setup of the controls in the panel.

[Support]

Thank you, I have sent a patched file in PM, you can try it.

[HeDiBo]

'Support' wrote:

Thank you, I have sent a patched file in PM, you can try it.

That did the trick. Thank you

[Author]

Posts