Чтобы не стиралось содержимое StatusBar'а - Общие вопросы Delphi

Gypsy · 18.02.2010, 19:30

Здравствуйте, уважаемые!
Вывожу в статусбар так:

Код:

StatusBar1.Canvas.Font.Color:=clGreen;
StatusBar1.Canvas.TextOut(205, 3, 'DLL');

Ну и стандартно, сворачиваешь форму, затем разворачиваешь, текста нет.
Пробовал обновлять статусбар в обработчике Form.OnPaint, не помогло.
Подскажите, кто знает?

Kotofff · 18.02.2010, 21:10

Цитата:

Вывожу в статусбар так:

вообще-то правый клик по StatusBar`у выбираешь Panel Editor или в Инспекторе Объектов Panels и начинаешь создавать панели в которые выводишь что хочешь ...
Это если без заморочек в перерисовкой ...

Gypsy · 18.02.2010, 21:14

Цитата:

Сообщение от Kotofff

вообще-то правый клик по StatusBar`у выбираешь Panel Editor или в Инспекторе Объектов Panels и начинаешь создавать панели в которые выводишь что хочешь ...
Это если без заморочек в перерисовкой ...

Вы забыли добавить, как сменить цвет шрифта в таком случае.

Kotofff · 18.02.2010, 21:24

Ладно , уговорил. Виноват.
Тогда вот : http://pblog.ru/lab/?p=417
Там описывается метод именно обработки сообщения отрисовки панели.

mihali4 · 18.02.2010, 21:26

Нет ничего проще - установите для выбранной панели свойство Style в OwnerDraw, а вашу процедуру перенесите в procedure TForm1.StatusBar1DrawPanel...

Gypsy · 18.02.2010, 21:41

Цитата:

Сообщение от mihali4

Нет ничего проще - установите для выбранной панели свойство Style в OwnerDraw, а вашу процедуру перенесите в procedure TForm1.StatusBar1DrawPanel...

Отлично! Действительно, просто.
Спасибо!

18.02.2010, 19:30	#1
Gypsy Пользователь Регистрация: 16.10.2009 Сообщений: 42	Чтобы не стиралось содержимое StatusBar'а Здравствуйте, уважаемые! Вывожу в статусбар так: Код: `StatusBar1.Canvas.Font.Color:=clGreen; StatusBar1.Canvas.TextOut(205, 3, 'DLL');` Ну и стандартно, сворачиваешь форму, затем разворачиваешь, текста нет. Пробовал обновлять статусбар в обработчике Form.OnPaint, не помогло. Подскажите, кто знает?

18.02.2010, 21:24	#4
Kotofff Участник клуба Регистрация: 11.01.2009 Сообщений: 1,917	Ладно , уговорил. Виноват. Тогда вот : http://pblog.ru/lab/?p=417 Там описывается метод именно обработки сообщения отрисовки панели. "Заряженному танку в дуло не смотрят" @Dekmer in WoT

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Содержимое HKEY_CLASSES_ROOT	KoBRaAndrey	Общие вопросы Delphi	3	12.02.2010 17:18
Содержимое ярлыка	Gr@nd	Общие вопросы Delphi	6	13.01.2010 09:06
Содержимое лейблов	CraZZy RabbIt	Общие вопросы Delphi	5	17.02.2009 14:20
Содержимое файла	terminadoor	Работа с сетью в Delphi	0	15.12.2008 00:25
как сохранить содержимое memo1 так чтобы строка начиналась с определённых символов....	aesoem	Общие вопросы Delphi	17	29.02.2008 20:52

18.02.2010, 21:26	#5
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Нет ничего проще - установите для выбранной панели свойство Style в OwnerDraw, а вашу процедуру перенесите в procedure TForm1.StatusBar1DrawPanel...