| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как можно поменять цвет шрифта в TStatusBar [D7, WinXP]

asd. ©   (2004-06-10 15:16:00) 

1

---

Леприкон   (2004-06-10 16:33:00) [1]

Ещё StatusBar1.SimplePanel:=false; забыл...

---

Леприкон   (2004-06-10 16:31:00) [2]

procedure TForm1.FormCreate(Sender: TObject);
begin
 StatusBar1.Font.Color:=clRed;
 with StatusBar1.Panels.Add do
   begin
     Style:=psOwnerDraw;
     Text:='Simple text';
   end;
end;

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
 Panel: TStatusPanel; const Rect: TRect);
begin
 StatusBar1.Canvas.TextRect(Rect,Rect.Left,Rect.Top,Panel.Text);
end;

---

ancara   (2004-06-10 16:10:00) [3]

Можно было бы сообщениями попробовать, но я в мсдн не нашел про цвет текста, можно сам текст поменять:

 SendMessage(Hnd, SB_SETTEXT, j, integer(s));

где j: номер панели, s: указатель PChar;
или цвет фона:

 SendMessage(Hnd, SB_SETBKCOLOR, 0, clYellow);

а как цвет текста наверное категорически запрещено, раз мелкомягкие такого сообщения не ввели :)))
Поддерживаю > panov ©   (10.06.04 15:26) [1], так верней...

---

panov   (2004-06-10 15:26:00) [4]

отрисовывай сам в OnPaint формы

---

Наверх