Советы по Delphi
Обработчик события OwnerDraw в компоненте StatusBar
Обработчик должен выглядеть примерно так:
| procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect);begin with statusbar1.Canvas do beginBrush.Color := clRed;FillRect(Rect);TextOut(Rect.Left, Rect.Top, 'Панель '+IntToStr(Panel.Index));end;end; |
