Кнопка с рисунком – TBitBtn

Кнопка TBitBtn – большая модница; ее украшает битовый образ (пиктограмма). В классе TBitBtn объявлено примечательное свойство, отвечающее за вид и модальный результат кнопки:

property Kind: TBitBtnKind;

type TBitBtnKind = (bkCustom, bkOK, bkCancel, bkHelp, bkYes, bkNo, bkClose, bkAbort, bkRetry, bkIgnore, bkAll);

Каждому возможному значению TBitBtnKind поставлен в соответствие модальный результат, передаваемый окну: bkCustom – 0, bkOk – mrOk, …, bkAll – mrAll. Для большей наглядности (рис. 8.4) кнопка одновременно снабжается пиктограммой. Если вас не устраивает назначаемое по умолчанию изображение, воспользуйтесь свойством:

property Glyph: TBitmap;

Найдите подходящий файл-картинку (*.bmp), и кнопка отобразит новую пиктограмму. Имейте в виду, что кнопка одновременно может поддерживать до четырех изображений, каждое из которых соответствует определенному состоянию (кнопка не нажата, не

активна, в момент щелчка, нажата). Количество подключаемых пиктограмм определяется свойством:

property NumGlyphs: TNumGlyphs;

type TNumGlyphs = 1..4;

Все пиктограммы должны быть объединены в единый файл. Посмотрите набор файлов *.bmp, предоставленных Delphi. По умолчанию он размещается в папке:

…\Program Files\Common Files\Borland Shared\Images\Buttons

Каждый файл каталога включает два рисунка (NumGlyphs=2) для отображения обычного и неактивного состояния кнопки.

По желанию разработчика местоположение пиктограммы на рабочей поверхности кнопки изменяется при помощи свойства:

property Layout: TButtonLayout;

type TButtonLayout = (blGlyphLeft, blGlyphRight, blGlyphTop, blGlyphBottom);

По умолчанию пиктограмма расположена слева от заголовка кнопки (Layout

= blGlyphLeft). Расстояние (в пикселах) от края кнопки до границы пиктограммы определяется свойством:

property Margin: Integer;

Расстояние между пиктограммой и текстом заголовка кнопки изменяется

в свойстве:

property Spacing: Integer;

За стиль кнопки отвечает свойство:

property Style: TButtonStyle;

type TButtonStyle = (bsAutoDetect, bsWin31, bsNew);

Это не что иное, как наследие времен перехода с ОС Windows 3.1 на ОС

Win32. Свойство предназначено для обеспечения обратной совместимости

проектов различных версий Delphi.