|
Страница 18 из 59
Компонент THeader TObject—>TPersistent—>TComponent—”TControl—”-TWinControl—” —>TCustoinControl—”THeader Модуль EXTCTRLS Страница Палитры компонентов Additional Этот компонент представляет собой заголовок, например, ддя таблицы, т. е. совокупность расположенных горизонтально полей (секций) с текстом, ширина которых может изменяться. Заголовок разделен на столько секций (столбцов), сколько строк имеется в свойстве: (Pb) property Sections: TStrings; Каждая строка отображается в своей секции. Если свойство: (Pb) property AllowResize: Boolean; установлено в True, то ширина каждой секции может быть изменена во время работы при помощи передвижения разделительной линии мышью. При этом значение ширины для секции Х соответствует элементу массива: (Pb) property SectionWidth[X: Integer]: Integer; С изменением ширины секции связано два события. При каждом перемещении мыши во время изменения возникает событие: (Pb) property OnSizing: TSeccionEvent; TSectionEvent = procedure(Sender: TObject; ASection, AWidth: Integer) of object; Оно означает, что произошло изменение ширины секции ASection и ее новая ширина равна AWidth. Об окончании изменения программист извещается при помощи события: (Pb) property OnSized: TSectionEvent; Стиль обрамления компонента обусловлен свойством: (Pb) property BorderStyle: TBorderStyle; |