Советы по 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;
[000047]



Содержание раздела