![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
прогрессбар [D7, 2003]
prMan © (2007-06-27 17:52:00)можно ли изменять цвет заполнителя TProgressbar и как? если нет, то скажите где делфи его хранит. Спасибо!
Sergey Masloff (2007-07-01 21:41:00) [1]Anatoly Podgoretsky © (27.06.07 20:01) [6]
>Я огорчусь, если увижу у стандатного TProgressbar нестандартный цвет, >который я настраивал или использовал соответствующую тему.
А уж если для этого используется еще и компонент специальный...
Zagaevskiy (2007-07-01 20:29:00) [2]Лучше всего TGauge
Anatoly Podgoretsky (2007-06-27 20:01:00) [3]> prMan (27.06.2007 17:52:00) [0]
Я огорчусь, если увижу у стандатного TProgressbar нестандартный цвет, который я настраивал или использовал соответствующую тему.
KilkennyCat (2007-06-27 19:31:00) [4]И есть сомнения, что это будет корректно работать с темами в XP....
KilkennyCat (2007-06-27 19:28:00) [5]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls;
type
TProgressBar = class(ComCtrls.TProgressBar)
public
property Color;
end;
type
TForm1 = class(TForm)
ProgressBar1: TProgressBar;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
ProgressBar1.color:= clred; // фон
SendMessage(ProgressBar1.Handle, WM_USER+9, 0, clGreen); // индикатор
end;
end.
{RASkov} (2007-06-27 19:15:00) [6]> Может он и в Д7 есть?
А куда без него... Есть :)
> [0] prMan (27.06.07 17:52)
PostMessage(ProgressBar.Handle, $0409, 0, clRed);
Германн (2007-06-27 18:52:00) [7]В Д6 ещё был TGauge на вкладке Samples. У него оба цвета можно поменять. Может он и в Д7 есть?
ssa (2007-06-27 18:16:00) [8]скачай сторонний компонент
http://www.torry.net/quicksearchd.php?String=progress&Title=Yes