Прогресс бар

[BDA]

Значит ты оставил еще 1 заполнение после меток - у меня после перестановки метки остаются.
Было

// белые метки
  pen := TGPPen.Create(MakeColor(255, 200, 200, 200), 2);
  graphicsGDIPlus.TranslateTransform(r, r);
  for i := 0 to c - 1 do
  begin
    graphicsGDIPlus.RotateTransform(360 / c);
    graphicsGDIPlus.DrawLine(pen, 0, 0, r1, 0);
    end;
   graphicsGDIPlus.ResetTransform;
// заполнение
  GradientBrush.setlinearcolors(MakeColor(255, 80, 200, 250),MakeColor(255, 20, 100, 200));
  //graphicsGDIPlus.FillPie(GradientBrush, r - r1, r - r1, 2 * r1, 2 * r1, 90,  360 * ScrollBar1.Position / 100); //полный круг
  graphicsGDIPlus.FillPie(GradientBrush, r - r1, r - r1, 2 * r1, 2 * r1, 126, 288 * TrackBar1.Position / 100);// не полный круг

Должно стать

  // заполнение
  GradientBrush.setlinearcolors(MakeColor(255, 80, 200, 250),MakeColor(255, 20, 100, 200));
  //graphicsGDIPlus.FillPie(GradientBrush, r - r1, r - r1, 2 * r1, 2 * r1, 90,  360 * ScrollBar1.Position / 100); //полный круг
  graphicsGDIPlus.FillPie(GradientBrush, r - r1, r - r1, 2 * r1, 2 * r1, 126, 288 * TrackBar1.Position / 100);// не полный круг
// белые метки
  pen := TGPPen.Create(MakeColor(255, 200, 200, 200), 2);
  graphicsGDIPlus.TranslateTransform(r, r);
  for i := 0 to c - 1 do
  begin
    graphicsGDIPlus.RotateTransform(360 / c);
    graphicsGDIPlus.DrawLine(pen, 0, 0, r1, 0);
    end;
   graphicsGDIPlus.ResetTransform;

[Gudzik11]

точно спасибо .
Ещё такой вопрос можно ли сделать так чтоб заполнение было полу прозрачным чтоб было видно сквозь него нижнюю текстуру ?

[BDA]

Пожалуйста.

Поиграйся со строчкой:

GradientBrush.setlinearcolors(MakeColor(255, 80, 200, 250),MakeColor(255, 20, 100, 200));

Первое число в MakeColor это прозрачность.

[Gudzik11]

а цвет полосы где задаётся?

[BDA]

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

[Gudzik11]

Вот не пойму как сделать подскажите

Создал 2 форма на одной кинул TrackBar на 2 Image
если пищу весь код в FormCreate то всё работает но полоса не движется
если пишу в FormPaint то всё движется но форма сильно блымает
если пишу в 1 форме TrackBar1Change то выдаёт ошибку
в 153 строке

 Font :=TGPFont.Create(FontFamily, t, FontStyleBold, UnitWorld);

ошибка

First chance exception at $75CF812F. Exception class EAccessViolation with message 'Access violation at address 004E2398 in module 'MyVolum.exe'. Read of address 00000388'. Process MyVolum.exe (5852)

чё делать?

[BDA]

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

[Gudzik11]

doublebuffered перестаёт крутиться.

[Gudzik11]

то есть при двойной буферизации блымать форма перестаёт но и двигаться полоса тоже перестаёт.

[Gudzik11]

ой я тебе не тот проект кинул