Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.11.28;
Скачать: [xml.tar.bz2];

Вниз

Цвет шрифта...   Найти похожие ветки 

 
Comp   (2002-11-14 19:01) [0]

Мастера!!!
Я поставил на форму статус бар, А как менять цвет шрифта программно??? По мере надобности?
Я уже почти понял, что нифига нельзя так же, как у Button цвет фона.
Но всё-таки?


 
Cobalt   (2002-11-15 01:55) [1]

TControl.Font
Controls the attributes of text written on or in the control.

property Font: TFont;

Description
To change to a new font, specify a new TFont object. To modify a font, change the value of the Color, Height, Name, Pitch, Size, or Style of the TFont object.
In TFont:
Charset
Color
FontAdapter
Handle
Height
Name
Pitch
PixelsPerInch
Size
Style


 
Almaz   (2002-11-15 02:33) [2]


> Comp © (14.11.02 19:01)
> Мастера!!!
> Я поставил на форму статус бар, А как менять цвет шрифта
> программно??? По мере надобности?
> Я уже почти понял, что нифига нельзя так же, как у Button
> цвет фона.
> Но всё-таки?

Обрабатывайте OnDrawPanel и рисуйте сами что угодно каким угодно цветом.

Удачи.


 
mukha   (2002-11-15 23:18) [3]

Например, так:
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
if Panel = StatusBar.Panels[0] then
begin
StatusBar.Canvas.Font.Color := clBlue;
StatusBar.Canvas.TextOut(Rect.Left, Rect.Top, "Panel - 0")
end
else
begin
StatusBar.Canvas.Font.Color := clRed;
StatusBar.Canvas.TextOut(Rect.Left, Rect.Top, "Panel - 1");
end;
end;

При этом панели имеют свойство "owner-draw".



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

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

Наверх





Память: 0.44 MB
Время: 0.006 c
1-93081
LongIsland
2002-11-16 17:04
2002.11.28
Перетаскивание Image a по Image у


8-93149
Alex
2002-08-05 17:46
2002.11.28
Графика


4-93305
borg
2002-10-18 14:37
2002.11.28
Передать данные


4-93306
d_coder
2002-10-08 21:21
2002.11.28
<<<<<<Проблема с несоответствием типов>>>>>


3-92840
KSergey
2002-11-12 16:13
2002.11.28
Узнать: конец или начало DataSet а





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский