|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Progress bar и delphi 2010
Здравствуйте. Использую Delphi 2010. Решил сделать прогрессбар. Тут проблемка, мне надо что бы он заполнялся квадратиками, а не сплошной линией. Почитав статью попробовал поколдавать с опцией Smooth. Но ничего не вышло, отличий нет. Потом решил скачать этот исходник http://www.delphisources.ru/pages/so...-florenth.html Тут на картинке явно видно, что прогрессбар квадратиками. Но у меня так же сплошной. И тут вопрос: В Delphi 2010 отключили отображение прогресс бара квадратиками, или я туплю?
|
#2
|
||||
|
||||
включите классическую схему.
Пишу программы за еду. __________________ |
#3
|
|||
|
|||
А как это сделать?
|
#4
|
||||
|
||||
Цитата:
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#5
|
||||
|
||||
Цитата:
Пишу программы за еду. __________________ |
#6
|
|||
|
|||
Можно прописать свой прогрессбар и рисовать его:
1) Создаем image размера каким мы хотим сделать прогрессбар и называем как-нибудь например ProgBar1. 2) Заводим глобальные переменные: Код:
var minProgBar1, maxProgBar1, posProgBar1; Код:
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; Код:
procedure UnleassFor(i: int64) UnleassFor(i + 1); ... UnleassFor(0); |