Текущий архив: 2003.11.20;
Скачать: CL | DM;

Вниз

Вопрос по TStatusBar ...   Найти похожие ветки 

← →
_Agent_   (2003-11-10 13:33) [0]

Можно ли в TStatusBar добавить(вставить)TShape?
необходимо что бы в StatusBarе отражалась цветовая индикация процесса. Спасибо за ответ :)))

---

← →
han-bratan   (2003-11-10 13:47) [1]

Можно.

procedure TDCMain.PlaseOnStatusBar;
begin
bShowStatusForm.Parent := StatusBar;
ProgressBar.Parent := StatusBar;
end;

procedure TDCMain.StatusBarDrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
case Panel.Index of
2: begin
sbShowStatusForm.SetBounds(Rect.Right - 40, Rect.Top, 24, Rect.Bottom - Rect.Top);
ProgressBar.SetBounds(Rect.Left, Rect.Top,
sbShowStatusForm.Left - Rect.Left - 5,
Rect.Bottom - Rect.Top);
end;
end;
end;

Этого должно быть достаточно. Если нет, то пиши на мыло, так уж и быть напишу демку.

---

← →
RDen   (2003-11-10 13:49) [2]

Могу примерчик выслать - там в StatusBar отрисовывается нечто вроде ProgressBar - не помню где взял...

---

← →
_Agent_   (2003-11-10 13:52) [3]

RDen
если не сложно скинь мне на мыло :)
age@list.ru
заранее спасиб...

---

← →
RDen   (2003-11-10 13:55) [4]

вроде ушло

---

← →
mOOx_ ©   (2003-11-10 13:59) [5]

А еще есть компонент StatusBarPro. Там на панели все, что хочешь можно кидать. Вроде бы на этом сайте и брал.

---

← →
AbrosimovA   (2003-11-10 13:59) [6]

var Shape1: TShape;
begin
Shape1:=TShape.Create();
Shape1.Parent:=StatusBar1;
with Shape1 do begin
Left:=...;
Top:=...;
Width:=...;
Height:=...;
Brush.Color:=...;
....
end;
end;

---

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

Текущий архив: 2003.11.20;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.034 c