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

Вниз

ProgressBar   Найти похожие ветки 

 
DillerXX ©   (2005-10-09 16:12) [0]

Как можно написать процент завершения на самом СтатусБаре? Поместил на него Label, но прогресс доходя до лэйбла затирает его. Что посоветуете?


 
MTsv DN   (2005-10-09 17:15) [1]

Для начала опредились "СтатусБар" или "ProgressBar"
Используй KOLColorProgressBar или KOLRbControls...
Или вот:

procedure TfrmMain.KOLForm1FormCreate(Sender: PObj);
begin
lbl.Parent := pb;
lbl.Top := 0;
lbl.Left := 0;
end;

procedure TfrmMain.btnClick(Sender: PObj);
begin
repeat
 pb.Progress := pb.Progress + 1;
 pb.ProcessMessages;
 Sleep(100);
until false;
end;

function TfrmMain.pbMessage(var Msg: tagMSG; var Rslt: Integer): Boolean;
begin
Result := false;
if Msg.message = PBM_SETPOS then
 begin
  lbl.Text := "Âûïîëíåíî: " + int2str(Msg.wParam) + "%";
  lbl.ProcessMessages;
 end;
end;


С Уважением MTsv DN


 
MTsv DN   (2005-10-09 17:18) [2]

У ПрогрессБара Transperent := true; у Лэбела Caption := " ";

С Уважением MTsv DN



Страницы: 1 вся ветка

Форум: "KOL";
Текущий архив: 2006.06.18;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.011 c
15-1147696202
Pazitron_Brain
2006-05-15 16:30
2006.06.18
Подскажите лучшую программу -


2-1148884353
DesperadO666
2006-05-29 10:32
2006.06.18
Прошу помощи по RegEnumValue


5-1133790079
adamov_a
2005-12-05 16:41
2006.06.18
StringGrid - как получить содержимое выделенных ячеек


2-1149239089
Trabl
2006-06-02 13:04
2006.06.18
Cannot focuse a disable or invisible window


15-1148362806
cyborg
2006-05-23 09:40
2006.06.18
Нужно в одном интерпретаторе добавить функцию





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский