prb = new TProgressBar(StatusBar1);
prb->Width = StatusBar1->Panels->Items[0]->Width;
prb->Top = StatusBar1->Top - 1;
prb->Parent = StatusBar1;
StatusBar + ProgressBar
Как в StatusBar сделать индикатор события, например как в IE при загрузке страницы :???:
Цитата:
Originally posted by micle77
Как в StatusBar сделать индикатор события, например как в IE при загрузке страницы :???:
Как в StatusBar сделать индикатор события, например как в IE при загрузке страницы :???:
Код:
Ну, наверное, можно свойству Parent ProgressBar'а установить StatusBar, разместить ProgressBar в нужном месте StatusBar'а, не забыть статусбару указать в свойстве SimplePanel false, и т.д. и т.п.
Или же рисовать всё самостоятельно, благо у статусбара есть событие OnDrawPanel.
Или же рисовать всё самостоятельно, благо у статусбара есть событие OnDrawPanel.
Код:
TProgressBar *prb;
prb = new TProgressBar(StatusBar1);
prb->Parent = StatusBar1 ;
prb->Width = StatusBar1->Panels->Items[0]->Width;
prb->Top = StatusBar1->Top - 1;
prb->Step=10;
prb->Smooth=true;
//prb->StepIt();
prb->Position=50;
prb = new TProgressBar(StatusBar1);
prb->Parent = StatusBar1 ;
prb->Width = StatusBar1->Panels->Items[0]->Width;
prb->Top = StatusBar1->Top - 1;
prb->Step=10;
prb->Smooth=true;
//prb->StepIt();
prb->Position=50;
Почему же это не работает? Шкала не появляется в StatusBar :???:
Цитата:
Originally posted by micle77
Почему же это не работает? Шкала не появляется в StatusBar :???:
Код:
TProgressBar *prb;
prb = new TProgressBar(StatusBar1);
prb->Parent = StatusBar1 ;
prb->Width = StatusBar1->Panels->Items[0]->Width;
prb->Top = StatusBar1->Top - 1;
prb->Step=10;
prb->Smooth=true;
//prb->StepIt();
prb->Position=50;
prb = new TProgressBar(StatusBar1);
prb->Parent = StatusBar1 ;
prb->Width = StatusBar1->Panels->Items[0]->Width;
prb->Top = StatusBar1->Top - 1;
prb->Step=10;
prb->Smooth=true;
//prb->StepIt();
prb->Position=50;
Почему же это не работает? Шкала не появляется в StatusBar :???:
Потому что prb->Top (prb->Left) надо присваивать значения относительно родительского компонента.
Сделай вот так:
Код:
prb->Width = StatusBar1->Panels->Items[0]->Width;
prb->Top = 2;
prb->Left = 0;
prb->Height = StatusBar1->Height-2;
prb->Top = 2;
prb->Left = 0;
prb->Height = StatusBar1->Height-2;
Цитата:
Originally posted by Absolut
Потому что prb->Top (prb->Left) надо присваивать значения относительно родительского компонента.
Сделай вот так:
Потому что prb->Top (prb->Left) надо присваивать значения относительно родительского компонента.
Сделай вот так:
Код:
prb->Width = StatusBar1->Panels->Items[0]->Width;
prb->Top = 2;
prb->Left = 0;
prb->Height = StatusBar1->Height-2;
prb->Top = 2;
prb->Left = 0;
prb->Height = StatusBar1->Height-2;
Ну вот и разобрались. Ну и ладушки :D
Благодарю :D
совсем шарики за ролики заехали
совсем шарики за ролики заехали