Гостевая книга Ассемблер Delphi

THeaderControl - управляющий заголовок.

Компонент THeaderControl представляет собой многоколончатый заголовок с регулируемыми размерами колонок (секций). Каждая колонка (секция) заголовка может содержать текст и/или графику. Компонент способен обрабатывать событие onResize, которое возникает при каждом изменении размеров любой секции. В ходе обработки этого события программа обычно соответствующим образом изменяет линейные размеры столбцов таблицы или подобной структуры, с которой связан компонент.

В программе, окно которой показано на рис. 18.30, компонент THeaderControl используется для управления положением и линейными размерами трех других компонентов. Для реализации программы выполните следующее:

  • Положите на пустую форму компоненты THeaderControl, ТЕ-dit, TMemo и TButton. По умолчанию HeaderControll .Align =alTop - убедитесь в этом и установите свойство, если это не так. Положение и размеры других компонентов не имеют значения.
  • Создайте такие обработчики событий OnCreate для формы Form1, а также OnResize и OnSectionResize для компонента HeaderControll:

Рис. 18.30. Пример использования компонента THeaderControl для управления положением и размерами других компонентов

const

Delta = 10;// Зазор между границами заголовка и компонентами

procedure TFormI.FormCreate(Sender: TObject);

var

HSection: THeaderSection;

k: Integer;

begin

// Создаем три секции заголовка:

with HeaderControll do

for k := 0 to 2 do

begin

HSection := Sections.Add;

HSection.Text := 'Секция №' + IntToStr(k);

HSection.Width := Forml.Width div 3;

HSection.MinWidth := 3 * Delta;

end;

end;

procedure Tform1.HeaderControllResize(Sender: TObject);

// Устанавливает положение и размеры компонентов

begin

with HeaderControll do

begin

Editl.Left := Delta;

Editl.Top := HeaderControll.Height + 1;

Editl.Width := Sections.Items[0].Width - 2 * Delta;

Memol.Left := Sections.Items[1].Left + Delta;

Memol.Top := HeaderControll.Height + 1;

Memol.Width := Sections.Items[1].Width - 2 * Delta;

Buttonl.Left := Sections.Items[2].Left + Delta;

Buttonl.Top := HeaderControll.Height + 1;

Buttonl.Width := Sections.Items[2].Width - 2 * Delta;

end

end;

procedure TFormI.HeaderControllSectionResize(

HeaderControl: THeaderControl; Section: THeaderSection);

begin

HeaderControllResize(Self)

end;

He забудьте определить в области видимости обработчиков FormCreate И HeaderControllResize глобальную константу Delta.

Для заголовка создается объект класса THeadersections, определяющий секции заголовка. Его свойство

property Items[Index: Integer]: THeaderSection;

открывает доступ к индексированным объектам-секциям класса THeaderSection. Свойства класса THeaderSection:

property Alignment: TAlignment;

Определяет выравнивание текста: taLeftJustify - прижат влево; taCenter - центрирован по горизонтали; taRight Justify - прижат вправо

property AllowClick:.Boolean;

Разрешает/запрещает генерацию события OnSectionClick при щелчке по секции

property Left: Integer;

 

Определяет положение левой границы секции относительно границ компонента (в пикселях)

property MaxWidth: Integer;

Определяет максимальную ширину секции в пикселях

property MinWidth: Integer;

Определяет минимальную ширину секции в пикселях

property Right: Integer;

Определяет положение правой границы секции относительно границ компонента (в пикселях)

THeaderSectionStyle = (hsText, hsOwnerDraw) ;

property Style: THeaderSectionStyle;

Определяет способ формирования секции: hsText - секция содержит только текст и изображается автоматически; hsOwnerDraw - секция прорисовывается программой

Property Width: Integer;

Содержит текущую ширину секции в пикселях

Метод function THeaderSections.Add: THeaderSection;

добавляет очередную секцию заголовка. Некоторые свойства класса THeaderSection:

property AllowClick: Boolean-property DisplayName: String; property Imagelndex: TImageIndex;

Если содержит True, разрешает щелкнуть по секции заголовка как по кнопке. В этом случае управление передается в обработчик события OnSectionClick Имя заголовка секции Указывает индекс изображения из хранилища images, которое будет появляться следом за текстом заголовка

property MaxWidth: Integer; property MinWidth: Integer; type THeaderSectionStyle == (hsText, hsOwnerDraw) ;

Определяет максимальную и минимальную ширину секции Определяет тип секции: hsText - секция содержит только текст; hsOwnerDraw - секция нуждается в программной прорисовке

property Style: THeaderSectionStyle; property Text: String;

Содержит текст секции

 

Свойства Компонента THeaderControl:

property Canvas: TCanvas;

 

С помощью этого свойства можно изображать графику в секциях заголовка

property HotTrack: Boolean;

Разрешает/запрещает цвето выделение секции, над которой располагается указатель мыши

property Sections: THeaderSections;

Содержит секции заголовка

 

 

 Для компонента определены следующие события:

TDrawSectionEvent = procedure( Header-Control: THeaderControl; Section: THeaderSection; const Rect: TRect; Pressed: Boolean) of object; property OnDrawSection: TDrawSectionEvent;

Возникает при необходимости прорисовать секцию, для которой установлен СТИЛЬ hsOwnerDraw: Section - объект-секция; Rect - прямоугольник прорисовки;Pressed -признак нажатой кнопки мыши

property OnResize: TNotifyEvent;

 

TSectionNotifyEvent = procedure( Head-

erControl: THeaderControl; Section:

THeaderSection) of object;

property OnSectionCli.ck: TSectionNoti

fyEvent;

Возникает при изменении размеров компонента возникает при щелчке мышью по секции Section  

 

TSectionNotifyEvent = procedure( Head-

erControl: THeaderControl; Section:

THeaderSection) of object;

property OnSectionResize: TSectionNo tifyEvent;

Возникает при изменении размеров секции Section  

 

 

TSectionTrackState = (tsTrackBegin,

tsTrackMove, tsTrackEnd) ;

TSectionTrackEvent = procedure( Head-

erControl: THeaderControl; Section:

THeaderSection; Width: Integer; State:

TSectionTrackState) of objects-

property OnSectionTrack: TSection

TrackEvent;

Возникает при изменении размеров секции и позволяет обработать три возможных состояния:

tsTrackBegin - начало переме

щения границы;tsTrackMove -

идет перемещение границы;

tsTrackEnd - конец перемещения

границы

назад - Вперёд