Is there a way to do effectively the same thing in a cross platform manner?
Owner draw with a themed progressbar.
Excellent, but... it's look not same, as progress bar (XP theme and no animation).So, let's try to adopt ProgressBar. Clear all Anchors for it and do that:
Ooo, so close. I like the idea, but it causes problems here. But, this works:
Ooo, so close. I like the idea, but it causes problems here. But, this works:Code: Pascal [Select]procedure TForm1.FormResize(Sender: TObject);begin with StatusBar1 do begin ProgressBar1.SetBounds( Panels.Width + Panels.Width, Top + 4, Panels.Width - 3, Height - 6); end;end; No need to change progressbar parent if its on top. This places it in panel.