Компонент GsvTextPanel

Этот визуальный компонент был разработан для совместного использования с инспектором объектов для отображения подсказок по инспектируемым свойствам - примерно так, как выглядит подобная панель в инспекторе объектов dotnet. Компонент наследуется от TGraphicControl и может отображать любое сочетание из трех элементов - заголовок, графический образ и текст. Шрифт заголовка и текста назначается раздельно. Если присутствуют все три элемента, то заголовок и текст автоматически разделяются горизонтальной линией:

Кроме своего основного назначения, компонент может быть использован как обычная текстовая панель, например, вполне можно использовать компонент как статусную строку или надпись, содержащую текст и графический образ.

Дополнительно к стандартным свойствам компонента TGraphicControl компонент TGsvTextPanel определяет следующие свойства:

BevelInner, BevelOuter: TBevelCut

Стиль рамки.

BevelKind: TBevelKind

Вид рамки.

CaptionFont: TFont

Шрифт заголовка.

CaptionDivider: Boolean

Наличие разделительной линии между заголовком и текстом.

Images: TCustomImageList

Компонент, содержащий графические образы. При использовании компонента совместно с инспектором список может содержать два графических образа, например, образ подсказки и образ ошибки.

ImageIndex: Integer

Индекс отображаемого графические образа или -1, если образ не нужен.

Caption: String

Название заголовка или пустая строка, если заголовок не нужен. При использовании совместно с инспектором заголовок содержит название инспектируемого свойства.

Text: String

Текст или пустая строка, если текст не нужен. При использовании совместно с инспектором текст содержит подсказку по текущему свойству или сообщение об ошибочном вводе. Текст автоматически разбивается по словам, чтобы уместиться по ширине панели. Если текст не задан, то разделительная линия не отображается.

procedure View(aIndex: Integer; const aCaption, aText: String)

Эта public-процедура позволяет задать значение всем трем элементам панели - графическому образу, заголовку и тексту.

Download

delphitextpanel.zip - Исходные коды (3K).