How i can use the native progressbar when the vcl styles are enabled?

delphi, delphi-xe2, vcl-styles

Solution

Just assign the default vcl style hook `TStyleHook` to the `TProgressBar` component and in that way the progress bar will be draw with the Windows look and feel.

 TStyleManager.Engine.RegisterStyleHook(TProgressBar, TStyleHook);

Problem

I need use a progress bar with the pbstMarquee style, I read this question and the accepted answer works fine, but now i need draw the native progress bar How i can use the native progressbar when the vcl styles are enabled?

Original source

Related problems