Hallo,
ich versuche schon seit gestern die ProgressBar zu färben. Habe alles ausprobiert was google her geben konnte, aber nix klappt. Hier einige Beispiele:
Delphi-Quellcode:
const WM_USER = $0400;
CCM_FIRST = $2000;
PBM_SETBARCOLOR = WM_USER + 9;
PBM_SETBKCOLOR = CCM_FIRST + 1;
...
ProgressBar2.Brush.Color:= clRed;
// Set Background colour
//ProgressBar2.Perform(PBM_SETBARCOLOR, 0, clRed);
//ProgressBar2.Position := 50;
SendMessage(ProgressBar2.Handle, PBM_SETBARCOLOR, 0, clRed);
//SendMessage(ProgressBar2.Handle, PBM_SETBARCOLOR, 0 , RGB(200, 200, 155));
Progressbar2.Repaint;
//ProgressBar2.Parent.Color:=clred;
//ProgressBar2.Color:=clred;
//SetWindowTheme(ProgressBar2.Handle, '', '');
Bin für jede Hilfe dankbar!