void TfraBottomBar::RedrawBar()
{
SPBItem* pbi = UI->ProgressLast();
if (pbi){
AnsiString txt;
float p,m;
pbi->GetInfo(txt,p,m);
// status line
if (paStatus->Caption!=txt){
paStatus->Caption = txt;
paStatus->Repaint ();
}
// progress
int val = fis_zero(m)?0:(int)((p/m)*100);
if (val!=cgProgress->Progress){
cgProgress->Progress = val;
cgProgress->Repaint ();
}
if (false==cgProgress->Visible)
cgProgress->Visible = true;
}else{
if (cgProgress->Visible){
// status line
paStatus->Caption = "";
paStatus->Repaint ();
// progress
cgProgress->Visible = false;
cgProgress->Progress = 0;
}
}
}
