VPF::Как поменять цвет ? - Форум программистов

ShuVaS

Дата 23.1.2005, 19:54 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 79
Регистрация: 26.12.2004
Где: Севастополь

Репутация: нет
Всего: нет

Короче создал форму закрасил ее синим цветом ,кинул на нее трекбар - вся форма синияя а кусочек трекбара бежегого цвета - как мне его закрасить и сделать желтым к примеру ? И как поменять цвета фообще всего трекбара - ползунка ...

Ripper

Дата 23.1.2005, 20:51 (ссылка)

(нет голосов)

Загрузка ...

Lonely soul...

Профиль
Группа: Участник
Сообщений: 920
Регистрация: 30.6.2004
Где: г. Москва

Репутация: нет
Всего: 23

я кинул трекбар на форму и он у меня тоже синий. Кидать тока надо после того как ты форму закрасил. Но цвет ползунка ну полоска та белая =( Однако её можно сделать тонкой линией:
DRKB:

Код



uses CommCtrl, ComCtrls; 

type 
  TMyTrackBar = class(TTrackBar) 
    procedure CreateParams(var Params: TCreateParams); override; 
  end; 

procedure TMyTrackBar.CreateParams(var Params: TCreateParams); 
begin 
  inherited; 
  Params.Style := Params.Style and not TBS_ENABLESELRANGE; 
end; 

var 
  MyTrackbar: TMyTrackbar; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  MyTrackBar := TMyTrackbar.Create(Form1); 
  MyTrackbar.Parent := Form1; 
  MyTrackbar.Left := 100; 
  MyTrackbar.Top := 100; 
  MyTrackbar.Width := 150; 
  MyTrackbar.Height := 45; 
  MyTrackBar.Visible := true; 
end;

--------------------

"Он знает: надо смеяться над тем, что тебя мучит, иначе не сохранишь равновесия, иначе мир сведет тебя с ума" - Над кукушкиным гнездом

Zero

Дата 23.1.2005, 21:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Цитата(ShuVaS @ 23.1.2005, 19:54)

вся форма синияя а кусочек трекбара бежегого цвета - как мне его закрасить и сделать желтым к примеру ?

Код


trackbar1.Brush.Color:=clyellow;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »