GetOfficeUIThemeValue reads "UI Theme" as String

VCL TMS VCL UI Pack
1
which is wrong, because it is a DWORD.

This causes Applications with AutoThemeAdapt to crash at startup

Stack-Trace:
main thread ($1854), inner exception level 1:
>> ERegistryException, Ungültiger Datentyp für 'UI Theme'
0049ba2f +023 TIMTimer.exe Registry             ReadError
0049c47a +062 TIMTimer.exe Registry             TRegistry.ReadString
007c2cfb +05f TIMTimer.exe AdvStyleIF   358  +8 GetOfficeUIThemeValue
007c2db8 +060 TIMTimer.exe AdvStyleIF   393 +19 GetOfficeTheme
00916d12 +00e TIMTimer.exe AdvAppStyler 836  +4 TAdvFormStyler.ThemeChanged
009167e9 +005 TIMTimer.exe AdvAppStyler 616  +1 TAdvFormStyler.SetAutoThemeAdapt
00485aaa +03a TIMTimer.exe TypInfo              SetOrdProp

2

We have internally already corrected this and will release an update asap.

3

thanks. For the moment I corrected it myself