OwnerDraw в компоненте StatusBar

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., 'Панель '+IntToStr(Panel.Index));
 end;
end;

http://delphiworld.narod.ru/ DelphiWorld 6.0

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...