Ich versuche eine ProgressBar als VuMeter zu realisieren .
Ich hab zwar eine passende LEDMeter Kompo von
picsoft nur hab ich da problem mit der richtigen anzeige des effektes.
Ich versuche also bei einer Progressbar diesen drei Farben Effekt zu bekommen.
Ich möchte das er von Position zu position Farben ändert.
Delphi-Quellcode:
for a:= 0 to 20000 do
if Form1.ProgressBar1.Position =a then SendMessage(Form1.ProgressBar1.Handle, BAR_CONST, 0, clLime);
for b:= 20000 to 28000 do
if Form1.ProgressBar1.Position =b then SendMessage(Form1.ProgressBar1.Handle, BAR_CONST, 0, clYellow);
for c:= 28000 to 32768 do
if Form1.ProgressBar1.Position =c then SendMessage(Form1.ProgressBar1.Handle, BAR_CONST, 0, clRed);
So ändert er zwar die Farbe ab der gewünschten Position, nur nicht im drei farben stil sondern komplett ab position die ganze ProgressBar.
Ich wollte es mal mit ner Progressbar probieren weil ich das Problem mit dieser obengenannter Kompo schonmal
hier erwähnt hatte.
Kennt jemand ne passende Lösung oder vielleicht ne Kompo die mit diesen 32768 klar kommt?