Icon View Incident Report

Minor Minor
Reported By: Grzegorz Rewucki
Reported On: 10/14/2020
For: Version 2.32 Build 1
# 4835 Custom ElevateDB Task and Panel Controls Experience Design-Time AV in Delphi 10.4 IDE

EDB 2.32 build 1 with Delphi 10.4 Version 27.0.37889.9797 has a bug in one of the util components:

(000B688E){ } [0EF3788E]
[500607BE]{rtl270.bpl } System.TMonitor.Exit (Line 19471, "System.pas" + 2) + $7
[50F47A0B]{vcl270.bpl } Vcl.Styles.TCustomStyle.DoDrawElement (Line 1085, "Vcl.Styles.pas" + 7) + $1C
[50DEDA0A]{vcl270.bpl } Vcl.Themes.TCustomStyleServices.DrawElement (Line 2623, "Vcl.Themes.pas" + 1) + $11
[2C0A0E4E]{edbutilcompsdesign.bpl} Edbutilcomps.TEDBTaskPanel.Paint + $AE
[2C0A22FC]{edbutilcompsdesign.bpl} Edbutilcomps.TEDBDetailsTaskPanel.Paint + $28
[50CD1B9E]{vcl270.bpl } Vcl.Graphics.TCanvas.SetPenPos (Line 4201, "Vcl.Graphics.pas" + 1) + $9
[50CF3971]{vcl270.bpl } Vcl.Controls.TControlCanvas.UpdateTextFlags (Line 5263, "Vcl.Controls.pas" + 2) + $2
[50D027B7]{vcl270.bpl } Vcl.Controls.TCustomControl.PaintWindow (Line 14395, "Vcl.Controls.pas" + 6) + $5
[50CFBE75]{vcl270.bpl } Vcl.Controls.TWinControl.PaintHandler (Line 10507, "Vcl.Controls.pas" + 4) + $14
[50CFC7CC]{vcl270.bpl } Vcl.Controls.TWinControl.WMPaint (Line 10710, "Vcl.Controls.pas" + 6) + $5
[50165B56]{rtl270.bpl } System.Classes.TInterfaceList.GetCount (Line 5549, "System.Classes.pas" + 5) + $9
[500683E8]{rtl270.bpl } System.@IntfClear (Line 38565, "System.pas" + 10) + $0
[52891068]{vcldesigner270.bpl} VCLSurface.TVclDesignSurface.IsDesignMsg (Line 3724, "VCLSurface.pas" + 186) + $28
[5005FD46]{rtl270.bpl } System.@IsClass (Line 18181, "System.pas" + 1) + $8
[50D02751]{vcl270.bpl } Vcl.Controls.TCustomControl.WMPaint (Line 14384, "Vcl.Controls.pas" + 2) + $4
[50CF6DC6]{vcl270.bpl } Vcl.Controls.TControl.WndProc (Line 7480, "Vcl.Controls.pas" + 91) + $6
[5005A240]{rtl270.bpl } System.@GetMem (Line 4829, "System.pas" + 20) + $0
[50061CBE]{rtl270.bpl } System.@NewUnicodeString (Line 25426, "System.pas" + 10) + $0
[50062159]{rtl270.bpl } System.@UStrAsg (Line 26416, "System.pas" + 19) + $0
[5005A25C]{rtl270.bpl } System.@FreeMem (Line 4877, "System.pas" + 20) + $0
[50061DDD]{rtl270.bpl } System.@UStrArrayClr (Line 25795, "System.pas" + 16) + $0
[50CF895F]{vcl270.bpl } Vcl.Controls.TControl.IsCustomStyleActive (Line 8526, "Vcl.Controls.pas" + 8) + $15
[50CFBCAE]{vcl270.bpl } Vcl.Controls.TWinControl.WndProc (Line 10423, "Vcl.Controls.pas" + 168) + $6
[50060AB4]{rtl270.bpl } System.TMonitor.TryEnter (Line 19684, "System.pas" + 10) + $0
[50CFB230]{vcl270.bpl } Vcl.Controls.TWinControl.MainWndProc (Line 10120, "Vcl.Controls.pas" + 3) + $6
[50181184]{rtl270.bpl } System.Classes.StdWndProc (Line 17989, "System.Classes.pas" + 8) + $0
[2131F813]{vclide270.bpl} IDEVirtualTrees.TVirtualTreeHintWindow.IsHintMsg (Line 7101, "IDEVirtualTrees.pas" + 7) + $13
[50E5A71F]{vcl270.bpl } Vcl.Forms.TApplication.ProcessMessage (Line 11002, "Vcl.Forms.pas" + 23) + $1
[50E5A762]{vcl270.bpl } Vcl.Forms.TApplication.HandleMessage (Line 11032, "Vcl.Forms.pas" + 1) + $4
[50E5AA95]{vcl270.bpl } Vcl.Forms.TApplication.Run (Line 11170, "Vcl.Forms.pas" + 26) + $3
[0051E104]{bds.exe } bds.bds (Line 222, "" + 13) + $2


Comments Comments
This issue only occurs at design-time, so the issue is most likely with how the styled elements are handled in 10.4 at design-time with respect to the VCL (these custom controls are over 10 years old). As a workaround, ElevateDB now just draws basic, non-themed controls at design-time in order to avoid the issue.


Resolution Resolution
Fixed Problem on 6/21/2021 in version 2.35 build 1


Products Affected Products Affected
ElevateDB Additional Software and Utilities
ElevateDB DAC Client-Server
ElevateDB DAC Client-Server with Source
ElevateDB DAC Standard
ElevateDB DAC Standard with Source
ElevateDB DAC Trial
ElevateDB LCL Standard with Source
ElevateDB PHP Standard
ElevateDB PHP Standard with Source
ElevateDB PHP Trial
ElevateDB VCL Client-Server
ElevateDB VCL Client-Server with Source
ElevateDB VCL Standard
ElevateDB VCL Standard with Source
ElevateDB VCL Trial

Image