Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Содержание сайт... 65535
Вызов хранимых ... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Организация зап... 64608
Создание потоко... 61703
Модуль Forms 61233
Создание отчето... 61175
ТЕХНОЛОГИИ ДОСТ... 57630
Пример работы с... 55125
Имитационное мо... 53021
Реклама
Сейчас на сайте
Гостей: 10
На сайте нет зарегистрированных пользователей

Пользователей: 13,067
новичок: senata7
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Обратное размещение элементов ЭВС на Delphi + Пояснительная записка
Обработка задач на ЭВМ на GPSS + Пояснительная записка
Метод конечных разностей для интерполяции/экстраполяции на Delphi

Реклама



Подписывайся на YouTube канал о программировании, что бы не пропустить новые видео!

ПОДПИСЫВАЙСЯ на канал о программировании
Выравнивание текста в ячейке



Отображаемое значение можно разместить в ячейке Excel по-разному.
Обычно способ размещения соответствует типу и величине значения ячей-
ки. Для числовых данных текст смещен к правой границе, а для строко-
вых — к левой границе ячейки, но бывают исключения. Исключения из
правил определяются требованиями, предполагающими эффективное ото-
бражение информации для более полного ее восприятия. В таких случаях и
используют свойства ячейки, позволяющие задать режимы горизонтального
и вертикального выравнивания, установить режимы переноса по словам и
автоподбора ширины, а также выбрать угол поворота текста.
Рассмотрим эти свойства. Следующий программный код задает режимы го-
ризонтального и вертикального выравнивания текста по центру.
Выравнивание текста в ячейке
const
xlHAlignCenter = -4108;
xlVAlignCenter = -4108;
procedure TOKBottomDlg8.HorizontalAlignmentChange(Sender: TObject);
begin
range.HorizontalAlignment:=xlHAlignCenter;
end;
procedure TOKBottomDlg8.VerticalAlignmentChange(Sender: TObject);
begin
range.VerticalAlignment:=xlVAlignCenter;
end;



На рис. 12.20 представлен результат выравнивания текста по центру ячейки.

Рис. 12.20. Выравнивание текста в ячейке

Если длина текста превосходит ширину ячейки, то это может повлечь за
собой искажения отображения значения ячейки (см. рис. 12.20). Для реше-
ния этой проблемы можно воспользоваться режимом переноса по словам
или режимом автоматического подбора ширины текста по ширине ячейки.
Рассмотрим режим переноса по словам. Он включается, когда свойство
ячейки WrapText установлено в значение True, и отключается, когда свойст-
во WrapText установлено в значение False.
Перенос по словам
procedure TOKBottomDlg8.WrapTextClick(Sender: TObject);
begin
Range.WrapText:=WrapText.Checked;
end;



Режим переноса по словам позволяет разместить текст, как показано на
рис. 12.21.
В этом режиме высота ячейки автоматически изменяется в зависимости от
размера текста. Если текст в ячейке выравнивается по ее левой границе, то
можно задать величину отступа, определяемую свойством IndentLevel объек-
та Range. Оператор Range.IndentLevel=2; задает отступ от левой границы
ячейки в два пункта.


Рис. 12.21. Перенос текста по словам Рис. 12.22. Использование автоподбора ширины текста

Когда требуется, не изменяя размер ячейки, записать в нее текст, ширина
которого может превысить ширину ячейки, необходимо воспользоваться
свойством ShrinkToFit. Если установить это свойство в значение True, то
размер шрифта текста будет автоматически устанавливаться так, чтобы текст
по ширине всегда мог вписаться в ячейку (рис. 12.22).
Еще один способ изменения расположения текста в ячейке — его поворот.
Поворот текста, отображающего значение ячейки, определяется свойством
Orientation и может быть задан величиной от -90 до +90 градусов.
Поворот текста в ячейке
procedure TOKBottomDlg8.0rientationChange(Sender: TObject);
begin
Range.Orientation:=Orientation.Value;
end;



Результат выполнения представленной выше процедуры Delphi может вы-
глядеть, как показано на рис. 12.23. При программировании поворота текста
нужно учитывать, что шаг угла поворота составляет 1 градус в пределах
от —90 до +90 градусов.

Рис. 12.23. Поворот текста
Если длина текста, размещаемого в ячейке, настолько велика, что он не
может быть размещен там без существенных изменений размеров ячейки, а
по конкретным условиям задачи размеры строк и столбцов изменять нельзя,

Рис. 12.24. Объединение ячеек

то следует использовать режим объединения ячеек. Объединение ячеек осу-
ществляется установкой в значение True свойства MergeCells объекта Range,
ассоциированного с областью ячеек.
Объединение ячеек
procedure ToKBottomDlg9.MergeCellsClick(Sender: TObject);
begin
Range.MergeCells:=MergeCells.Checked;
end;



На рис. 12.24 приведен пример объединения группы ячеек с использовани-
ем представленной процедуры. Адрес объединенной ячейки соответствует
адресу левой верхней ячейки области, в которой выполнялось объединение.
Опубликовал Kest September 30 2009 00:15:28 · 0 Комментариев · 10318 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Нет комментариев.
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
Borland C++Builde...
Создание оригинал...
Обучение Borland ...
PDJ_Anima
Delphi 7 Enterpri...
Atb
CLR via C#
Dbgridpack
32 урока по Delphi
Tetris 2002
JanReplace
Xrumer 4 Platinum...
Пример работы с р...
Dealer
RxLIB
Последние загруж...
Visual Basic Script
PBEditPack
FormShape [Исходн...
Рисование PopupMenu

Топ загрузок
Приложение Клие... 100384
Delphi 7 Enterp... 83529
Converter AMR<-... 20051
GPSS World Stud... 11300
Borland C++Buil... 11233
Borland Delphi ... 8176
Turbo Pascal fo... 6987
Visual Studio 2... 4970
Калькулятор [Ис... 4416
FreeSMS v1.3.1 3516
Случайные статьи
Не оценивайте эксп...
Операции над множе...
ММ С.2.
Как вывести сайт и...
Построение двусвяз...
Багажный бокс
Обзор правил описа...
Исключения
Найти список изоли...
Сложная схема линк...
Выражения: операто...
Основные настройки...
Трехмерный объект ...
Какие маршруты соз...
Внешние и внутренн...
Установка адаптера...
memory_object_data...
LOOP (ОРГАНИЗОВАТЬ...
Програмное обеспеч...
Введение
Зонтпакер
Взаимодействия кла...
Краткий обзор инте...
AddRoundKey
Использование ICQ
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?