фон TProgressBar

← →
Цукор5 (2008-09-19 12:34) [0]

При классической теме TProgressBar имеет серый фон. При других (WinXP) фон становится белым.
Как заставить TProgressBar принимать фон формы ???

TProgressBar не имеет собственного цвета, а использует ParentColor для заливки внутренней области.
Положил его на TPanel, выставил ParentColor=True , но что-то эффект тот же(белый).

Прошу помощи !
Заранее спасибо

← →
Цукор5 (2008-09-19 12:52) [1]

type TProgressBar = class(ComCtrls.TProgressBar) public property Color; end; procedure TForm1.Button1Click(Sender: TObject); begin TProgressBar(ProgressBar1).color:=clRed; ProgressBar1.Position:=42; end;

Такой "трюк" работает в разных темах. Но при использовании TXPManifest эффект тот же. Белый фон.
Какие будут мысли ???

← →
{RASkov} © (2008-09-19 12:55) [2]

> [1] Цукор5 (19.09.08 12:52)
> Но при использовании TXPManifest эффект тот же

Потому что при использовании XPMan, некоторые контролы рисуются уже в другом месте и по своему, т.е. с учетом того самого манифеста. Он(манифест) для этого и придуман. Иначе уберай его и рисуй сам как хочешь...

ParentBackground

фон TProgressBar Найти похожие ветки