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

Вниз

Как можно поменять цвет шрифта в TStatusBar   Найти похожие ветки 

← →
asd.   (2004-06-10 15:16) [0]

1

---

← →
panov ©   (2004-06-10 15:26) [1]

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

---

← →
ancara ©   (2004-06-10 16:10) [2]

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

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

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

 SendMessage(Hnd, SB_SETBKCOLOR, 0, clYellow);

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

---

← →
Леприкон ©   (2004-06-10 16:31) [3]

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;

---

← →
Леприкон ©   (2004-06-10 16:33) [4]

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

---

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

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

Наверх

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