I need to use the progress bar with pbstMarquee style, I read this question and the accepted answer works fine, but now I need to draw my own progress bar
How can I use the built-in progress bar when vcl styles are enabled?
Just assign the TStyleHookdefault style binding to TProgressBar, and this way the progress bar will draw using the look of Windows.
TStyleHook
TProgressBar
TStyleManager.Engine.RegisterStyleHook(TProgressBar, TStyleHook);
Delphi: Form1.ProgressBar1.StyleElements := [seClient, seBorder, seFont];
Form1.ProgressBar1.StyleElements := [seClient, seBorder, seFont];
C ++: Form1->ProgressBar1->StyleElements = TStyleElements();
Form1->ProgressBar1->StyleElements = TStyleElements();