Пользователь

Добро пожаловать,
Регистрация или входРегистрация или вход
Потеряли пароль?Потеряли пароль?
Ник:
Пароль:
Меню сайта
Главная Главная
АккаунтАккаунт
ПользователиПользователи
ОпросыОпросы
Поиск по сайтуПоиск по сайту
Новости RSSНовости RSS
ФорумФорум
Отправить другуОтправить другу
Связаться с намиСвязаться с нами


Книги по программированиюКниги
Учебники и руководстваСамоучители
Каталог софтаКаталог софта
Исходники программИсходники
КомпонентыКомпоненты
Обработки 1СОбработки 1С
CMS-центрCMS-центр
Шаблоны для сайтовШаблоны сайтов
Наборы иконокНаборы иконок
Статьи и обзорыСтатьи и обзоры
Вопросы и ответыВопросы и ответы
СкриптыСкрипты
Статьи участниковНетематичное

Ваше мнение
Какой язык программирования вы используете ?

ASP
Delphi
C/C++
Basic
PHP
Pascal
Java
Другой


Результаты
Другие опросы

Всего голосов: 1968
Комментарии: 10

Наши партнеры



Статистика




Programming books  Download software  Documentation  Scripts  Content Managment Systems(CMS)  Templates  Icon Sets  Articles  Contacts  Voting  Site Search




Статьи и обзоры

ГлавнаяЛучшиеПопулярныеСписокДобавить


Обработчик события OwnerDraw в компоненте StatusBar
Статьи по объектно-ориентированному программированию на языке Pascal и в среде программирования Delphi. Примеры работающего кода, тексты компонентов и классов, советы мастеров. Название говорит само за себя.



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

Код
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;


    Разместил: admin | | Прочитано: 27138 | | Распечатать



Нет комментариев. Почему бы Вам не оставить свой?
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.
Внимание! Если у вас не получилось найти нужную информацию, используйте рубрикатор или воспользуйтесь поиском


.


Статьи и обзоры Delphi и TurboPascal Обработчик события OwnerDraw в компоненте StatusBar Название говорит само за себя Обработчик должен выглядеть примерно так Кодprocedure TForm1 StatusBar1DrawPanel StatusBar TStatusBar Panel TStatusPanel const Rect TRect begin with statusbar1 Canvas Brush Color clRed FillRect TextOut Left &