Kolorowy tekst na kolorowym tle

1. wstawić na formularz StatusBar z zakładki Win32
2. kliknąć na niego dwukrotnie - otworzy się okienko Editing StatusBar1->Panels
3. kliknąć Add
4. kliknąć na liście wybierając 0-TStatusPanel
5. zmienić właściwość Style = psOwnerDraw i zamknąć okienko
6. utworzyć zdarzenie OnDrawPanel dla StatusBar1

Funkcja StatusBar1DrawPanel obsługująca zdarzenie OnDrawPanel dla StatusBar1 zmienia kolor czcionki tekstu na jasno-niebieski, kolor komponentu StatusBar1 na czarny i rysuje na nim tekst:

Unit1.cpp

void __fastcall TForm1::StatusBar1DrawPanel(TStatusBar *StatusBar, TStatusPanel *Panel,
                                            const TRect &Rect)
{
   StatusBar1->Canvas->Font->Color = clAqua;
   StatusBar1->Canvas->Brush->Color = clBlack;
   StatusBar1->Canvas->FillRect(Rect);
   StatusBar1->Canvas->TextOut(Rect.Left, Rect.Top, "Kolorowy tekst");
}