Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Как поменять цвет ?

Автор: ShuVaS 23.1.2005, 19:54

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

Автор: Ripper 23.1.2005, 20:51

я кинул трекбар на форму и он у меня тоже синий. Кидать тока надо после того как ты форму закрасил. Но цвет ползунка ну полоска та белая =( Однако её можно сделать тонкой линией:
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

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

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

Код


trackbar1.Brush.Color:=clyellow;