View Issue Details

IDProjectCategoryView StatusLast Update
0004934JEDI VCL00 JVCL Componentspublic2009-09-14 20:52
ReporterCSchochAssigned ToAHUser 
PrioritynormalSeveritycrashReproducibilityalways
Status resolvedResolutionfixed 
Product VersionDaily / GIT 
Target VersionFixed in Version3.39 
Summary0004934: External Exception In TJVSpeedButton
DescriptionIf I drop a SpeedButton on my Form, and everytime I move with the Mouse over it i get Followig Message in The IDE


[7C812AEB]{kernel32.dll} RaiseException + $52
[50011BDB]{rtl140.bpl } System.@_delayLoadHelper (Line 302, "C:\Builds\TP\rtl\sys\delayhlp.c" + 158) + $D
[5000BA1C]{rtl140.bpl } System.@LStrClr (Line 13683, "System.pas" + 11) + $0
[500B0681]{rtl140.bpl } UxTheme.uxtheme.dll (Line 5112, "UxTheme.pas" + 0) + $5
[500B0712]{rtl140.bpl } UxTheme.DrawThemeTextEx (Line 5138, "UxTheme.pas" + 1) + $20
[490F4AD8]{JvCoreD14R.bpl} JvThemes.DrawGlassableText + $C4
[49ACF580]{JvStdCtrlsD14R.bpl} JvSpeedButton.TJvxButtonGlyph.DrawButtonText + $C4
[49ACF672]{JvStdCtrlsD14R.bpl} JvSpeedButton.TJvxButtonGlyph.DrawEx + $E2
[49ACF30B]{JvStdCtrlsD14R.bpl} JvSpeedButton.TJvxButtonGlyph.Draw + $43
[49ACE3B0]{JvStdCtrlsD14R.bpl} JvSpeedButton.TJvSpeedButton.PaintImage + $128
[49ACD062]{JvStdCtrlsD14R.bpl} JvSpeedButton.TJvCustomSpeedButton.Paint + $336
[5029F685]{vcl140.bpl } Controls.TGraphicControl.WMPaint (Line 13141, "Controls.pas" + 7) + $5
[49ACD95A]{JvStdCtrlsD14R.bpl} JvSpeedButton.TJvCustomSpeedButton.WMPaint + $B6
[50295DFC]{vcl140.bpl } Controls.TControl.WndProc (Line 7062, "Controls.pas" + 91) + $6
[50010AF6]{rtl140.bpl } System.@IntfCast (Line 22024, "System.pas" + 9) + $0
[50010B93]{rtl140.bpl } System.TInterfacedObject._Release (Line 22081, "System.pas" + 1) + $3
[50010B7D]{rtl140.bpl } System.TInterfacedObject._AddRef (Line 22076, "System.pas" + 1) + $3
[50009E7C]{rtl140.bpl } System.TObject.GetInterface (Line 9642, "System.pas" + 8) + $A
[50009EEA]{rtl140.bpl } System.TObject.GetInterface (Line 9650, "System.pas" + 16) + $10
[50010B5B]{rtl140.bpl } System.TInterfacedObject.QueryInterface (Line 22068, "System.pas" + 1) + $8
[50010AF6]{rtl140.bpl } System.@IntfCast (Line 22024, "System.pas" + 9) + $0
[50010B93]{rtl140.bpl } System.TInterfacedObject._Release (Line 22081, "System.pas" + 1) + $3
[50010AB0]{rtl140.bpl } System.@IntfClear (Line 21928, "System.pas" + 7) + $0
[519ED37B]{vcldesigner140.bpl} VCLSurface.PaintEvent (Line 3094, "VCLSurface.pas" + 24) + $28
[5006499B]{rtl140.bpl } Classes.TThreadList.LockList (Line 3835, "Classes.pas" + 1) + $4
[50064D91]{rtl140.bpl } Classes.TInterfaceList.GetCount (Line 3967, "Classes.pas" + 5) + $10
[50010B93]{rtl140.bpl } System.TInterfacedObject._Release (Line 22081, "System.pas" + 1) + $3
[50010AB0]{rtl140.bpl } System.@IntfClear (Line 21928, "System.pas" + 7) + $0
[519EDC0A]{vcldesigner140.bpl} VCLSurface.TVclDesignSurface.IsDesignMsg (Line 3307, "VCLSurface.pas" + 186) + $28
[501CDE3B]{vcl140.bpl } Graphics.TCanvas.MoveTo (Line 3848, "Graphics.pas" + 2) + $8
[50009F92]{rtl140.bpl } System.@IsClass (Line 9738, "System.pas" + 1) + $8
[490F6E44]{JvCoreD14R.bpl} JvExControls.DispatchIsDesignMsg + $68
[490F8107]{JvCoreD14R.bpl} JvExControls.TJvExGraphicControl.WndProc + $1DB
[50295A20]{vcl140.bpl } Controls.TControl.Perform (Line 6840, "Controls.pas" + 10) + $8
[519F0DC7]{vcldesigner140.bpl} VCLSurface.TDragImage.Create (Line 4734, "VCLSurface.pas" + 15) + $1B
[50010AB0]{rtl140.bpl } System.@IntfClear (Line 21928, "System.pas" + 7) + $0
[519E844C]{vcldesigner140.bpl} VCLSurface.TControlItem.GetDragImage (Line 816, "VCLSurface.pas" + 1) + $E
[20D9E9A5]{designide140.bpl} Designer.TDesigner.DragBoxesOn (Line 895, "Designer.pas" + 12) + $A
[50010B93]{rtl140.bpl } System.TInterfacedObject._Release (Line 22081, "System.pas" + 1) + $3
[50010AB0]{rtl140.bpl } System.@IntfClear (Line 21928, "System.pas" + 7) + $0
[20D9E7CB]{designide140.bpl} Designer.TDesigner.DragBegin (Line 848, "Designer.pas" + 33) + $2
[20DA1093]{designide140.bpl} Designer.TDesigner.MouseDown (Line 1695, "Designer.pas" + 81) + $9
[519ECB46]{vcldesigner140.bpl} VCLSurface.MouseEvent (Line 2899, "VCLSurface.pas" + 36) + $2A
[50064D91]{rtl140.bpl } Classes.TInterfaceList.GetCount (Line 3967, "Classes.pas" + 5) + $10
[519ED767]{vcldesigner140.bpl} VCLSurface.TVclDesignSurface.IsDesignMsg (Line 3169, "VCLSurface.pas" + 48) + $6
[20D7C74E]{designide140.bpl} DeskUtil.SetFocusHook (Line 454, "DeskUtil.pas" + 4) + $C
[50009F92]{rtl140.bpl } System.@IsClass (Line 9738, "System.pas" + 1) + $8
[50295B6B]{vcl140.bpl } Controls.TControl.WndProc (Line 6975, "Controls.pas" + 4) + $21
[50299DF5]{vcl140.bpl } Controls.GetControlAtPos (Line 9563, "Controls.pas" + 4) + $13
[490F8107]{JvCoreD14R.bpl} JvExControls.TJvExGraphicControl.WndProc + $1DB
[50295A20]{vcl140.bpl } Controls.TControl.Perform (Line 6840, "Controls.pas" + 10) + $8
[50299FEC]{vcl140.bpl } Controls.TWinControl.IsControlMouseMsg (Line 9610, "Controls.pas" + 15) + $2A
[5029A53C]{vcl140.bpl } Controls.TWinControl.WndProc (Line 9770, "Controls.pas" + 95) + $6
[502BF58C]{vcl140.bpl } Forms.TCustomForm.WndProc (Line 3960, "Forms.pas" + 191) + $5
[2214511B]{delphivclide140.bpl} VCLFormContainer.TControlSizer.ControlWndProc (Line 306, "VCLFormContainer.pas" + 33) + $C
[50299D60]{vcl140.bpl } Controls.TWinControl.MainWndProc (Line 9540, "Controls.pas" + 3) + $6
[50076360]{rtl140.bpl } Classes.StdWndProc (Line 13014, "Classes.pas" + 8) + $0
[50290916]{vcl140.bpl } Controls.FindControl (Line 3377, "Controls.pas" + 6) + $9
[502C8749]{vcl140.bpl } Forms.TApplication.ProcessMessage (Line 9784, "Forms.pas" + 30) + $1
[502C878E]{vcl140.bpl } Forms.TApplication.HandleMessage (Line 9814, "Forms.pas" + 1) + $4
[502C8AB9]{vcl140.bpl } Forms.TApplication.Run (Line 9951, "Forms.pas" + 26) + $3
[0042D94A]{bds.exe } bds.bds (Line 200, "" + 8) + $FFFB
Additional InformationI'm using Windows XP SP3 and Delphi 2010
TagsNo tags attached.

Activities

AHUser

2009-09-14 20:52

developer   ~0016100

This bug is a known bug and already fixed. DrawGlassableText calls DrawThemedTextEx which Embarcadero changed to throw an EExternalException instead of returning E_NOTIMPL.

You can download either a daily snapshot, the SVN head revision or you can use the JVCL binary installer which is already updated to include the bugfix (http://cc.embarcadero.com/Item/27212)

Issue History

Date Modified Username Field Change
2009-09-13 22:05 CSchoch New Issue
2009-09-14 20:52 AHUser Note Added: 0016100
2009-09-14 20:52 AHUser Status new => resolved
2009-09-14 20:52 AHUser Fixed in Version => Daily / SVN
2009-09-14 20:52 AHUser Resolution open => fixed
2009-09-14 20:52 AHUser Assigned To => AHUser