Помогите покрасить ProgressBar...

[McLion]

Всем привет,

помогите покрасить ProgressBar. Что только не делаю, не красится и все. Вот что я делаю...

Код: Выделить всё

uses
  CommCtrl;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Set the Background color to red
  Progressbar1.Brush.Color := clRed;
  // Set bar color to red
  SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clRed);
end;


[Лекс Айрин]

добавь после этого

Код: Выделить всё

Progressbar1.Repaint;

Добавлено спустя 1 минуту 50 секунд:
у меня красится и без SendMessage.

[McLion]

Хм... не красит, хоть убей! У тебя какая версия Lazarus? У меня 1.4

[Лекс Айрин]

McLion, у меня снапшот (1.5) в предыдущей версии тоже было все нармально (1.3) а не... опять косяк. Надо попробовать форму передернуть.

Добавлено спустя 14 минут 6 секунд:
Все решил вопрос. Замените Repaint на SetFocus.

[alex208210]

штатный прогрессбар примитивен и не функционален, в результате такие действия как выбор цвета вызывают проблемы. Используйте tbgraprogressbar или делайте свой. Я сделал свой так как использую его на wince, а готовые долго прорисовываются.

Canvas.Pen.Color
Canvas.Brush.Color
Canvas.Rectangle

[Лекс Айрин]

Каюсь, только что заметил, что у меня TrackBar... но, думается, решение должно быть однотипным.

[Ism]

Возможно это поможет
http://wiki.lazarus.freepascal.org/BGRA ... rogressBar

Кроссплатформенно в отличие от вашего варианта

[McLion]

Уже нашел как, надо тему выключать...

Код: Выделить всё

uses CommCtrl;

const
  PBM_SETBARCOLOR = WM_USER + 9;   

  UxTheme.SetWindowTheme(ProgressBar.Handle, nil, '');
  ProgressBar.Brush.Color:= clRed;
  SendMessage(ProgressBar.Handle, PBM_SETBARCOLOR, 0, clRed);