Линии границы объекта коллекции 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. Выбор стиля разрыва линии границы надписи
Опубликовал Kest
September 23 2009 07:15:58 ·
0 Комментариев ·
5875 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
Нет комментариев.
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
