Линии границы объекта коллекции Shapes в общем и надписи (объекта
TextBox) в частности могут выглядеть по-разному и определяются свойства-
Рис. 8.9. Пример использования штриховки в качестве фона надписи
ми объекта Line, принадлежащего элементу коллекции Shapes. Граница объ-
екта может быть невидимой, если значение свойства Visible равно О
(WordTextBox.Line.Visible:=0). Если свойству Visible присвоить значение —I,
то линия станет видимой. Наиболее часто используются свойства объекта
Line, определяющие толщину и цвет линий. Если линия границы имеет
толщину больше одного пиксела, то можно задать прозрачность цвета
(свойство Transparency). В этом случае линия будет выглядеть как точки,
между которыми есть просвет. Рассмотрим следующий исходный текст.
Задание видимости, толщины и цвета линии границы надписи
procedure TOKBottomDlg4.CheckBox2Click(Sender: TObject);
begin
if CheckBox2.Checked then WordTextBox.Line.Visible:=-l
else WordTextBox.Line.Visible:=0;
end;
procedure TOKBottomDlg4.ButtonlClick(Sender: TObject);
begin
if not ColorDialogl.Execute then exit;
WordTextBox.Line.ForeColor.RGB:=ColorDialogl.Color;
end;
procedure TOKBottomDlg4.SpinButtonlDownClick(Sender: TObject);
begin
WordTextBox.Line.Weight:=WordTextBox.Line.Weight-0. 25 ;
end;
procedure TOKBottomDlg4.SpinButton2DownClick(Sender: TObject);
begin
if WordTextBox.Line.Transparency
WordTextBox.Line.Transparency:=WordTextBox.Line.Transparency+O.01;
end;
Первая процедура задает видимость границы объекта, вторая определяет ее
цвет, присваивая значение цвета в формате RGB свойству ForeColor.RGB.
Третья процедура определяет толщину линии границы, присваивая ее зна-
чение свойству WordTextBox.Line.Weight, которое имеет тип Extended. По-
следняя процедура определяет прозрачность линии и задает для свойства
Line.Transparency значение от 0 до 1, имеющее тип Extended. Применяя эти
процедуры, мы можем получить результат, который может быть, например,
таким, как показано на рис. 8.10.
Рис. 8.10. Выбор толщины и цвета линии границы надписи
Для задания вида линии можно использовать узор из набора возможных
вариантов. Узор определяется целочисленной константой, которая записы-
вается в поле Line.Pattern. Используя это свойство, запишем значение кон-
станты, выбрав его как индекс элемента управления Pattern:TComboBox
(комбинированный список).
Выбор узора для линии границы надписи
WordTextBox.Line.Pattern:=Pattern.Itemlndex+l;
Результат изменений представлен на рис. 8.11.
Рис. 8.11. Выбор узора для линии границы надписи
Если линия границы представлена не в виде узора, а в виде сплошной ли-
нии, то можно дополнительно задать тип линии и ее шаблон. Тип линии
определяется присваиванием целочисленной константы свойству Line.Style.
Если это свойство установить в значение msoLineSingle=0, то получится
сплошная линия. Если этот стиль нас не устраивает, то используем следую-
щую процедуру.
Задание стиля линии границы надписи
procedure TOKBottomDlg4.StyleChange(Sender: TObject);
begin
WordTextBox.Line.Style:=Style.Itemlndex+l;
end;
С помощью этой процедуры мы можем изменить стиль линии, например,
как показано на рис. 8.12.
Шаблон линии определяется присваиванием целочисленной константы
свойству Line.DashStyle надписи. Если это свойство установить в значение
msoLineSolid=0, то линия будет сплошной, без разрывов. Если нужно вы-
брать другой шаблон линии, то данному свойству можно присвоить значе-
ние другой константы из списка возможных.
Рис. 8.12. Выбор стиля линии границы надписи
Выбор вида разрыва для линии границы надписи
procedure TOKBottomDlg4.DashStyleChange(Sender: TObject);
begin
WordTextBox.Line.DashStyle:=DashStyle.Itemlndex+l;
end;
Пример результата выполнения этой процедуры показан на рис. 8.13.
Рис. 8.13. Выбор стиля разрыва линии границы надписи |
Главная
Каталог файлов
