Dlaczego poniższy kod nie chce działać? Tzn. bardzo ładnie rysuje obrazek na panelu, ale ciąg "Przykładowy tekst" nie jest już wyświetlany :|
void __fastcall TMainForm::StatusBar1DrawPanel(TStatusBar *StatusBar,
TStatusPanel *Panel, const TRect &Rect)
{
TCanvas & pnlCanvas = *StatusBar->Canvas;
if (Panel->Index == 2)
{
Graphics::TBitmap *Image = new Graphics::TBitmap;
TRect rct;
rct.left = 0;
rct.top = 0;
rct.right = 16;
rct.bottom = 16;
Image->Canvas->Brush->Color = clBtnFace;
Image->Canvas->FillRect(rct);
StatusBarList->GetBitmap(1, Image);
pnlCanvas.Draw(Rect.Left, Rect.Top, Image);
pnlCanvas.TextOutA(10,2, "Przykładowy tekst");
delete Image;
}
}
Początkowo myślałem, że zmiana koloru pióra Canvas->Pen na np. clBlack rozwiąże problem, ale chyba nie w tym rzecz, bo nie działa...