search

DelphinSoftware / vcl-styles-utils

Automatically exported from code.google.com/p/vcl-styles-utils
0 stars 0 forks source link

Bug in Vcl.Styles.Hooks ? #118

Open GoogleCodeExporter opened 9 years ago

GoogleCodeExporter commented 9 years ago 
I think in Vcl.Styles.Hooks:

function InterceptDrawEdge(hDC: hDC; var qrc: TRect; edge: UINT; grfFlags: 
UINT): BOOL; stdcall;

is missing an "not TSysStyleManager.Enabled".

The current code in Line 77 is:

CanDraw := (not StyleServices.IsSystemStyle) or (TSysStyleManager.Enabled); 

My suggestion is:
 CanDraw := (not StyleServices.IsSystemStyle) or (not TSysStyleManager.Enabled);

Original issue reported on code.google.com by sven.ter...@d-velop.de on 10 Apr 2015 at 2:41