Registriert seit: 30. Sep 2006
Ort: Gundelfingen
1.109 Beiträge
Delphi 2007 Professional
|
Re: ProgressBar Farbe lässt sich nicht ändern
15. Dez 2007, 18:32
![](styles/elise/misc/quote_24x24.png)
Zitat von BullsEye:
Delphi-Quellcode:
uses uxTheme, commctrl;
procedure TfrmEinstellungen.btnFarbeClick(Sender: TObject);
begin
if uxTheme.IsThemeActive then
uxTheme.SetWindowTheme(frmMain.pbLeft.Handle, '', '');
uxTheme.SetWindowTheme(frmMain.pbRight.Handle, '', '');
frmMain.pbLeft.Brush.color := clTeal;
SendMessage(frmMain.pbLeft.Handle, PBM_SETBARCOLOR, 0, clblue);
frmMain.pbRight.Brush.color := clTeal;
SendMessage(frmMain.pbRight.Handle, PBM_SETBARCOLOR, 0, clblue);
end;
So gehts!!
Danke dir bitsetter!!!
fehlt da nicht ein begin..end?
edit: lol...genau der gleiche wortlaut xD
Dominik Wer anderen eine Grube gräbt, hat ein Gruben-Grab-Gerät!
|
|
Zitat
|