Прогресс бар

[Gudzik11]

Ну что не смотрел что можно сделать?

[BDA]

Посмотрел. Что-то, похоже, вызывает постоянную перерисовку. Я не смог понять что.

[Gudzik11]

Если ставлю на каждую форму по TrackBar

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  Form2.TrackBar1.Position:=TrackBar1.Position;
end;

то всё работает

[BDA]

Хаха, оказалось, что во время поиска ошибки в прошлый раз, я видел уже скомпилированную программу, а мои исправления не показывались (скомпилированный файл был в другой папке).

Эту ошибку я заметил раньше, но при исправлении не увидел изменений.
В методе OnPaint не нужно вызывать repaint, т.к. это вызывает этот же метод снова.
Лучше рисовать на канве формы.

[Gudzik11]

Во блин а я голову два дня ломаю .
Вот ещё косяк нашёл когда таскаю за TrackBar всё рисуется нормально а если изменять в винде громкость то ползунок TrackBar движется а сам круг не заполняется .
Не знаешь в чём дело?

[Gudzik11]

Всё разобрался.

Спасибо!

[chertovich]

BDA, как я понял, вы используете сторонние загловочные файлы для доступа к GDI+.
В XE, можно использовать стандартный класс TDirect2DCanvas для тех же функций.

[Gudzik11]

Скажи а где ты говорил цвет полосы менять

В этой же строке.
MakeColor(transparency, red, green, blue)

так я её и не нашёл может напишешь как изменить к примеру на зелёный

[BDA]

Если смотреть последний исходник (который выложил я), то 70 строчка:

  // заполнение
  GradientBrush.setlinearcolors(MakeColor(255, 80, 200, 250),
    MakeColor(255, 20, 100, 200));

Чтобы был зеленый (не проверял):

  // заполнение
  GradientBrush.setlinearcolors(MakeColor(255, 0, 255, 0),
    MakeColor(255, 0, 200, 0));

chertovich, учту. Правда, у меня сомнения, что GDI+ и Direct2D - одно и то же (но я в этом вопросе новичек; этот gauge - первое, что нарисовал с помощью GDI+).

[Gudzik11]

А не знаете как настроить Delphi что бы pas , dpr сохранялись к примеру в папку proga а exe и те файлы которые нужны для его работы в proga/bin