rruz / vcl-styles-utils Goto Github PK

What steps will reproduce the problem?
1. Change Windows menu font size from default 9 to 11 (MenuFontSize.png)

What is the expected output? 
2. Windows themes work as expected (MenuFontThemes.png)

What do you see instead?
3. Dropdown menu font does NOT change, while top menu font does change 
(MenuFont.png)


What version of the product are you using? On what operating system?
Windows 7 64-bit, Delphi XE4

Please provide any additional information below.

What steps will reproduce the problem?
1. Compile an Installer with any skin (I used MetroBlack)
2. My installer had a nsDigalogs page and sections.
3. If you go through the installation process and watch the memory usage of the 
process after the installation has completed, it will keep rising and crash 
randomly.

What is the expected output? What do you see instead?


What version of the product are you using? On what operating system?
1.0.0.9/Windows8.1

Please provide any additional information below.
APPCRASH

KernelBase.dll or StackHash_ID crash.

What steps will reproduce the problem?
1. Open the demo project of the ThemedSysControls
2. Set the property "break" of an TMenuItem of the "PopupMenu1" to "mbBreak"
3. Run the application and open the popup menu. The menu isn't displayed 
properly.

What version of the product are you using? On what operating system?
Windows 7 64Bit, XE2

Please provide any additional information below.
The problem is present with Aero Theme and Windows Classic Theme

What steps will reproduce the problem? In InnoSetup define a license file so 
that the standard License Agreement Page is included in the setup. Run the 
setup and look at the radio dialog where user can accept/decline license 
agreement. See attached.

What is the expected output? What do you see instead?
Would expect text to be lighter like the other text.

What version of the product are you using? On what operating system?
Windows 7 x64.
Inno Setup Compiler 5.5.4 (a)
VclStylesinno.dll 1.0.3.18

What steps will reproduce the problem?
1. Open the attached and modified version of the Owner Draw Demo
2. Run it.

What is the expected output?
That no exception occurs.
What do you see instead?
An Exception appears due to change of the property MultiSelect and the 
RecreateWnd.

What version of the product are you using? On what operating system?
Delphi XE2, Win7 64bit, VCL Styles Utils rev 174

Please provide any additional information below.
Normally the Mutliselect property of the TListView is set to false. But when I 
click on an Item I would like to have the next Item selected too. So on MouseUp 
I set the Multiselect to True. But this change of the property generates a 
RecreateWnd function so the StyleHook has the wrong window handle and so the 
application crashes.

The current unit Vcl.Styles.ExtCtrls has reference to Vcl.Styles.ControlWnd, 
but the Vcl.Styles.ControlWnd is already moved to the folder old.
Therefore I think this is wrong.

Using the Vcl.Styles.DateTimePickers I have no the down-pointing small triangle 
character, whatever is the style.
Delphi XE2 Up 4 / Win 7

What steps will reproduce the problem?
1.put DBGrid control, add one title, Set title color
2.uses VCL.Styles.DBGrid
3.Run

What is the expected output? What do you see instead?
I expected see title with color, but no Effect

What version of the product are you using? On what operating system?
XE5 win8.1

Please provide any additional information below.

Just looking for a way to not style the border in the nsis plugin
also removing styles from controls if wanted 

What steps will reproduce the problem?
1. Have a menu with shortcuts
2. Open this menu 


What is the expected output? 
Shortcuts are right-aligned

What do you see instead?
Shortcuts are not positioned right-aligned (MenuShortcutsPosition.png)

What version of the product are you using? On what operating system?
Windows 7, Delphi XE4 

If I select a document with a TOpenDialog which has a vcl-style, 
OpenDialog.FileName does not contain the file path.

This value is always empty.

There are some AddLogg() calls in Vcl.Styles.SysControls.pas, so that this does 
not compile.

What steps will reproduce the problem?
1.Create and run an Inno Setup with VCL-Styles 
2.
3.

What is the expected output? What do you see instead?
In the wpInstalling page the progress bar flickers

What version of the product are you using? On what operating system?
VCL-Styles version:r194. OS version: Windows 7 Ultimate 32 bits

Please provide any additional information below.

What steps will reproduce the problem?
1. Open VisualStylesEQU.dproj demo
2. Set SizeGrip property of StatusBar1 to false
3. Run and apply a style

What is the expected output? What do you see instead?

I expect the same behavior as in an unstyled application, i.e. no visible size 
grip.
Instead I always see a size grip. The SizeGrip property has no effect.

What version of the product are you using? On what operating system?
Revision 177. Windows 7 x64.

What steps will reproduce the problem?

1. Create new Vcl Application.
2. Add TListBox and TPopupMenu components to the form.
3. Set ListBox1.PopupMenu = PopupMenu1.
4. Create some menu items.
5. Set vcl style (for example - Smokey Quartz Kamri or Silver)
6. Set TPopupMenu = class(Vcl.ActnPopup.TPopupActionBar) at the beginning of 
the Unit1.
7. Run Application.


What is the expected output? What do you see instead?

In Windows XP the caption of the active menuitem is displayed incorrectly.
In Windows Vista/7/8 everything is normal. Screenshots are attached.


What version of the product are you using? On what operating system?

Delphi XE3, Windows XP.


Please provide any additional information below.

How to fix:
Add SetBkMode to procedure TThemedMenuItemEx.NativeDrawText (unit 
Vcl.PlatformVclStylesActnCtrls).
Simple "Canvas.Brush.Style = bsClear" doesn't solve a problem.

Replace this code:

  ...
  if Selected and Enabled then
    LDetails := StyleServices.GetElementDetails(tmPopupItemHot)
  else
    LDetails := StyleServices.GetElementDetails(MenuStates[Enabled or
      ActionBar.DesignMode]);
  ...

To:

  ...
  if Selected and Enabled then
  begin
    LDetails := StyleServices.GetElementDetails(tmPopupItemHot);

    // FIX
    SetBkMode(DC, Winapi.Windows.TRANSPARENT);
  end
  else
    LDetails := StyleServices.GetElementDetails(MenuStates[Enabled or
      ActionBar.DesignMode]);
  ...

What steps will reproduce the problem?
1. Create a DropList field using nsDialogs.
2. Use any skin provided.
3. You'll see that text are not aligned like normally they are.

ScreenShot: http://puu.sh/6Odxb.png

What is the expected output? What do you see instead?
Text should be aligned, just like the text are at the TextBox in this image 
http://puu.sh/6Odxb.png

What version of the product are you using? On what operating system?
1.0.0.8

Please provide any additional information below.

If you set the property "Default" for a menu item in TPopupMenu the text is not 
drawn in bold pitch, as it is with the default Windows "theme".

You can easily change one menu item in your demo app yourself or use the 
enhanced demo I attached in issue#11.

What steps will reproduce the problem?
1. I'm trying to style uninstall
2.
3.
function InitializeUninstall: Boolean;
begin
  Result := True;
  LoadVCLStyle(ExpandConstant('{#SetupSkinPath}\MetroBlack.svf'));  
end;

procedure DeinitializeUninstall;
begin
  UnLoadVCLStyles;
  UnloadDLL(ExpandConstant('{#SetupSkinPath}\VclStylesInno.dll'));
  DeleteFile(ExpandConstant('{#SetupSkinPath}\VclStylesInno.dll'));
  DeleteFile(ExpandConstant('{#SetupSkinPath}\MetroBlack.svf'));
  RemoveDir(ExpandConstant('{#SetupSkinPath}'));
end;

What is the expected output? What do you see instead?
Styled Uninstall. Some errors. 
Please, tell how to do it (:

What version of the product are you using? On what operating system?


Please provide any additional information below.

--------------------------------2014/2/13 
21:11:41--------------------------------
FastMM has detected an attempt to call a virtual method on a freed object. An 
access violation will now be raised in order to abort the current operation.

Freed object class: TSysEditStyleHook

Virtual method: Destroy

Virtual method address: 8138CC

The allocation number was: 536332

The object was allocated by thread 0x12A8, 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]
408FFE [System.pas][System][@ClassCreate$qqrpvzc][16757]
813892 
[Vcl.Styles.Utils.StdCtrls.pas][Vcl.Styles.Utils.StdCtrls][Styles.Utils.Stdctrls
.TSysEditStyleHook.$bctr$qqrui]
7F3481 
[System.Generics.Collections.pas][Vcl.Styles.Utils.SysControls][Generics.Collect
ions.%TDictionary__2$p6HWND__46Vcl.Styles.Utils.Syscontrols.TChildControlInfo%.G
etItem$qqrxp6HWND__][1660]
80BDC7 
[Vcl.Styles.Utils.SysStyleHook.pas][Vcl.Styles.Utils.SysStyleHook][Styles.Utils.
Sysstylehook.TSysStyleHook.WndProc$qqrr24Winapi.Messages.TMessage][1197]
8130D0 
[Vcl.Styles.Utils.Forms.pas][Vcl.Styles.Utils.Forms][Styles.Utils.Forms.TSysScro
llingStyleHook.WndProc$qqrr24Winapi.Messages.TMessage][2636]
8194B9 
[Vcl.Styles.Utils.ComCtrls.pas][Vcl.Styles.Utils.ComCtrls][Styles.Utils.Comctrls
.TSysListViewStyleHook.WndProc$qqrr24Winapi.Messages.TMessage][424]
4DBB9A 
[System.Classes.pas][System.Classes][Classes.StdWndProc$qqsp6HWND__uiuiui][17013
]
75D562FA [Unknown function at gapfnScSendMessage]
75D56D3A [Unknown function at GetThreadDesktop]

The object was subsequently freed by thread 0x12A8, and the stack trace (return 
addresses) at the time was:
4069F2 [System.pas][System][@FreeMem$qqrpv][4364]
4087F9 [System.pas][System][TObject.FreeInstance$qqrv][15456]
409049 [System.pas][System][@ClassDestroy$qqrxp14System.TObject][16799]
8138ED 
[Vcl.Styles.Utils.StdCtrls.pas][Vcl.Styles.Utils.StdCtrls][Styles.Utils.Stdctrls
.TSysEditStyleHook.$bdtr$qqrv][272]
4089C7 [System.pas][System][TObject.Free$qqrv][15524]
7F01C0 
[Vcl.Styles.Utils.SysControls.pas][Vcl.Styles.Utils.SysControls][Styles.Utils.Sy
scontrols.TSysStyleManager.$bcdtr$qqrv][901]
40A03C [System.pas][System][FinalizeUnits$qqrv][21786]
40A4F2 [System.pas][System][@Halt0$qqrv][23185]
C7F814 
75F0336A [BaseThreadInitThunk]
77AF9F72 [Unknown function at RtlInitializeExceptionChain]

The current thread ID is 0x12A8, and the stack trace (return addresses) leading 
to this error is:
4089C7 [System.pas][System][TObject.Free$qqrv][15524]
7F2F5E 
[System.Generics.Collections.pas][Vcl.Styles.Utils.SysControls][Generics.Collect
ions.%TObjectDictionary__2$p6HWND__p43Vcl.Styles.Utils.Sysstylehook.TSysStyleHoo
k%.ValueNotify$qqrxp43Vcl.Styles.Utils.Sysstylehook.TSysStyleHook51System.Generi
cs.Collections
7F274C 
[System.Generics.Collections.pas][Vcl.Styles.Utils.SysControls][Generics.Collect
ions.%TDictionary__2$p6HWND__p43Vcl.Styles.Utils.Sysstylehook.TSysStyleHook%.Cle
ar$qqrv][1867]
7F259A 
[System.Generics.Collections.pas][Vcl.Styles.Utils.SysControls][Generics.Collect
ions.%TDictionary__2$p6HWND__p43Vcl.Styles.Utils.Sysstylehook.TSysStyleHook%.$bd
tr$qqrv][1748]
4089C7 [System.pas][System][TObject.Free$qqrv][15524]
7F01FB 
[Vcl.Styles.Utils.SysControls.pas][Vcl.Styles.Utils.SysControls][Styles.Utils.Sy
scontrols.TSysStyleManager.$bcdtr$qqrv][902]
40A03C [System.pas][System][FinalizeUnits$qqrv][21786]
40A4F2 [System.pas][System][@Halt0$qqrv][23185]
C7F814 
75F0336A [BaseThreadInitThunk]
77AF9F72 [Unknown function at RtlInitializeExceptionChain]

Current memory dump of 256 bytes starting at pointer address 7E28B8D0:
EC 01 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 
CA 00 E0 04 CA 00
E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 
CA 00 E0 04 CA 00
E0 04 CA 00 E0 04 CA 00 D1 69 24 A1 E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 00 00 
00 00 F1 BA 28 7E
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FB 98 05 00 D6 69 40 00 DB 87 
40 00 FE 8F 40 00
62 65 61 00 31 71 61 00 F6 7E 61 00 65 0B A7 00 47 13 A2 00 32 09 A7 00 63 D5 
A8 00 A1 2F 62 00
A8 12 00 00 A8 12 00 00 F2 69 40 00 F9 87 40 00 49 90 40 00 A8 0C 4C 00 C7 89 
40 00 C9 71 61 00
21 84 61 00 49 90 40 00 82 13 A2 00 71 09 A7 00 96 D5 A8 00 4C 00 00 00 88 B8 
60 00 C8 C5 B3 87
EC 01 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 
CA 00 E0 04 CA 00
ì  .  Ê  .  à  .  Ê  .  à  .  Ê  .  à  .  Ê  .  à  .  Ê  .  à  .  Ê 
 .  à  .  Ê  .  à  .  Ê  .
à  .  Ê  .  à  .  Ê  .  à  .  Ê  .  à  .  Ê  .  à  .  Ê  .  à  .  Ê 
 .  à  .  Ê  .  à  .  Ê  .
à  .  Ê  .  à  .  Ê  .  Ñ  i  $  ¡  à  .  Ê  .  à  .  Ê  .  à  .  Ê 
 .  .  .  .  .  ñ  º  (  ~
.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  û  ˜  .  .  Ö  i  @  .  Û  
‡  @  .  þ  �  @  .
b  e  a  .  1  q  a  .  ö  ~  a  .  e  .  §  .  G  .  ¢  .  2  .  §  .  c  
Õ  ¨  .  ¡  /  b  .
¨  .  .  .  ¨  .  .  .  ò  i  @  .  ù  ‡  @  .  I  �  @  .  ¨  .  L  .  
Ç  ‰  @  .  É  q  a  .
!  „  a  .  I  �  @  .  ‚  .  ¢  .  q  .  §  .  –  Õ  ¨  .  L  .  .  
.  ˆ  ¸  `  .  È  Å  ³  ‡
ì  .  Ê  .  à  .  Ê  .  à  .  Ê  .  à  .  Ê  .  à  .  Ê  .  à  .  Ê 
 .  à  .  Ê  .  à  .  Ê  .

--------------------------------2014/2/13 
21:13:17--------------------------------
A memory block has been leaked. The size is: 100

This block was allocated by thread 0x12A8, and the stack trace (return 
addresses) at the time was:
406A45 [System.pas][System][@ReallocMem$qqrrpvi][4508]
40CF61 [System.pas][System][DynArraySetLength$qqrrpvpvipi][33677]
40D092 [System.pas][System][@DynArraySetLength$qqrv][33756]
7F32C3 
[System.Generics.Collections.pas][Vcl.Styles.Utils.SysControls][Generics.Collect
ions.%TDictionary__2$p6HWND__46Vcl.Styles.Utils.Syscontrols.TChildControlInfo%.R
ehash$qqri][1580]
7F33B3 
[System.Generics.Collections.pas][Vcl.Styles.Utils.SysControls][Generics.Collect
ions.%TDictionary__2$p6HWND__46Vcl.Styles.Utils.Syscontrols.TChildControlInfo%.G
row$qqrv][1616]
7F3AEA 
[System.Generics.Collections.pas][Vcl.Styles.Utils.SysControls][Generics.Collect
ions.%TDictionary__2$p6HWND__46Vcl.Styles.Utils.Syscontrols.TChildControlInfo%.A
dd$qqrxp6HWND__rx46Vcl.Styles.Utils.Syscontrols.TChildControlInfo][1759]
7F0392 
[Vcl.Styles.Utils.SysControls.pas][Vcl.Styles.Utils.SysControls][AddChildControl
][980]
7F0610 
[Vcl.Styles.Utils.SysControls.pas][Vcl.Styles.Utils.SysControls][Styles.Utils.Sy
scontrols.TSysStyleManager.HookCBProc$qqsiuii][1061]
75D66381 [Unknown function at CallNextHookEx]
75D6844E [Unknown function at SetWindowsHookExA]
75D580A9 [Unknown function at GetUserObjectInformationW]

The block is currently used for an object of class: Unknown

The allocation number is: 504292

Current memory dump of 256 bytes starting at pointer address 7DABF590:
01 00 00 00 04 00 00 00 07 37 D3 6F 30 07 0B 00 46 07 23 00 05 54 00 44 94 34 
81 00 FF FF FF FF
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 FF FF FF FF 00 00 00 00 00 00 
00 00 00 00 00 00
00 00 00 00 F7 31 2D 2C 1E 06 1E 00 52 05 0F 00 05 54 00 44 94 34 81 00 61 E7 
53 19 E0 04 CA 00
E0 04 CA 00 E0 04 CA 00 E0 00 00 00 F1 F6 AB 7D 00 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 00
2F AA 07 00 D6 69 40 00 BF A6 40 00 F0 A8 40 00 BF FC 6C 00 3C E1 6C 00 7E DF 
6C 00 B8 1F 6D 00
0D 82 41 00 F2 69 40 00 F9 87 40 00 49 90 40 00 A8 12 00 00 A8 12 00 00 79 A7 
40 00 59 C4 40 00
A1 C3 40 00 3F 8A 40 00 F2 87 40 00 49 90 40 00 27 3A C0 00 C7 89 40 00 85 43 
43 00 27 A3 C0 00
40 E3 C0 00 64 00 00 00 B0 04 02 00 51 C5 77 85 EC 01 CA 00 E0 04 CA 00 E0 04 
CA 00 E0 04 CA 00
.  .  .  .  .  .  .  .  .  7  Ó  o  0  .  .  .  F  .  #  .  .  T  .  D  ”  4 
 �  .  ÿ  ÿ  ÿ  ÿ
.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  ÿ  ÿ  ÿ  ÿ  .  .  .  .  .  
.  .  .  .  .  .  .
.  .  .  .  ÷  1  -  ,  .  .  .  .  R  .  .  .  .  T  .  D  ”  4  �  .  a  
ç  S  .  à  .  Ê  .
à  .  Ê  .  à  .  Ê  .  à  .  .  .  ñ  ö  «  }  .  .  .  .  .  .  .  .  
.  .  .  .  .  .  .  .
/  ª  .  .  Ö  i  @  .  ¿  ¦  @  .  ð  ¨  @  .  ¿  ü  l  .  <  á  l  . 
 ~  ß  l  .  ¸  .  m  .
.  ‚  A  .  ò  i  @  .  ù  ‡  @  .  I  �  @  .  ¨  .  .  .  ¨  .  .  . 
 y  §  @  .  Y  Ä  @  .
¡  Ã  @  .  ?  Š  @  .  ò  ‡  @  .  I  �  @  .  '  :  À  .  Ç  ‰  @  
.  …  C  C  .  '  £  À  .
@  ã  À  .  d  .  .  .  °  .  .  .  Q  Å  w  …  ì  .  Ê  .  à  .  Ê  
.  à  .  Ê  .  à  .  Ê  .

--------------------------------2014/2/13 
21:13:17--------------------------------
A memory block has been leaked. The size is: 212

This block was allocated by thread 0x12A8, 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]
42CE30 
[System.SysUtils.pas][System.SysUtils][Sysutils.FmtStr$qqrr20System.UnicodeStrin
gx20System.UnicodeStringpx14System.TVarRecxirx31System.Sysutils.TFormatSettings]
[12033]
6F0069 
[Vcl.Grids.pas][Vcl.Grids][Grids.TInplaceEditList.BoundsChanged$qqrv][6810]
65006C [Vcl.Controls.pas][Vcl.Controls][AlignNestedControls][8809]
77AF3CD3 [Unknown function at RtlImageNtHeader]
77B15EB8 [Unknown function at RtlDosSearchPath_Ustr]
77B15F50 [Unknown function at RtlDosSearchPath_Ustr]
77AEE1B2 [RtlFreeUnicodeString]
77AFA67F [Unknown function at RtlRegisterThreadWithCsrss]

The block is currently used for an object of class: UnicodeString

The allocation number is: 683900

Current memory dump of 256 bytes starting at pointer address 7E18D130:
B0 04 02 00 01 00 00 00 59 00 00 00 41 00 63 00 63 00 65 00 73 00 73 00 20 00 
76 00 69 00 6F 00
6C 00 61 00 74 00 69 00 6F 00 6E 00 20 00 61 00 74 00 20 00 61 00 64 00 64 00 
72 00 65 00 73 00
73 00 20 00 37 00 35 00 37 00 35 00 43 00 34 00 31 00 46 00 20 00 69 00 6E 00 
20 00 6D 00 6F 00
64 00 75 00 6C 00 65 00 20 00 27 00 4B 00 45 00 52 00 4E 00 45 00 4C 00 42 00 
41 00 53 00 45 00
2E 00 64 00 6C 00 6C 00 27 00 2E 00 20 00 52 00 65 00 61 00 64 00 20 00 6F 00 
66 00 20 00 61 00
64 00 64 00 72 00 65 00 73 00 73 00 20 00 30 00 30 00 31 00 38 00 37 00 45 00 
44 00 43 00 00 00
38 A4 AD D0 E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 00 00 
00 00 71 D3 18 7E
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 74 6E 0A 00 96 82 41 00 13 6A 
40 00 61 CF 40 00
°  .  .  .  .  .  .  .  Y  .  .  .  A  .  c  .  c  .  e  .  s  .  s  .     .  
v  .  i  .  o  .
l  .  a  .  t  .  i  .  o  .  n  .     .  a  .  t  .     .  a  .  d  .  d  .  r 
 .  e  .  s  .
s  .     .  7  .  5  .  7  .  5  .  C  .  4  .  1  .  F  .     .  i  .  n  .    
 .  m  .  o  .
d  .  u  .  l  .  e  .     .  '  .  K  .  E  .  R  .  N  .  E  .  L  .  B  .  A 
 .  S  .  E  .
.  .  d  .  l  .  l  .  '  .  .  .     .  R  .  e  .  a  .  d  .     .  o  .  f 
 .     .  a  .
d  .  d  .  r  .  e  .  s  .  s  .     .  0  .  0  .  1  .  8  .  7  .  E  .  D 
 .  C  .  .  .
8  ¤  ­  Ð  à  .  Ê  .  à  .  Ê  .  à  .  Ê  .  à  .  Ê  .  à  .  
Ê  .  .  .  .  .  q  Ó  .  ~
.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  t  n  .  .  –  ‚  A  .  .  
j  @  .  a  Ï  @  .

--------------------------------2014/2/13 
21:13:17--------------------------------
A memory block has been leaked. The size is: 20

This block was allocated by thread 0x12A8, 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]
408FFE [System.pas][System][@ClassCreate$qqrpvzc][16757]
7F3EC7 
[System.Generics.Collections.pas][Vcl.Styles.Utils.SysControls][Generics.Collect
ions.%TDictionary__2$p6HWND__46Vcl.Styles.Utils.Syscontrols.TChildControlInfo%.%
TKeyCollection$%.$bctr$qqrxp101System.Generics.Collections.%TDictionary__2$p6HWN
D__46Vcl.Style
64D6A4 
[Vcl.Controls.pas][Vcl.Controls][Controls.TControl.WndProc$qqrr24Winapi.Messages
.TMessage][7224]
7F3E6F 
[System.Generics.Collections.pas][Vcl.Styles.Utils.SysControls][Generics.Collect
ions.%TDictionary__2$p6HWND__46Vcl.Styles.Utils.Syscontrols.TChildControlInfo%.G
etKeys$qqrv][1962]
80BD51 
[Vcl.Styles.Utils.SysStyleHook.pas][Vcl.Styles.Utils.SysStyleHook][Styles.Utils.
Sysstylehook.TSysStyleHook.WndProc$qqrr24Winapi.Messages.TMessage][1191]
8130D0 
[Vcl.Styles.Utils.Forms.pas][Vcl.Styles.Utils.Forms][Styles.Utils.Forms.TSysScro
llingStyleHook.WndProc$qqrr24Winapi.Messages.TMessage][2636]
8194B9 
[Vcl.Styles.Utils.ComCtrls.pas][Vcl.Styles.Utils.ComCtrls][Styles.Utils.Comctrls
.TSysListViewStyleHook.WndProc$qqrr24Winapi.Messages.TMessage][424]
4DBB9A 
[System.Classes.pas][System.Classes][Classes.StdWndProc$qqsp6HWND__uiuiui][17013
]
75D562FA [Unknown function at gapfnScSendMessage]

The block is currently used for an object of class: 
TDictionary<Winapi.Windows.HWND,Vcl.Styles.Utils.SysControls.TChildControlInfo>.
TKeyCollection

The allocation number is: 536330

Current memory dump of 256 bytes starting at pointer address 7E19EDD0:
04 E9 7E 00 10 E5 F8 7E 00 00 00 00 BE 7B BF 03 E0 04 CA 00 E0 04 CA 00 00 00 
00 00 D1 9F 19 7E
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0E 2F 08 00 D6 69 40 00 DB 87 
40 00 FE 8F 40 00
C1 A6 80 00 77 AC 80 00 88 AC 80 00 E7 BF 80 00 9F 38 81 00 C7 BD 80 00 D0 30 
81 00 B9 94 81 00
A8 12 00 00 A8 12 00 00 F2 69 40 00 F9 87 40 00 49 90 40 00 1F A7 80 00 C7 89 
40 00 85 43 43 00
0A AD 80 00 34 C0 80 00 E2 38 81 00 C7 89 40 00 C0 01 7F 00 14 00 00 00 E8 A3 
80 00 D5 0B 74 87
EC 01 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 2A F4 8B 78 00 00 
00 00 11 F1 19 7E
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 54 CD 09 00 D6 69 40 00 BF A6 
40 00 F0 A8 40 00
D3 0C 43 00 53 00 6F 00 CE 38 AF 77 AA 38 AF 77 85 AB AF 77 DF 12 C6 00 36 93 
CC 02 EE 69 41 00
.  é  ~  .  .  å  ø  ~  .  .  .  .  ¾  {  ¿  .  à  .  Ê  .  à  .  Ê  . 
 .  .  .  .  Ñ  Ÿ  .  ~
.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  /  .  .  Ö  i  @  .  Û  
‡  @  .  þ  �  @  .
Á  ¦  €  .  w  ¬  €  .  ˆ  ¬  €  .  ç  ¿  €  .  Ÿ  8  �  .  Ç 
 ½  €  .  Ð  0  �  .  ¹  ”  �  .
¨  .  .  .  ¨  .  .  .  ò  i  @  .  ù  ‡  @  .  I  �  @  .  .  §  €  
.  Ç  ‰  @  .  …  C  C  .
.  ­  €  .  4  À  €  .  â  8  �  .  Ç  ‰  @  .  À  .  �  .  .  .  . 
 .  è  £  €  .  Õ  .  t  ‡
ì  .  Ê  .  à  .  Ê  .  à  .  Ê  .  à  .  Ê  .  à  .  Ê  .  *  ô  
‹  x  .  .  .  .  .  ñ  .  ~
.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  T  Í  .  .  Ö  i  @  .  ¿  
¦  @  .  ð  ¨  @  .
Ó  .  C  .  S  .  o  .  Î  8  ¯  w  ª  8  ¯  w  …  «  ¯  w  ß  .  Æ  
.  6  “  Ì  .  î  i  A  .

--------------------------------2014/2/13 
21:13:17--------------------------------
A memory block has been leaked. The size is: 36

This block was allocated by thread 0x12A8, 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]
408FFE [System.pas][System][@ClassCreate$qqrpvzc][16757]
431F58 
[System.SysUtils.pas][System.SysUtils][Sysutils.Exception.$bctr$qqrx20System.Uni
codeStringpx14System.TVarRecxi][21427]
436F40 
[System.SysUtils.pas][System.SysUtils][Sysutils.TStringHelper.Substring$qqri][27
317]
432985 [System.SysUtils.pas][System.SysUtils][CreateAVObject][21832]
757872CE [Unknown function at IsNLSDefinedString]
7575C41F [RaiseException]
77B1B40E [Unknown function at LdrRemoveLoadAsDataTable]
77AD0133 [KiUserExceptionDispatcher]
7575C41F [RaiseException]

The block is currently used for an object of class: EAccessViolation

The allocation number is: 683896

Current memory dump of 256 bytes starting at pointer address 7EB3BAB0:
E4 48 42 00 3C D1 18 7E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 B4 75 
18 00 00 00 00 00
D9 DC 0D D7 E0 04 CA 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 36 73 00 00 A0 0E C8 00 00 00 00 00 B0 9C 
24 7E A0 18 09 7E
80 D8 B3 7E 00 00 00 00 00 00 00 00 11 D6 B3 7E 00 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 00
FD 17 00 00 D6 69 40 00 BF A6 40 00 57 BA 40 00 7F EE 40 00 FF EE 40 00 AE 86 
40 00 29 94 4B 00
15 9D 4B 00 CB A1 4B 00 22 A2 4B 00 05 78 A5 00 A8 12 00 00 A8 12 00 00 79 A7 
40 00 59 C4 40 00
A1 C3 40 00 A1 C4 40 00 DD D1 40 00 38 4B 4E 00 7A 49 4E 00 C7 89 40 00 FC 97 
4B 00 2D 9E 4B 00
ä  H  B  .  <  Ñ  .  ~  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  ´  u 
 .  .  .  .  .  .
Ù  Ü  .  ×  à  .  Ê  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
.  .  .  .  .  .  .
.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . 
 .  .  .  .  .
.  .  .  .  .  .  .  .  .  .  .  .  6  s  .  .     .  È  .  .  .  .  .  °  
œ  $  ~     .  .  ~
€  Ø  ³  ~  .  .  .  .  .  .  .  .  .  Ö  ³  ~  .  .  .  .  .  .  .  .  . 
 .  .  .  .  .  .  .
ý  .  .  .  Ö  i  @  .  ¿  ¦  @  .  W  º  @  .  �  î  @  .  ÿ  î  @  .  
®  †  @  .  )  ”  K  .
.  �  K  .  Ë  ¡  K  .  "  ¢  K  .  .  x  ¥  .  ¨  .  .  .  ¨  .  .  .  
y  §  @  .  Y  Ä  @  .
¡  Ã  @  .  ¡  Ä  @  .  Ý  Ñ  @  .  8  K  N  .  z  I  N  .  Ç  ‰  @  . 
 ü  —  K  .  -  ž  K  .

--------------------------------2014/2/13 
21:13:17--------------------------------
A memory block has been leaked. The size is: 20

This block was allocated by thread 0x12A8, 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]
408FFE [System.pas][System][@ClassCreate$qqrpvzc][16757]
7F2D37 
[System.Generics.Collections.pas][Vcl.Styles.Utils.SysControls][Generics.Collect
ions.%TDictionary__2$p6HWND__p43Vcl.Styles.Utils.Sysstylehook.TSysStyleHook%.%TV
alueCollection$%.$bctr$qqrxp99System.Generics.Collections.%TDictionary__2$p6HWND
__p43Vcl.Style
4069F2 [System.pas][System][@FreeMem$qqrpv][4364]
4087F9 [System.pas][System][TObject.FreeInstance$qqrv][15456]
7F2943 
[System.Generics.Collections.pas][Vcl.Styles.Utils.SysControls][Generics.Collect
ions.%TDictionary__2$p6HWND__p43Vcl.Styles.Utils.Sysstylehook.TSysStyleHook%.Get
Values$qqrv][1969]
7F0193 
[Vcl.Styles.Utils.SysControls.pas][Vcl.Styles.Utils.SysControls][Styles.Utils.Sy
scontrols.TSysStyleManager.$bcdtr$qqrv][899]
40A03C [System.pas][System][FinalizeUnits$qqrv][21786]
40A4F2 [System.pas][System][@Halt0$qqrv][23185]
C7F814 

The block is currently used for an object of class: 
TDictionary<Winapi.Windows.HWND,Vcl.Styles.Utils.SysStyleHook.TSysStyleHook>.TVa
lueCollection

The allocation number is: 683866

Current memory dump of 256 bytes starting at pointer address 7EE5FCE0:
F0 D0 7E 00 70 E3 F8 7E 00 00 00 00 0E 7B CB 77 E0 04 CA 00 E0 04 CA 00 00 00 
00 00 E1 FE E5 7E
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 89 6F 0A 00 45 6A 40 00 61 CF 
40 00 92 D0 40 00
6B 16 4E 00 EE 69 41 00 85 0D 4E 00 20 0D 4E 00 F0 10 4E 00 C7 89 40 00 6D 99 
4D 00 88 96 4D 00
A8 12 00 00 A8 12 00 00 F2 69 40 00 E6 D1 40 00 4C 17 4E 00 EE 69 41 00 85 0D 
4E 00 20 0D 4E 00
F0 10 4E 00 C7 89 40 00 6D 99 4D 00 88 96 4D 00 C9 4F 7C 00 10 00 00 00 00 00 
00 00 F7 F3 5A 85
EC 01 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 08 0C A5 7A E0 04 CA 00 00 00 
00 00 01 FD E5 7E
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 88 6F 0A 00 D6 69 40 00 DB 87 
40 00 FE 8F 40 00
37 74 5F 00 F2 69 40 00 F9 87 40 00 49 90 40 00 0A 74 5F 00 BE E2 5E 00 49 90 
40 00 65 B8 65 00
ð  Ð  ~  .  p  ã  ø  ~  .  .  .  .  .  {  Ë  w  à  .  Ê  .  à  .  Ê  . 
 .  .  .  .  á  þ  å  ~
.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  ‰  o  .  .  E  j  @  .  a  Ï 
 @  .  ’  Ð  @  .
k  .  N  .  î  i  A  .  …  .  N  .     .  N  .  ð  .  N  .  Ç  ‰  @  .  
m  ™  M  .  ˆ  –  M  .
¨  .  .  .  ¨  .  .  .  ò  i  @  .  æ  Ñ  @  .  L  .  N  .  î  i  A  .  
…  .  N  .     .  N  .
ð  .  N  .  Ç  ‰  @  .  m  ™  M  .  ˆ  –  M  .  É  O  |  .  .  .  .  
.  .  .  .  .  ÷  ó  Z  …
ì  .  Ê  .  à  .  Ê  .  à  .  Ê  .  à  .  Ê  .  .  .  ¥  z  à  .  Ê  
.  .  .  .  .  .  ý  å  ~
.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  ˆ  o  .  .  Ö  i  @  .  Û  
‡  @  .  þ  �  @  .
7  t  _  .  ò  i  @  .  ù  ‡  @  .  I  �  @  .  .  t  _  .  ¾  â  ^  .  
I  �  @  .  e  ¸  e  .

--------------------------------2014/2/13 
21:13:17--------------------------------
A memory block has been leaked. The size is: 68

This block was allocated by thread 0x12A8, 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]
408FFE [System.pas][System][@ClassCreate$qqrpvzc][16757]
7F2F76 
[System.Generics.Collections.pas][Vcl.Styles.Utils.SysControls][Generics.Collect
ions.%TObjectDictionary__2$p6HWND__p43Vcl.Styles.Utils.Sysstylehook.TSysStyleHoo
k%.$bctr$qqr87System.%Set$t59System.Generics.Collections.System_Generics_Collect
ions__22$iuc$0
4089C7 [System.pas][System][TObject.Free$qqrv][15524]
7E93F2 [KOLDetours.pas][KOLDetours][InterceptCreate$qqrpxvt1][1215]
C7BD9F 
40A0A8 [System.pas][System][InitUnits$qqrv][21918]
40A114 
[System.pas][System][@StartExe$qqrp23System.PackageInfoTablep17System.TLibModule
][22052]
41009F [SysInit.pas][SysInit][@InitExe$qqrpv][1201]
C7F621 

The block is currently used for an object of class: 
TObjectDictionary<Winapi.Windows.HWND,Vcl.Styles.Utils.SysStyleHook.TSysStyleHoo
k>

The allocation number is: 2850

Current memory dump of 256 bytes starting at pointer address 7EF8E370:
40 DD 7E 00 00 00 00 00 00 00 00 00 04 32 C8 00 00 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 00
00 00 00 00 00 00 00 00 00 00 00 00 E0 FC E5 7E 02 00 00 00 00 00 00 00 00 00 
00 00 40 BA 73 7C
E0 04 CA 00 E0 04 CA 00 00 00 00 00 61 E5 F8 7E 00 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 00
23 0B 00 00 D6 69 40 00 DB 87 40 00 FE 8F 40 00 66 0F 7F 00 B2 BD C7 00 A8 A0 
40 00 14 A1 40 00
9F 00 41 00 21 F6 C7 00 6A 33 F0 75 72 9F AF 77 A8 12 00 00 A8 12 00 00 F2 69 
40 00 F9 87 40 00
49 90 40 00 94 12 7F 00 C7 89 40 00 89 01 7F 00 3C A0 40 00 F2 A4 40 00 14 F8 
C7 00 6A 33 F0 75
72 9F AF 77 3C 00 00 00 D0 B9 7E 00 94 58 93 61 EC 01 CA 00 E0 04 CA 00 E0 04 
CA 00 E0 04 CA 00
E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 
CA 00 E0 04 CA 00
@  Ý  ~  .  .  .  .  .  .  .  .  .  .  2  È  .  .  .  .  .  .  .  .  .  .  .  
.  .  .  .  .  .
.  .  .  .  .  .  .  .  .  .  .  .  à  ü  å  ~  .  .  .  .  .  .  .  .  .  . 
 .  .  @  º  s  |
à  .  Ê  .  à  .  Ê  .  .  .  .  .  a  å  ø  ~  .  .  .  .  .  .  .  .  . 
 .  .  .  .  .  .  .
#  .  .  .  Ö  i  @  .  Û  ‡  @  .  þ  �  @  .  f  .  �  .  ²  ½  Ç  . 
 ¨     @  .  .  ¡  @  .
Ÿ  .  A  .  !  ö  Ç  .  j  3  ð  u  r  Ÿ  ¯  w  ¨  .  .  .  ¨  .  .  .  
ò  i  @  .  ù  ‡  @  .
I  �  @  .  ”  .  �  .  Ç  ‰  @  .  ‰  .  �  .  <     @  .  ò  ¤  @  
.  .  ø  Ç  .  j  3  ð  u
r  Ÿ  ¯  w  <  .  .  .  Ð  ¹  ~  .  ”  X  “  a  ì  .  Ê  .  à  .  Ê 
 .  à  .  Ê  .  à  .  Ê  .
à  .  Ê  .  à  .  Ê  .  à  .  Ê  .  à  .  Ê  .  à  .  Ê  .  à  .  Ê 
 .  à  .  Ê  .  à  .  Ê  .

--------------------------------2014/2/13 
21:13:17--------------------------------
A memory block has been leaked. The size is: 68

This block was allocated by thread 0x12A8, 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]
408FFE [System.pas][System][@ClassCreate$qqrpvzc][16757]
7F3816 
[System.Generics.Collections.pas][Vcl.Styles.Utils.SysControls][Generics.Collect
ions.%TDictionary__2$p6HWND__46Vcl.Styles.Utils.Syscontrols.TChildControlInfo%.$
bctr$qqri][1705]
C7BDC5 
40A0A8 [System.pas][System][InitUnits$qqrv][21918]
40A114 
[System.pas][System][@StartExe$qqrp23System.PackageInfoTablep17System.TLibModule
][22052]
41009F [SysInit.pas][SysInit][@InitExe$qqrpv][1201]
C7F621 
75F0336A [BaseThreadInitThunk]
77AF9F72 [Unknown function at RtlInitializeExceptionChain]

The block is currently used for an object of class: 
TObjectDictionary<Winapi.Windows.HWND,Vcl.Styles.Utils.SysControls.TChildControl
Info>

The allocation number is: 2852

Current memory dump of 256 bytes starting at pointer address 7EF8E510:
38 FD 7E 00 98 F5 AB 7D 02 00 00 00 04 32 C8 00 03 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 00
00 00 00 00 00 00 00 00 D0 ED 19 7E 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
00 00 B5 FA 92 8F
E0 04 CA 00 E0 04 CA 00 00 00 00 00 31 E6 F8 7E 00 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 00
C3 0B 00 00 D6 69 40 00 BF A6 40 00 57 BA 40 00 1C 64 93 00 AE 64 93 00 66 9E 
77 75 BA BE AF 77
67 7B B1 77 AF 2C AF 77 D3 3C AF 77 A4 3C AF 77 A8 12 00 00 A8 12 00 00 F2 69 
40 00 79 A7 40 00
59 C4 40 00 A1 C3 40 00 3F 8A 40 00 F2 87 40 00 49 90 40 00 BA 89 40 00 C7 89 
40 00 F9 C4 93 00
FC 67 93 00 3E 00 00 00 B0 04 02 00 19 AA 36 50 EC 01 CA 00 E0 04 CA 00 E0 04 
CA 00 E0 04 CA 00
E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 CA 00 E0 04 
CA 00 E0 04 CA 00
8  ý  ~  .  ˜  õ  «  }  .  .  .  .  .  2  È  .  .  .  .  .  .  .  .  .  .  
.  .  .  .  .  .  .
.  .  .  .  .  .  .  .  Ð  í  .  ~  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
.  .  µ  ú  ’  �
à  .  Ê  .  à  .  Ê  .  .  .  .  .  1  æ  ø  ~  .  .  .  .  .  .  .  .  . 
 .  .  .  .  .  .  .
à  .  .  .  Ö  i  @  .  ¿  ¦  @  .  W  º  @  .  .  d  “  .  ®  d  “  
.  f  ž  w  u  º  ¾  ¯  w
g  {  ±  w  ¯  ,  ¯  w  Ó  <  ¯  w  ¤  <  ¯  w  ¨  .  .  .  ¨  .  .  . 
 ò  i  @  .  y  §  @  .
Y  Ä  @  .  ¡  Ã  @  .  ?  Š  @  .  ò  ‡  @  .  I  �  @  .  º  ‰  @  
.  Ç  ‰  @  .  ù  Ä  “  .
ü  g  “  .  >  .  .  .  °  .  .  .  .  ª  6  P  ì  .  Ê  .  à  .  Ê  . 
 à  .  Ê  .  à  .  Ê  .
à  .  Ê  .  à  .  Ê  .  à  .  Ê  .  à  .  Ê  .  à  .  Ê  .  à  .  Ê 
 .  à  .  Ê  .  à  .  Ê  .

--------------------------------2014/2/13 
21:13:17--------------------------------
This application has leaked memory. The small block leaks are (excluding 
expected leaks registered by pointer):

5 - 20 bytes: 
TDictionary<Winapi.Windows.HWND,Vcl.Styles.Utils.SysStyleHook.TSysStyleHook>.TVa
lueCollection x 1, 
TDictionary<Winapi.Windows.HWND,Vcl.Styles.Utils.SysControls.TChildControlInfo>.
TKeyCollection x 1
21 - 36 bytes: EAccessViolation x 1
53 - 68 bytes: 
TObjectDictionary<Winapi.Windows.HWND,Vcl.Styles.Utils.SysControls.TChildControl
Info> x 1, 
TObjectDictionary<Winapi.Windows.HWND,Vcl.Styles.Utils.SysStyleHook.TSysStyleHoo
k> x 1
85 - 100 bytes: Unknown x 1
181 - 212 bytes: UnicodeString x 1

Current SVN, Delphi XE3 Pro
Completely based on your WMI tool and added to my own program

I have used your TFormStyleHookNC it worked great but if you add a TMainMenu 
the MainMenu will disappear if you disable the vcl style in NC areas. I used 
your code from your WMIDelphiCodeGenerator

What steps will reproduce the problem?
1. Theme inno setup installation
2. Run installation
3. app crash

What is the expected output? What do you see instead?
Installation done

What version of the product are you using? On what operating system?
Inno Skin 1.2.1.2 /Win7-Win8-Win8.1
Only tested with 1.2.1.2, i dont know where to get old .dll to test.

Please provide any additional information below.

If i run my inno install without theme it always run ok, but when theme it i 
get appcrash on kenelbase.dll.

My inno installation its a offline .NET Framework (3.5/4.5) and Visual C++ 
redist (2005 to 2013) installation only when needed, if windows only need any 
visual c++ installation could finish ok but framework have many files and 
installation stop on ramdom crash always.

If i try to install a component that show some type of window seems that always 
crash, i manage to run visual c++ installation succesfully running on silent 
but if visual c++ show a miniprogress window main inno installation finish 
suddenly (with appcrash or direcly process finish)

I found this way the easyest way to skin my inno setup projects but on my tests 
only works on simple installs that dont run components or have many files, 
seems a memory problem, hope u can fix it.

Thank you.

I will edit and complete this issue with capture of crash error and inno setup 
debug information.

What steps will reproduce the problem?
1. Compile any installer with Components Page.

What is the expected output? What do you see instead?
Description Text are supposed to updated instantaneously but it's not happening

What version of the product are you using? On what operating system?
1.0.0.8

Give the possibility to enable-disable the styling of the system controls at 
runtime

What steps will reproduce the problem?
1. Add TDateTimePicker and TMonthCalender to VCL form
2. Add all VCL-Styles-Units do the project like in demos, including 
Vcl.Styles.DateTimePickers.pas
3. Enabled theme

What is the expected output? What do you see instead?
TDateTimePicker/TMonthCalender are not themed, colors are still standard

What version of the product are you using? On what operating system?
VCL-styles units revision 176, Delphi XE4 Pro, Win7 32bit

Please provide any additional information below.
I cannot figure out how to apply Vcl.Styles.DateTimePickers.pas to the 
components!?

What steps will reproduce the problem?
1. Open the demo of the Vcl SysControls. 
2. Set the ImageIndex property of the TMenuItem "I1" of PopupMenu1 to -1.
3. Load a bitmap using the Bitmap property.
4. Start the Demo.

What is the expected output? What do you see instead?
The loaded bitmap will be displayed in front of the TMenuItem.

The place where the bitmap should appear is empty.

What version of the product are you using? On what operating system?
Win 7 64 Bit, Delphi XE2, VCL Styles utils rev 136 

Please provide any additional information below.

What steps will reproduce the problem?

1. Create a new VCL application.
2. Set any vcl-style, for example Sapphire Kamri.
3. Add TListBox, TPopupMenu and TImageList to the form.
4. Add a few icons in the ImageList1.
5. Set the properties:
 ListBox1.PopupMenu := PopupMenu1;
 PopupMenu1.Images := ImageList1.
6. Add a few items to the context menu.
7. Add the following lines to the Unit1:
 uses
   Vcl.ActnPopup;
 type
   TPopupMenu = class (Vcl.ActnPopup.TPopupActionBar);
8. Add the file Vcl.PlatformVclStylesActnCtrls to the project.
9. Run the application. Call the context menu. Everything appears normal. Close 
the application.
10. Change the design theme to the classic Windows.
11. Run the application. Call the context menu. Icons are displayed, and titles 
aren't displayed.

What version of the product are you using? On what operating system?
Delphi XE3, XE4.

Please provide any additional information below.
The problem is present at Windows Vista/7/8.
In Windows XP everything works normally.

If the Vcl.PlatformVclStylesActnCtrls module isn't used, everything works 
normally.

What steps will reproduce the problem?
1. Open the demo project ThemedSysControls.
2. Set the first item (I1) of the PopUpMenu1 to visible false.
3. Start the application.

What is the expected output?
The invisible items text and image should disappear.
What do you see instead?
The invisible items text and image is drawn.

What version of the product are you using? On what operating system?
Win 7 64 bit, Delphi XE2, VCL Styles Utils rev 166

Please provide any additional information below.
No matter the wrong text and image is drawn, the connected functionality behind 
the item is the correct one.

--------------------------------2014/1/18 
23:25:07--------------------------------
A memory block has been leaked. The size is: 36

This block was allocated by thread 0x1E80, 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]
8094EB 
[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]
8094EB 
[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]
8094EB 
[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
8094EB 
[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: 577772

Current memory dump of 256 bytes starting at pointer address 7DCB80C0:
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
26 F8 02 8C E0 14 CA 00 00 00 00 00 A1 81 CB 7D 00 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 00
BF 90 07 00 D6 69 40 00 DB 87 40 00 FE 8F 40 00 71 17 4C 00 55 04 B5 00 2F 7E 
49 00 2E 83 49 00
F9 63 49 00 1A 21 6D 00 AA 28 6D 00 06 FA 6C 00 80 1E 00 00 80 1E 00 00 F2 69 
40 00 F9 87 40 00
49 90 40 00 F4 11 4C 00 C7 89 40 00 1B 04 B5 00 C7 89 40 00 13 04 B5 00 C7 89 
40 00 7B 26 B4 00
C7 89 40 00 20 00 00 00 24 93 B3 00 75 12 9B 86 EC 11 CA 00 E0 14 CA 00 E0 14 
CA 00 E0 14 CA 00
E0 14 CA 00 E0 14 CA 00 E0 14 CA 00 E0 14 CA 00 8A ED 64 79 E0 14 CA 00 00 00 
00 00 51 82 CB 7D
00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 C0 90 07 00 D6 69 40 00 DB 87 
40 00 FE 8F 40 00
”  B  B  .  Ü  Ý  ÷  ~  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  
.  .  .  .  .  .  .
&  ø  .  Œ  à  .  Ê  .  .  .  .  .  ¡  �  Ë  }  .  .  .  .  .  .  .  .  
.  .  .  .  .  .  .  .
¿  �  .  .  Ö  i  @  .  Û  ‡  @  .  þ  �  @  .  q  .  L  .  U  .  µ  . 
 /  ~  I  .  .  ƒ  I  .
ù  c  I  .  .  !  m  .  ª  (  m  .  .  ú  l  .  €  .  .  .  €  .  .  .  
ò  i  @  .  ù  ‡  @  .
I  �  @  .  ô  .  L  .  Ç  ‰  @  .  .  .  µ  .  Ç  ‰  @  .  .  .  µ  
.  Ç  ‰  @  .  {  &  ´  .
Ç  ‰  @  .     .  .  .  $  “  ³  .  u  .  ›  †  ì  .  Ê  .  à  .  
Ê  .  à  .  Ê  .  à  .  Ê  .
à  .  Ê  .  à  .  Ê  .  à  .  Ê  .  à  .  Ê  .  Š  í  d  y  à  .  Ê 
 .  .  .  .  .  Q  ‚  Ë  }
.  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  À  �  .  .  Ö  i  @  .  Û  
‡  @  .  þ  �  @  .

What steps will reproduce the problem?
1. Choose VCL style that is NOT a "Windows" and run application.
2. Close the application.
3. Choose "Windows" style and run again.
4. 

What is the expected output? What do you see instead?
Expected: no exceptions during application start up.
Current: "Stuck Overflow" exception raised

What version of the product are you using? On what operating system?
Vcl.Style.Hooks.pas on Win7

Please provide any additional information below.
Probably it happens in InterceptDrawThemBackground function

I am using the TPlatformVclStylesStyle (great!) because I need to change the 
font size in TActionMainMenuBar items. I'm getting problems with the item 
height incrising the font size.

It seems that the item height is always the same even if the font size is 
changing. Item width instead seems correct. See image attached.

Is it possible to solve this issue?

Thanks!
Best regards,
Davide Angeli

First and foremost Love your work you made the bland installer have abit of 
life! 

What steps will reproduce the problem?
#####################################################################
!include "Sections.nsh"

;--------------------------------

Name "MessageBox"
OutFile "MessageBox.exe"
RequestExecutionLevel user


; Sections

Function .onInit

    InitPluginsDir
    File /oname=$PLUGINSDIR\Amakrits.vsf "C:\nsis\RubyGraphite.vsf"
    NSISVCLStyles::LoadVCLStyle $PLUGINSDIR\Amakrits.vsf

FunctionEnd

Section !Required
MessageBox MB_OK "Hi there!"
SectionEnd

#####################################################################

What is the expected output? What do you see instead?

Hopefully messagebox to be themed along with the rest of the installer

#####################################################################

What version of the product are you using? On what operating system?
Current Version 1.0.0.9

Please provide any additional information below.
This extends to all messagebox variants not just messagebox_ok. 
also if a fix is found can i please be notified to update my plugin!

What steps will reproduce the problem?
1.Drop a Tbutton
2.Set ImageMargin (example Left = 10 and aligned iaLeft)
3.Apply style fix

What is the expected output? What do you see instead?
I would like if the image moves away from the left border, but it stays in place


Please provide any additional information below.

Maybe it fixit (line 215):
ImageList_Draw(pbuttonImagelist.himl, LImageIndex, Canvas.Handle,
              DrawRect.Left + 3 + ImageMargins.Left, IY, ILD_NORMAL);

What steps will reproduce the problem?
I. Minimise button problem
  1. Compile example NSIS script (here: WelcomeFinish.nsi) with choosen skin (for example: Amakrits.vsf)
  2. Run installer, press minimise Button

II. Welcome Page (and other) components created with nsDialogs have the same 
font size/attributes etc... 

What is the expected output? What do you see instead?
I. NSIS installer crashes.
II. NSIS installer with VCL skins displays text with default font size, even if 
script sets it to another, for example bigger font (take a look at welcome page 
Title text)

What version of the product are you using? On what operating system?
NSIS 3.0a2, Windows 8.1, Polish

Please provide any additional information below.
I attached video that presents issues. Script is VCL Styles for NSIS an example 
script (I only added names of skins). First part shows problem with some skins 
and minimise button. Second part shows nsDialogs issues (like font size, 
cuttted text).

What steps will reproduce the problem?
1. Screen.MenuFont.Size := 17; //set on application startup
2. Open item of main menu 


What is the expected output? 
Menu text is shown with bigger font size (MenuBigFontOk.png)

What do you see instead?
Menu text is missing (MenuBigFont.png)


What version of the product are you using? On what operating system?
Windows 7, Delphi XE4


Please provide any additional information below.
System menu is displayed OK, with big font size (SystemMenuBigFont.png)

What steps will reproduce the problem?
1.Popup menu item is connected to an Action with this defintion:

      Category = 'Edit'
      Caption = '&Kopi'#235'ren'
      Hint = 'Kopi'#235'ren naar klembord'
      ShortCut = 16451


What is the expected output? What do you see instead?

Without styles menu is shown as in ShortCutOk image.

With styles menu item is shown incorrectly,
problem is probably connected to #235 character 

What version of the product are you using? On what operating system?

Delphi XE4, Windows 7 x64

What steps will reproduce the problem?
1. Open the demo of the Vcl SysControls.
2. Set the project properties to range checking.
3. Start the demo.

What is the expected output? What do you see instead?
The application starts normally. 
Instead it crashes due to range checking errors.

What version of the product are you using? On what operating system?
Win 7 64 bit, Delphi XE2, Vcl Styles Utils rev134 

Please provide any additional information below.
We have i project that is using the vcl styles. The range checking is turned 
on. Addionally to the above described problem we spotted another one when using 
the newly menues. Opening a menu leads to an range checking error inside the 
TSysPopupStyleHook.MNSELECTITEM function. The values of the received messages 
are bigger than the range number of integer.

VCL Styles for Inno Setup: 
Window caption/border not displayed in "Classic" (aka win'98) Windows theme.

Windows XP SP2, Inno Setup 5.5.4 U

What steps will reproduce the problem?
1. Create a SelectFileDialog with nsDialogs

ScreenShot: http://puu.sh/6Oldr.png

What is the expected output? What do you see instead?


What version of the product are you using? On what operating system?
1.0.0.8/Windows 8

Please provide any additional information below.

What steps will reproduce the problem?

1. Create a listbox using nsDialogs
2. Select MetroBlack/Carbon skin

If you try to SetClrs, it will not take effect. 

What is the expected output? What do you see instead?
ListBox must get the selected skin's background but I see a dark background.

What version of the product are you using? On what operating system?
1.0.0.9

What steps will reproduce the problem?
1. Executing Demo1
2. Debug/ Run
3. File not found: 'C:\Program Files (x86)\Embarcadero\RAD 
Studio\10.0\source\vcl\StyleUtils.inc'

What is the expected output? What do you see instead?
I expect a complied version of Demo1

What version of the product are you using? On what operating system?
Version: XE3; Win7(64)

Please provide any additional information below.
I couldn't find 'StyleUtils.inc' on my Harddisk

I compiled your demo application "Vcl SysControls Demo", latest revision 76. In 
none of the non-Windows themes the checkboxes are painted in the TPopupMenu, if 
property "Checked" is set to true for the menu item.

I added a TPopupActionBar as a comparison (see enhanced demo attached), which 
draws the Checkboxes correctly.

What steps will reproduce the problem?
1. Open the demo of the Vcl SysControls.
2. Create an image list of any size. 
3. Load an image into this image list and assign it to an menu item.
4. Start the Demo.

What is the expected output? What do you see instead?
The MenuItems text position is adjusted to the size of the image.

The position isn't adjusted.

What version of the product are you using? On what operating system?
Win 7 64 bit, Delphiy XE2, VCL Styles Utils rev136

Please provide any additional information below.
MenuItem I1 (the first one) is used. The image has the size of 36x36 in the 
screenshots.

:76f8c41f KERNELBASE.RaiseException + 0x58
:0069FA5D Jclhookexcept::HookedRaiseException(ExceptionCode=????, 
ExceptionFlags=????, NumberOfArguments=????, Arguments=:0018F8A8)
Vcl.Styles.Hooks.InterceptGetSysColor(1)
Vcl.Styles.Hooks.InterceptGetSysColor(68745424)
Vcl.Graphics.ColorToRGB(???)
Vcl.GraphUtil.ColorAdjustLuma(-16777186,250477278,???)
:00524C53 Vcl::Graphics::ColorToRGB(Color=????)
Vcl.Controls.TWinControl.WndProc((45069, 0, 0, 0, 0, 0, (), 0, 0, (), 0, 0, ()))
Vcl.Controls.TControl.Perform(???,???,0)
Vcl.Controls.TControl.SetColor(???)
System.TypInfo.SetOrdProp(???,???,???)
System.Classes.SetIntIdent($7E08CE80,$A79B8B,???)
System.Classes.TReader.ReadPropValue($7E08CE80,$A79B8B)
System.Classes.TReader.ReadProperty($7E08CE80)
System.Classes.TReader.ReadDataInner($7E08CE80)
System.Classes.TReader.ReadData($7E08CE80)
System.Classes.TComponent.ReadState(???)
Vcl.Controls.TControl.ReadState($7E07C6B0)
Vcl.Controls.TWinControl.ReadState($7E07C6B0)
System.Classes.TReader.ReadComponent(nil)
System.Classes.TReader.ReadDataInner(???)
System.Classes.TReader.ReadData($7DF7E210)
System.Classes.TComponent.ReadState(???)
Vcl.Controls.TControl.ReadState($7E07C6B0)
Vcl.Controls.TWinControl.ReadState($7E07C6B0)
System.Classes.TReader.ReadComponent(nil)
System.Classes.TReader.ReadDataInner(???)
System.Classes.TReader.ReadData($7DF8A720)
System.Classes.TComponent.ReadState(???)
Vcl.Controls.TControl.ReadState($7E07C6B0)
Vcl.Controls.TWinControl.ReadState($7E07C6B0)
Vcl.Forms.TCustomForm.ReadState($7E07C6B0)
System.Classes.TReader.ReadRootComponent($7DF8A720)
System.Classes.TStream.ReadComponent($7DF8A720)
System.Classes.InternalReadComponentRes(???,???,$7DF8A720)
System.Classes.InitComponent(Tf_SKraftMain)
System.Classes.InitInheritedComponent($7DF8A720,TForm)
Vcl.Forms.TCustomForm.Create(???)
fKHJBaseForm.TKHJBaseForm.Create(???)
:009FB643 Fkhjbaseform::TKHJBaseForm::TKHJBaseForm(Self=????, AOwner=????, ...)
SKraft.SKraft
:758b336a kernel32.BaseThreadInitThunk + 0x12
:77a09f72 ntdll.RtlInitializeExceptionChain + 0x63
:77a09f45 ntdll.RtlInitializeExceptionChain + 0x36

What steps will reproduce the problem?
1.Go to this page
http://code.google.com/p/vcl-styles-utils/wiki/VCLStylesNSIS 
2.Navigate to bottom 
3.Download the installer of the plugin from here. After clicking to donwload 
installer file is downloaded 
4. However not able to do the installation

What is the expected output? What do you see instead?
Installation should be successful. Instead I see error - 

Installation data was not found 

What version of the product are you using? On what operating system?
Windows 

Please provide any additional information below.
Please see screenshot

What steps will reproduce the problem?
1. SendMessage to a Control/Label
2.
3.

What is the expected output? What do you see instead?
It should redraw like it does natively without skinning.

What version of the product are you using? On what operating system?
1.0.0.8/Windows8

Please provide any additional information below.

This issue is related to issue #17.
The property Bitmap is only working if an image list is assigned to the 
corresponding TPopupMenu.

What version of the product are you using? On what operating system?
Win 7 64 bit, Delphi XE2, VCL Styles Utils rev 148

What steps will reproduce the problem?
1. Register the TButtonStyleHookFix in the Demo1 project.
2. Start the project.
3. Try to tab (using the tab key) through the form.

What is the expected output?
If i change the focus to a TButton by using the tab key, the TButton will be 
highlighted.
What do you see instead?
The TButton isn't highlighted.

What version of the product are you using? On what operating system?
Win 7 64 bit, Delphi XE2, VCL Styles Utils rev 154

Please provide any additional information below.
I attached a modified version of Demo1.

What steps will reproduce the problem?
1. I use a commercial component TJamShellBreadCrumbBar in an app with styles 
activated. This component shows a path, where every path level could be clicked 
what invokes a popup menu showing all path children, like the file explorer 
under Windows 7.
2. I use the vcl-style-utils to apply styles on the popup menu components and 
descendants.

What is the expected output? What do you see instead?
1. When a style other than the default "Windows" style is activated, all popup 
menus of the bar show only the same entry, mostly in glibberish unicodew 
characters.
2. Switching to the "Windows" standard style, everything is OK.
3. Deactivated the vcl-style-utils libraries, everything is OK.
-> It seems that the component itself works correctly with styles, but the 
popupmenu is not styled, what is the normal behaviour. Only loading the unit 
Vcl.Styles.Utils.Menus.pas enforces the unicode issue.

What version of the product are you using? On what operating system?
Delhi XE4 UPD1, Windows 7 32bit/64bit, vc-styles-utils R181
Screenshots are attached.

What steps will reproduce the problem?
1. Add VCL code to language.iss from Inno setup examples 
2.
3.

What is the expected output?
-All pages styled
What do you see instead?
-All pages styled except first: choosing setup language.

What version of the product are you using? On what operating system?
Windows 7 x64

Please provide any additional information below.
Any workaround will be good.

What steps will reproduce the problem?
1. Recompiled test app with R196 (same app as sent for issue 33)

What is the expected output? What do you see instead?
AccessViolation exception when ending app

What version of the product are you using? On what operating system?
vcl-styles-utils R196
Delphi XE4 UPD1, Win7 32bit

Please provide any additional information below.
App compiled with R194 works fine. Bugreport catured with madExcept attached.