Картинки в заголовке TabSheet

[zoltanleo]

Доброго времени суток, комрады.

Глянул исходники PageControl'а и сабжа. Чего-то все так печально. OwnerDraw в published-свойствах закомментирован, Options (те, которые nboShowCloseButtons, nboShowAddTabButton) не работают, хотя эвент для кнопки закрытия присутствует.

Стоит банальная задача, справа нарисовать кнопку закрытия вкладки. Подскажите, куда копать, где рисовать?

[Снег Север]

Делать helper к PageControl или своего наследника PageControl'а или поискать готовый компонент с нужными свойствами. Ваш Кэп.

[zoltanleo]

Наследник и подразумевался. Рисовать-то где?

[mig-31]

Проще всего собрать проект под Qt там это реализовано и кроссплатформенно или использовать компонент ATTabs
http://wiki.freepascal.org/ATTabs

Потом есть Lazarus_Custom_Drawn_Controls но там все своими руками дописывать.

[Снег Север]

На Canvas контрола.
Я бы ограничился helper'ом - слишком мелкая задача для компонента-наследника.

[zub]

А как хелпер поможет поменять поведение контрола?
Даже наследником не всегда всё можно нарисовать\отловить

[zoltanleo]

Нет принципиальной разницы между наследником и хелпером для моих задач, за исключением нюансов. Я просто перекрыл WMPaint в наследнике и все.

Но пока ищу решение одной проблемы. Мне нужно получить координаты заголовка активной вкладки. В дельфях это решается просто в OnDrawTab, там Rect можно получить из параметров события. В Лазаревском PageControl'е в исходниках Мамай прошелся - такой бардак. Есть идеи?

[Снег Север]

А как хелпер поможет поменять поведение контрола?

helper имеет доступ ко всем скрытым полям и свойствам основного компонента и позволяет поменять всё

[Vadim]

В дельфях это решается просто в OnDrawTab...

Разработчики пишуть, что в Lazarus эту процедуру потеряли где-то в одной из предыдущих версий...

property streamed in older Lazarus revision.

[zub]

>>helper имеет доступ ко всем скрытым полям и свойствам основного компонента и позволяет поменять всё
то такое... поле не открыто - это или баг или лезти туда не стоит. кароче всяко лезти туда не стоит))

[Снег Север]

zub???
helper - великолепная альтернатива для создания наследников стандартных компонентов, если дополнения невелики. Основной код не трогается, мороки несравненно меньше. На делфи пользуюсь давно и часто.

[zub]

Снег Север
Я тебя не понимаю.
хелпером не сделать то что можно в наследнике, такчто это никакая не альтернатива - сахарок синтаксический, не больше

[Снег Север]

zub,
я же не спорю, что в наследнике можно сделать больше, но я часто встречаюсь с необходимостью только немного расширить стандартный функционал компонента и не собираюсь городить наследников, если хватает хелпера.

[Лекс Айрин]

Снег Север, но хелперы же реально дыра в безопастности. Впрочем, сейчас на нее забивают большой болт, так что удивляться нечему.
А, кстати, что мешает просто тупо размещать кнопку поверх заголовка вкладки? Или одну кнопку поверх всего компонента для закрытия текущей страницы?

[Снег Север]

Снег Север, но хелперы же реально дыра в безопастности.

Не понимаю этого. С таким же успехом можно любой свой код назвать "дырой в безопастности".

А, кстати, что мешает просто тупо размещать кнопку поверх заголовка вкладки?

Как я понимаю, у топикстартера проблема в определении координат заголовка.