Comments (7)
Please check again using the last revision (141)
Original comment by [email protected]
on 19 Jan 2014 at 12:34
from vcl-styles-utils.
Downloaded Revision (141)
Started the application several times and failure happened only if I start to
call the OpenFileDialog with theme.
See below the CallStack, FastMM-report and a hardcopy from Delphi.
Best regards
Karlheinz
:75fbc41f KERNELBASE.RaiseException + 0x58
:0069FA81 Jclhookexcept::HookedRaiseException(ExceptionCode=????,
ExceptionFlags=????, NumberOfArguments=????, Arguments=:0018E410)
Vcl.Styles.Utils.SysStyleHook.TSysStyleHook.DrawText(4221867,((out of bound)
124, 1631300, 1631276),???,(-1074659607, 871099391, 1499028160, 1745914212,
(-1074659607, 871099391), (1499028160,
1745914212)),[tfEditControl,tfEndEllipsis,tfExpandTabs,tfNoClip,tfRtlReading,tfS
ingleLine,tfTop,tfNoFullWidthCharBreak,tfPrefixOnly])
Vcl.Styles.Utils.SysStyleHook.TSysStyleHook.DrawText(385951019,(teComboBox, 0,
0),'SKraft-Milling Files (*.SKF)',(3, 3, 227, 18, (3, 3), (227,
18)),[tfLeft,tfSingleLine,tfVerticalCenter])
Vcl.Styles.Utils.StdCtrls.TSysComboBoxStyleHook.WMPaint(???)
Vcl.Styles.Utils.SysStyleHook.TSysStyleHook.WndProc((15, 0, 0, 0, 0, 0, (), 0,
0, (), 0, 0, ()))
Vcl.Styles.Utils.StdCtrls.TSysComboBoxStyleHook.WndProc((15, 0, 0, 0, 0, 0, (),
0, 0, (), 0, 0, ()))
System.Classes.StdWndProc(397192,15,0,0)
:760162fa ; C:\Windows\syswow64\USER32.dll
:76017316 USER32.GetDC + 0x52
:76016de8 ; C:\Windows\syswow64\USER32.dll
:76016e44 ; C:\Windows\syswow64\USER32.dll
:776f010a ntdll.KiUserCallbackDispatcher + 0x2e
:7603b992 ; C:\Windows\syswow64\USER32.dll
:7603cf4b USER32.DialogBoxIndirectParamAorW + 0xf7
:7603ce8a USER32.DialogBoxIndirectParamAorW + 0x36
:7603cc0e USER32.DialogBoxIndirectParamW + 0x1b
:7567597b ; C:\Windows\syswow64\comdlg32.dll
:756b1b50 ; C:\Windows\syswow64\comdlg32.dll
:756b29d0 ; C:\Windows\syswow64\comdlg32.dll
:756b2b15 ; C:\Windows\syswow64\comdlg32.dll
:756b2b71 ; C:\Windows\syswow64\comdlg32.dll
:756a9a9b ; C:\Windows\syswow64\comdlg32.dll
:756aa33f comdlg32.GetOpenFileNameW + 0x6a
Vcl.Dialogs.TCommonDialog.TaskModalDialog(???,???)
Vcl.Dialogs.TOpenDialog.DoExecute($56A06C,722910)
Vcl.Dialogs.TOpenDialog.Execute(722910)
Vcl.Dialogs.TCommonDialog.Execute
uSkFileTypes.TSKraftBaseFile.Open
DM_Milling.TMillingInputData.Open
fMillingMain.Tf_MillingMain.LocalOpen(???)
fMillingMain.Tf_MillingMain.Open(???)
fSKraftMain.Tf_SKraftMain.actFileMillingOpenExecute(???)
System.Classes.TBasicAction.Execute
Vcl.ActnList.TCustomAction.Execute
System.Classes.TBasicActionLink.Execute(???)
Vcl.ActnMenus.TCustomActionMenuBar.ExecAction(???)
Vcl.ActnMenus.TCustomActionMenuBar.TrackMenu
Vcl.ActnMenus.TCustomActionMainMenuBar.TrackMenu
Vcl.ActnMenus.TCustomActionMenuBar.CMItemClicked(???)
Vcl.Controls.TControl.WndProc((46083, 0, 2128972080, 0, 0, 0, (), 35120, 32485,
(), 0, 0, ()))
Vcl.Controls.TWinControl.WndProc((46083, 0, 2128972080, 0, 0, 0, (), 35120,
32485, (), 0, 0, ()))
Vcl.ActnMenus.TCustomActionMenuBar.WndProc((46083, 0, 2128972080, 0, 0, 0, (),
35120, 32485, (), 0, 0, ()))
Vcl.Controls.TWinControl.MainWndProc(???)
System.Classes.StdWndProc(528248,46083,0,2128972080)
:760162fa ; C:\Windows\syswow64\USER32.dll
:76016d3a USER32.GetThreadDesktop + 0xd7
:760177c4 ; C:\Windows\syswow64\USER32.dll
:7601788a USER32.DispatchMessageW + 0xf
Vcl.Forms.TApplication.ProcessMessage(???)
--------------------------------2014/1/19
8:11:24--------------------------------
A memory block has been leaked. The size is: 36
This block was allocated by thread 0x16F4, and the stack trace (return
addresses) at the time was:
4069D6 [System.pas][System][@GetMem$qqri][4316]
4087DB [System.pas][System][TObject.NewInstance$qqrv][15447]
80A9F7
[Vcl.Styles.Utils.SysStyleHook.pas][Vcl.Styles.Utils.SysStyleHook][Styles.Utils.
Sysstylehook.TSysStyleHook.DrawText$qqrp5HDC__rx32Vcl.Themes.TThemedElementDetai
ls20System.UnicodeStringr18System.Types.TRectx54System.%Set$t25Vcl.Graphics.TTex
tFormats$iuc$0
408FFE [System.pas][System][@ClassCreate$qqrpvzc][16757]
80A9F7
[Vcl.Styles.Utils.SysStyleHook.pas][Vcl.Styles.Utils.SysStyleHook][Styles.Utils.
Sysstylehook.TSysStyleHook.DrawText$qqrp5HDC__rx32Vcl.Themes.TThemedElementDetai
ls20System.UnicodeStringr18System.Types.TRectx54System.%Set$t25Vcl.Graphics.TTex
tFormats$iuc$0
431E5B
[System.SysUtils.pas][System.SysUtils][Sysutils.Exception.$bctr$qqrx20System.Uni
codeString][21421]
80A9F7
[Vcl.Styles.Utils.SysStyleHook.pas][Vcl.Styles.Utils.SysStyleHook][Styles.Utils.
Sysstylehook.TSysStyleHook.DrawText$qqrp5HDC__rx32Vcl.Themes.TThemedElementDetai
ls20System.UnicodeStringr18System.Types.TRectx54System.%Set$t25Vcl.Graphics.TTex
tFormats$iuc$0
80A9F7
[Vcl.Styles.Utils.SysStyleHook.pas][Vcl.Styles.Utils.SysStyleHook][Styles.Utils.
Sysstylehook.TSysStyleHook.DrawText$qqrp5HDC__rx32Vcl.Themes.TThemedElementDetai
ls20System.UnicodeStringr18System.Types.TRectx54System.%Set$t25Vcl.Graphics.TTex
tFormats$iuc$0
4325C4
[System.SysUtils.pas][System.SysUtils][Sysutils.ErrorHandler$qqrucpv][21667]
406B68 [System.pas][System][ErrorAt$qqrucpv][5249]
406BAB [System.pas][System][Error$qqr20System.TRuntimeError][5260]
The block is currently used for an object of class: ERangeError
The allocation number is: 633771
Current memory dump of 256 bytes starting at pointer address 7DCBED10:
94 42 42 00 DC DD F7 7E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00
CC 89 21 93 E0 54 CA 00 00 00 00 00 11 FD CB 7D 00 00 00 00 00 00 00 00 00 00
00 00 00 00 00 00
D0 A4 09 00 D6 69 40 00 DB 87 40 00 FE 8F 40 00 FE 5C 52 00 AF A5 80 00 9E A6
80 00 47 B8 80 00
DF 2A 81 00 F1 B5 80 00 0F 23 81 00 A0 84 81 00 F4 16 00 00 F4 16 00 00 F2 69
40 00 F9 87 40 00
49 90 40 00 66 5D 52 00 C7 89 40 00 2C A7 80 00 A4 B8 80 00 22 2B 81 00 C7 89
40 00 E5 2B 7F 00
3C A0 40 00 1C 00 00 00 C8 EF 51 00 D7 65 99 86 EC 51 CA 00 E0 54 CA 00 E0 54
CA 00 E0 54 CA 00
E0 54 CA 00 E0 54 CA 00 E0 54 CA 00 28 9A 66 79 E0 54 CA 00 E0 54 CA 00 00 00
00 00 11 E7 CB 7D
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 A3 C8 09 00 D6 69 40 00 BF A6
40 00 F0 A8 40 00
” B B . Ü Ý ÷ ~ . . . . . . . . . . . . . . . . .
. . . . . . .
Ì ‰ ! “ à T Ê . . . . . . ý Ë } . . . . . . . .
. . . . . . . .
Ð ¤ . . Ö i @ . Û ‡ @ . þ � @ . þ \ R . ¯ ¥
€ . ž ¦ € . G ¸ € .
ß * � . ñ µ € . . # � . „ � . ô . . . ô .
. . ò i @ . ù ‡ @ .
I � @ . f ] R . Ç ‰ @ . , § € . ¤ ¸ € . " + �
. Ç ‰ @ . å + � .
< @ . . . . . È ï Q . × e ™ † ì Q Ê . à T Ê
. à T Ê . à T Ê .
à T Ê . à T Ê . à T Ê . ( š f y à T Ê . à T Ê
. . . . . . ç Ë }
. . . . . . . . . . . . . . . . £ È . . Ö i @ . ¿
¦ @ . ð ¨ @ .
--------------------------------2014/1/19
8:11:24--------------------------------
A memory block has been leaked. The size is: 52
This block was allocated by thread 0x16F4, and the stack trace (return
addresses) at the time was:
4069D6 [System.pas][System][@GetMem$qqri][4316]
40A6BF [System.pas][System][@NewUnicodeString$qqri][23630]
40A8F0
[System.pas][System][@UStrFromPWCharLen$qqrr20System.UnicodeStringpbi][24302]
40EFA5 [System.pas][System][LoadResString$qqrp20System.TResStringRec][37127]
630065
[Vcl.ImgList.pas][Vcl.ImgList][Imglist.TCustomImageList.InsertImage$qqrip20Vcl.G
raphics.TBitmapt221System.Uitypes.TColor][895]
7771A8D7 [Unknown function at RtlDetermineDosPathNameType_U]
77713CD3 [Unknown function at RtlImageNtHeader]
77713CFE [Unknown function at RtlImageNtHeader]
776FFABA [ZwQueryValueKey]
7624D713 [Unknown function at CreateMemoryResourceNotification]
7624D730 [Unknown function at CreateMemoryResourceNotification]
The block is currently used for an object of class: UnicodeString
The allocation number is: 38
Current memory dump of 256 bytes starting at pointer address 7EF7DDD0:
B0 04 02 00 01 00 00 00 11 00 00 00 52 00 61 00 6E 00 67 00 65 00 20 00 63 00
68 00 65 00 63 00
6B 00 20 00 65 00 72 00 72 00 6F 00 72 00 00 00 F5 16 53 B5 E0 54 CA 00 00 00
00 00 91 DC F7 7E
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 27 00 00 00 D6 69 40 00 BF A6
40 00 F0 A8 40 00
A5 EF 40 00 D7 A8 71 77 D3 3C 71 77 FE 3C 71 77 BA FA 6F 77 13 D7 24 76 30 D7
24 76 A2 D6 24 76
F4 16 00 00 F4 16 00 00 F2 69 40 00 79 A7 40 00 01 A3 40 00 B3 28 42 00 3C A0
40 00 F2 A4 40 00
9C 40 C8 00 6A 33 24 76 72 9F 71 77 45 9F 71 77 00 00 00 00 2E 00 00 00 B0 04
02 00 78 31 84 27
EC 51 CA 00 E0 54 CA 00 E0 54 CA 00 E0 54 CA 00 E0 54 CA 00 E0 54 CA 00 E0 54
CA 00 E0 54 CA 00
E0 54 CA 00 E0 54 CA 00 E0 54 CA 00 E0 54 87 CE 7B D8 CA 00 E0 54 CA 00 00 00
00 00 51 E0 F7 7E
° . . . . . . . . . . . R . a . n . g . e . . c .
h . e . c .
k . . e . r . r . o . r . . . õ . S µ à T Ê . .
. . . ‘ Ü ÷ ~
. . . . . . . . . . . . . . . . ' . . . Ö i @ . ¿ ¦
@ . ð ¨ @ .
¥ ï @ . × ¨ q w Ó < q w þ < q w º ú o w . × $ v
0 × $ v ¢ Ö $ v
ô . . . ô . . . ò i @ . y § @ . . £ @ . ³ ( B . <
@ . ò ¤ @ .
œ @ È . j 3 $ v r Ÿ q w E Ÿ q w . . . . . . . . °
. . . x 1 „ '
ì Q Ê . à T Ê . à T Ê . à T Ê . à T Ê . à T Ê
. à T Ê . à T Ê .
à T Ê . à T Ê . à T Ê . à T ‡ Î { Ø Ê . à T
Ê . . . . . Q à ÷ ~
--------------------------------2014/1/19
8:11:24--------------------------------
This application has leaked memory. The small block leaks are (excluding
expected leaks registered by pointer):
21 - 36 bytes: ERangeError x 1
37 - 52 bytes: UnicodeString x 1
Note: Memory leak detail is logged to a text file in the same folder as this
application. To disable this memory leak check, undefine
"EnableMemoryLeakReporting".
Original comment by [email protected]
on 19 Jan 2014 at 7:35
Attachments:
from vcl-styles-utils.
I have a Major datamodule where I handle my Major program Settings.
Inside of the datamodule i have the uses clause like below.
and ONLY WITH Vcl.Styles.Utils.StdCtrls IN the uses the failure happened. I
tried to comment out each Vcl.Styles unit step by step and only if
Vcl.Styles.Utils.StdCtrls is NOT inside the uses the failure did not happen.
implementation
{ %CLASSGROUP 'Vcl.Controls.TControl' }
uses
// Delphi
Vcl.Themes,
Vcl.Styles,
// Styles
Vcl.Styles.Hooks,
Vcl.Styles.Utils.Menus,
Vcl.Styles.Utils.Forms,
Vcl.Styles.Utils.StdCtrls, // creates a failure in a FileOpenDialog
Vcl.Styles.Utils.ComCtrls,
Vcl.Styles.Utils.SysStyleHook,
Vcl.Styles.Utils.ScreenTips,
Vcl.Styles.Utils.SysControls,
Vcl.Styles.FormStyleHooks,
// GNU
JvGnuGetText,
// JCL
JclSysInfo, JclFileUtils, JvJCLUtils,
// SKraft
uSkRes, uSkUtils, fKHJBaseForm, DM_Werkstoff;
Original comment by [email protected]
on 19 Jan 2014 at 7:57
from vcl-styles-utils.
I cannot reproduce your issue, please attach a minimal sample App to reproduce
the issue.
Original comment by [email protected]
on 19 Jan 2014 at 4:38
from vcl-styles-utils.
Original comment by [email protected]
on 20 Jan 2014 at 3:27
- Changed title: Memory leak in Vcl.Styles.Utils.SysStyleHook.pas
from vcl-styles-utils.
With one of the last updates the bug ist solved.
You can close this issue.
Original comment by [email protected]
on 22 Jan 2014 at 4:53
from vcl-styles-utils.
Original comment by [email protected]
on 22 Jan 2014 at 4:54
- Changed state: Fixed
from vcl-styles-utils.
Related Issues (20)
- How to use this in C++Builder?
- Messagedlg bad visual with Alexandria ? HOT 3
- Access Violation using TVCLStylesPreview in Alexandria (with solution) HOT 1
- Strange Bug in FormModal with MenuItem and VCLStyles HOT 3
- Bug with "TOpenDialog" in Windows 7 SP1
- What fixes/tweaks are still applicable for use with RAD Studio 11 Alexandria? HOT 7
- TTaskDialog styling scale incorrect HOT 4
- bug in TVclStylesSystemMenu.CreateMenuStyles
- Problem with PageControl/TabSheet in Alexandria
- TSysToolbarStyleHook.ApplyImageList Exception. HOT 1
- TSaveDialog problem HOT 1
- MainMenu.items not scaling
- MenuItem "checkmark" is not displayed when RadioItem is true
- Application crashes while using DLL which is setting VCL Style HOT 1
- Buttons loosing Border in IDE, ObjectInspektor HOT 1
- Vcl.Styles.Utils.Graphics.DrawStyleParentBackground() does nothing
- Incompatibility with RAD Studio 12 HOT 1
- NCControls throw exceptions under Delphi 12 HOT 6
- TToggleSwitch background is not styled with DoubleBuffered := True and Delphi 12 Athens
- TTaskDialog not drawing text correctly in dark themes when hyperlinks are used HOT 1
Recommend Projects
-
React
A declarative, efficient, and flexible JavaScript library for building user interfaces.
-
Vue.js
🖖 Vue.js is a progressive, incrementally-adoptable JavaScript framework for building UI on the web.
-
Typescript
TypeScript is a superset of JavaScript that compiles to clean JavaScript output.
-
TensorFlow
An Open Source Machine Learning Framework for Everyone
-
Django
The Web framework for perfectionists with deadlines.
-
Laravel
A PHP framework for web artisans
-
D3
Bring data to life with SVG, Canvas and HTML. 📊📈🎉
-
Recommend Topics
-
javascript
JavaScript (JS) is a lightweight interpreted programming language with first-class functions.
-
web
Some thing interesting about web. New door for the world.
-
server
A server is a program made to process requests and deliver data to clients.
-
Machine learning
Machine learning is a way of modeling and interpreting data that allows a piece of software to respond intelligently.
-
Visualization
Some thing interesting about visualization, use data art
-
Game
Some thing interesting about game, make everyone happy.
Recommend Org
-
Facebook
We are working to build community through open source technology. NB: members must have two-factor auth.
-
Microsoft
Open source projects and samples from Microsoft.
-
Google
Google ❤️ Open Source for everyone.
-
Alibaba
Alibaba Open Source for everyone
-
D3
Data-Driven Documents codes.
-
Tencent
China tencent open source team.
from vcl-styles-utils.