Auf nen Button klick (bis jetzt ist das noch so*) soll die Farbe zweier Progress Bars geändert werden.
Aber irgendwie geht das nicht. Oder gibts da noch vllt ne andere Möglichkeit?
Bis jetzt hab ich folgendes:
Delphi-Quellcode:
uses CommCtrl;
procedure TfrmEinstellungen.btnPGBFarbeClick(Sender: TObject);
begin
frmMain.pbLeft.Perform(PBM_SETBARCOLOR, -1, clblue);
frmMain.pbRight.Perform(PBM_SETBARCOLOR, -1, clblue);
end;
Andere Farben gehen auch nicht
Delphi-Quellcode:
clgreen
clorange
clred
clgreen
clblack
---------------------------
*soll später noch durch ne ComboBox bzw durch ne PaintBox geändert werden