VPF::проценты в ProgressBar - Форум программистов

B0M3R

Дата 22.5.2007, 11:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 22.1.2004
Где: Германия, Гамбuрг

Репутация: нет
Всего: нет

привет всем,

шарился по форуму, но то что мне нужно не нашёл.

подскажите плиз как можно в прогрессбар вставить проценты в середину чтобы тоже высвечивались?

нашёл в сети токой код:

Код


with prb_status do begin
          hDC := GetWindowDC(Handle);
        try
          if hDC <> 0 then begin
            R := ClientRect;
            SetBKMode(hDC, TRANSPARENT);
            SetTextColor(hDC, RGB(0, 0, 0));
            DrawText(hDC, PChar(formatfloat('#0.00',prozent) + ' %'), 4, R,
              DT_SINGLELINE or DT_VCENTER or DT_CENTER);
          end;
        finally
          ReleaseDC(Handle, hDC);
        end;
      end;

но етот код срабатывает не совсем так как надо, тоесть он рисует цыфры постоянно наверх, как что нечего непоннятно

вот скриншот:
http://i1.fastup.de/show.asp?file=progressbar.JPG

Rennigth

Дата 22.5.2007, 11:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

B0M3R, А TGauge не подходит?

--------------------

(* Honesta mors turpi vita potior *)

B0M3R

Дата 22.5.2007, 11:54 (ссылка)

(нет голосов)

Загрузка ...

Цитата(Rennigth @ 22.5.2007, 09:45

)

B0M3R, А TGauge не подходит?

у мней его почемуто нету или я его найти немогу

ползуюсь турбоексплорером для делфи и там его вроде нету

Rennigth

Дата 22.5.2007, 12:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

B0M3R, В турбе он есть, но только не палитре. Подключи модуль Gauges и создавай в RunTime.

--------------------

(* Honesta mors turpi vita potior *)

B0M3R

Дата 22.5.2007, 12:39 (ссылка)

(нет голосов)

Загрузка ...

Цитата(Rennigth @ 22.5.2007, 10:14

)

B0M3R, В турбе он есть, но только не палитре. Подключи модуль Gauges и создавай в RunTime.

нету у меня токого

aktuba

Дата 22.5.2007, 12:55 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: 16
Всего: 38

Цитата

нету у меня токого

У всех есть, а у тебя нету =))) Есть! Поищи в System...

--------------------

B0M3R

Дата 22.5.2007, 13:07 (ссылка)

(нет голосов)

Загрузка ...

TTimer
TPaintbox
TMediaPlayer
TOleContainer
TCOMAdminCatalog
TDdeClientConv
TDdeClientItem
TDdeServerConv
TDdeServerItem

Ето всё что у меня в сисетах

Rennigth

Дата 22.5.2007, 13:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76

B0M3R,
Все в турбе есть.

C:\Program Files\Borland\BDS\4.0\source\Win32\Samples\Source\Gauges.pas
C:\Program Files\Borland\BDS\4.0\lib\Gauges.dcu

Добавлено через 1 минуту и 37 секунд
Еще раз повторяю

Цитата(Rennigth @ 22.5.2007, 12:14

)

он есть, но только не палитре. Подключи модуль Gauges и создавай в RunTime.

--------------------

(* Honesta mors turpi vita potior *)

Sunvas

Дата 22.5.2007, 14:28 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

B0M3R, Ну Гауж гаужем, а чем тебе код, который ты нашел не подходит?

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

B0M3R

Дата 22.5.2007, 14:42 (ссылка)

(нет голосов)

Загрузка ...

Цитата(Rennigth @ 22.5.2007, 11:34)

Цитата(Rennigth @ 22.5.2007, 12:14

)

он есть, но только не палитре. Подключи модуль Gauges и создавай в RunTime.

спс
теперь я нашёл

тока как этим пользоваться?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »