Текущий архив: 2005.01.23;
Скачать: CL | DM;
Вниз
ProgressBar Найти похожие ветки
← →
NeDum (2005-01-12 17:13) [0]Добрый вечер.
Вопрос такой - как добавить цифры в прогесбар . Может компонент какой-нить есть .
Спасибо
← →
begin...end © (2005-01-12 17:15) [1]> NeDum (12.01.05 17:13)
TGauge не подойдёт?
← →
Anatoly Podgoretsky © (2005-01-12 17:18) [2]А рядом ярлык разместить не судьба
← →
NeDum (2005-01-12 17:20) [3]А с прогрессбаром никак ?
← →
NeDum (2005-01-12 17:23) [4]>>> А рядом ярлык разместить не судьба
а это идея ... Только тогда лучше внутрь прогрессбара.
Щас попробую
← →
Sergey_Masloff (2005-01-12 17:24) [5]>А с прогрессбаром никак ?
Ну извращайся:
procedure TForm1.Button1Click(Sender: TObject);
var
dc : THandle;
x,y : Integer;
begin
x := 5;
y := 5;
dc := GetDC(ProgressBar1.Handle);
TextOut(dc,x,y,"12",2);
end;
Конечно цвет менять нужно будет в зависимости от позиции прогресса
← →
NeDum (2005-01-12 17:41) [6]Всем спасибо.
Вроде получилось. Весь ушел в процесс
Еще раз спасибо
Страницы: 1 вся ветка
Текущий архив: 2005.01.23;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.053 c
