Форум: "Основная";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Comp   (2002-11-26 15:41) [0]

В чём тут дело?

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);

begin
if panel=Statusbar1.Panels.Items[0] then
begin
StatusBar1.Canvas.Font.Color:=clRed;

StatusBar1.Canvas.TextOut(0,0,"Text");
end;
if panel=Statusbar1.Panels.Items[1] then
begin
StatusBar1.Canvas.Font.Color:=clRed;

StatusBar1.Canvas.TextOut(0,0,"

---

← →
Song   (2002-11-26 15:52) [1]

Description

The OnDrawPanel event occurs when a status panel needs to be redisplayed—for example, when the user resizes the status bar. The Rect parameter gives the (new) dimensions of the status panel. OnDrawPanel occurs only if the status panel’s Style property is set to psOwnerDraw.

TDrawPanelEvent is the type of the OnDrawPanel property.
----

Оно?

---

← →
Alx2   (2002-11-26 15:52) [2]

StatusBar1.Canvas.TextRect(Rect,Rect.Left,Rect.Top,"Text");

---

← →
Alx2   (2002-11-26 15:55) [3]


Begin
If Panel = StatusBar1.Panels.Items[0] Then
Begin
StatusBar1.Canvas.Font.Color := clRed;
StatusBar1.Canvas.TextRect(Rect,Rect.Left,Rect.Top,"Text");
End;
If Panel = StatusBar1.Panels.Items[1] Then
Begin
StatusBar1.Canvas.Font.Color := clRed;
StatusBar1.Canvas.TextRect(Rect,Rect.Left,Rect.Top,"Text2");
End;
If Panel = StatusBar1.Panels.Items[2] Then
Begin
StatusBar1.Canvas.Font.Color := clRed;
StatusBar1.Canvas.TextRect(Rect,Rect.Left,Rect.Top,"Text3");
End;

End;


---

← →
Comp   (2002-11-27 11:54) [4]

Song

Я знаю, что надо поставить соответствующий стиль панелькам
Только он чё-то не писал в каждой панели, что надо было.
Теперь ясно.




Alex

Спасибо!

---

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

Форум: "Основная";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c