[Мяфк]

Здравствуйте. Использую Delphi 2010. Решил сделать прогрессбар. Тут проблемка, мне надо что бы он заполнялся квадратиками, а не сплошной линией. Почитав статью попробовал поколдавать с опцией Smooth. Но ничего не вышло, отличий нет. Потом решил скачать этот исходник http://www.delphisources.ru/pages/so...-florenth.html Тут на картинке явно видно, что прогрессбар квадратиками. Но у меня так же сплошной. И тут вопрос: В Delphi 2010 отключили отображение прогресс бара квадратиками, или я туплю?

[NumLock]

включите классическую схему.

[Мяфк]

А как это сделать?

[Страдалецъ]

Сообщение от NumLock

включите классическую схему.

За внешний вид прогрессбара отвечает не дельфи, а текущая тема окошек. Если у вас стоит семерка или виста, текущей темой является обычно аэро.

[NumLock]

Сообщение от Мяфк

А как это сделать?

удалить манифест из ресурсов.

[HunteRus]

Можно прописать свой прогрессбар и рисовать его:

1) Создаем image размера каким мы хотим сделать прогрессбар и называем как-нибудь например ProgBar1.
2) Заводим глобальные переменные:

Код:

var minProgBar1, maxProgBar1, posProgBar1;

или создаем тип TProgBar:

Код:

type TProgBar =
record
  min, max, pos: integer;
end;

...

var TProgBar1: TProgBar;

3) Обрабатываем событие ProgBar1Move по таймеру или при изменении.

Код:

procedure ProgBar1Move;
var BM: TBitMap;
begin
  BM := TBitMap.Create;
  BM.Height := 20;  // Высота бара
  BM.Width := 100; // Ширина бара

  ...
  
  //Рисуем квадратики канвасом на BitMap'е пример: BM.Canvas.Rectangle(x1, y1, x2, y2); можно фором а можно и не квадратики а сложные фигуры ;) 

  ...

  ProgBar1.Picture.Assign(BM);
end;