Заливка ячейки определяется комбинацией следующих составляющих —
цвета, узора и цвета узора, заполняющего пространство ячейки. Программ-
ный доступ к параметрам заливки обеспечивает свойство Interior объекта
Range, где Range — ссылка на ячейку или область. Свойство Interior пред-
ставляет собой объект, свойства которого связаны с визуальными свойства-
ми внутреннего пространства ячейки.
РИС. 12.26. Настройка параметров границы ячейки
Цвет заливки определяется свойством Color объекта Interior и задается как
комбинация трех цветов:
C o l o r : = R G B ( R , G, В ) ;
где R, G, В — числовые значения, соответствующие красному, зеленому и
синему цветам. Цвет заливки можно также задать как выбранный на цвето-
вой палитре — для этого используется свойство Colorlndex объекта Interior.
Выберем цвет заливки, записав в свойство Color значение цветовой комби-
нации. Для этого используем следующую процедуру.
Задание цвета заливки ячейки
procedure TOKBottomDlg7.ButtonlClick(Sender: TObject);
begin
if not ColorDialogl.Execute then exit;
Interior.Color:=ColorDialogl.Color;
end;
Результат выполнения этой процедуры представлен на рис. 12.27.
Узор заливки области ячейки определяется свойством Pattern, а его цвет —
свойством PatternColor объекта Interior. Цвет также можно выбрать на цве-
товой палитре Excel путем записи в свойство PatternColorlndex индекса вы-
бранного цвета.
Рис. 12.27. Выбор цвета заливки ячейки
Выбор узора заливки ячейки
procedure TOKBottomDlg7.PatternChange(Sender: TObject);
begin
case Pattern.Itemlndex of
0:Interior.Pattern:=xlPatternGrid;
1:Interior.Pattern:=xlPatternNone;
2:Interior.Pattern:=xlPatternCrissCross;
end;
end;
procedure TOKBottomDlg7.Button2Click(Sender: TObject);
begin
if not ColorDialog1.Execute then exit;
Interior.PatternColor:=ColorDialogl.Color;
end;
Узор заливки определяется выбором одного из всех возможных вариантов и
задается числовой константой, которая записывается в свойство Pattern. На
рис. 12.28 представлен пример выбора узора ячейки и его цвета, осуществ-
ленного с помощью приведенных процедур.
Рис. 12.28. Выбор узора заливки ячейки
|