Советы по Delphi


              

Обработчик события OwnerDraw в компоненте StatusBar


Обработчик должен выглядеть примерно так:

    procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect); begin
with
statusbar1.Canvas do begin Brush.Color := clRed; FillRect(Rect); TextOut(Rect.Left, Rect.Top, 'Панель '+IntToStr(Panel.Index)); end; end;
[000047]



Содержание    Вперед