Текущий архив: 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.052 c
