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

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

propertyKind: TBitBtnKind;

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

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

propertyGlyph: TBitmap;

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

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

propertyNumGlyphs: TNumGlyphs;

typeTNumGlyphs = 1..4;

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

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

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

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

propertyLayout: TButtonLayout;

typeTButtonLayout = (blGlyphLeft, blGlyphRight, blGlyphTop, blGlyphBottom);

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

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

propertyMargin: Integer;

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

в свойстве:

propertySpacing: Integer;

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

propertyStyle: TButtonStyle;

typeTButtonStyle = (bsAutoDetect, bsWin31, bsNew);

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

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

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