Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.01.23;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.05 c
1-1104860295
olookin
2005-01-04 20:38
2005.01.23
Double vs Extended


3-1103466209
Алексей
2004-12-19 17:23
2005.01.23
Экспорт в готовый Excel-шаблон


1-1105521614
Zhekson
2005-01-12 12:20
2005.01.23
Навигация по StringGrid_у


1-1105370042
Nightfire
2005-01-10 18:14
2005.01.23
Вопрос про Units


1-1105485353
chir
2005-01-12 02:15
2005.01.23
Запретить снятие фокуса





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский