ПРОГРАММИРОВАНИЕ! СОЗДАНИЕ САЙТОВ И ИХ ОПТИМИЗАЦИЯ

Главная » Статьи » Программирование » Delphi

Обработчик события 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.Top, 'Панель '+IntToStr(Panel.Index));
end;
end;

Категория: Delphi | Добавил: Merlin (07.12.2009)

Просмотров: 406 | Рейтинг: 0.0/0

Всего комментариев: 0

Статьи по Оптимизации

ПРОГРАММИРОВАНИЕ! СОЗДАНИЕ САЙТОВ И ИХ ОПТИМИЗАЦИЯ