Скачать: CL | DM;

Можно ли в StatusBar изменить шрифт?   Найти похожие ветки 

← →
Alias ©   (2005-07-18 17:05) [0]

Можно ли в StatusBar изменить шрифт? Т.е. в StatusBar1.Panels[i].Text?
Если нет, как решить эту проблему? Засунуть туда TLabel? Как?

---

← →
Big Joe   (2005-07-18 17:08) [1]

With StatusBar1.Panels[1] do
begin
 Text := Edit1.Text;
 Canvas.Font.Size := StatusBar1.Font.Size;
 Width := Canvas.TextWidth(Text) + 10;
end;

---

← →
Alias ©   (2005-07-18 17:34) [2]

2Big Joe
Я прошу прощения, но не могли бы Вы разъяснить неразумному что делает данный пример? Выплняя этот код я не смог изменить начертание текста.
Продемонстрируйте, пожалуйста, как мне сделать в Panel[1] текст красным, а в Panel[2] синим...

Вот блин! Чувствую себя полным ламером...:(

---

← →
Big Joe   (2005-07-18 17:38) [3]

Сейчас попробую далеко не уходи !!!

---

← →
Big Joe   (2005-07-18 17:42) [4]

// TStatusBar.Panels установить свойство Style в OwnerDraw.

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
         Panel: TStatusPanel; const Rect: TRect);
begin
 if Panel = StatusBar.Panels[0] then
 begin
   StatusBar.Canvas.Font.Color := clRed;
   StatusBar.Canvas.TextOut(Rect.Left, Rect.Top, "Panel - 0")
 end
 else
 begin
   StatusBar.Canvas.Font.Color := clGreen;
   StatusBar.Canvas.TextOut(Rect.Left, Rect.Top, "Panel - 1");
 end;
end;

---

← →
begin...end ©   (2005-07-18 17:43) [5]

> Alias ©   (18.07.05 17:34) [2]

> Продемонстрируйте, пожалуйста, как мне сделать в
> Panel[1] текст красным, а в Panel[2] синим

Установите у нужных панелей свойство Style в psOwnerDraw и напишите такой обработчик OnDrawPanel:

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
 Panel: TStatusPanel; const Rect: TRect);
begin
 with StatusBar.Canvas do
 begin
   case Panel.Index of
     1: Font.Color := clRed;
     2: Font.Color := clBlue
   end;
   TextOut(Rect.Left, Rect.Top, "TEXT")
 end;
end

---

← →
Alias ©   (2005-07-18 17:50) [6]

Большое спасибо!
Теперь похоже на правду. Осталось придумать как инициировать это событие если я хочу изменить текст.

---

← →
Big Joe   (2005-07-18 17:58) [7]

:-))

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c