Uses Winapi.CommCtrl,
Winapi.UxTheme,
// ergänzen
type
TForm1 =
class(TForm)
ProgressBar1: TProgressBar;
ProgressBar2: TProgressBar;
TrackBar1: TTrackBar;
procedure FormShow(Sender: TObject);
procedure TrackBar1Change(Sender: TObject);
private { Private-Deklarationen }
public { Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
begin
Winapi.UxTheme.SetwindowTheme(ProgressBar1.Handle, '
', '
');
// Setzen der Hintergrundfarbe
SendMessage(ProgressBar1.Handle, PBM_SETBKCOLOR, 0, clRed);
// Setzen der Balkenfarbe
SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clNavy);
Winapi.UxTheme.SetwindowTheme(ProgressBar2.Handle, '
', '
');
// Setzen der Hintergrundfarbe
SendMessage(ProgressBar2.Handle, PBM_SETBKCOLOR, 0, clNavy);
// Setzen der Balkenfarbe
SendMessage(ProgressBar2.Handle, PBM_SETBARCOLOR, 0, clRed);
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
ProgressBar1.Position:= Trackbar1.Position;
ProgressBar2.Position:= Trackbar1.Position;
end;