Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

прогрессбар [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


Наверх

Титульная страница Поиск, карта сайта Написать письмо