Навигация
Главная
Поиск
Форум
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
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Создание отчето... 65061
Модуль Forms 64836
Пример работы с... 63237
ТЕХНОЛОГИИ ДОСТ... 61550
Имитационное мо... 57390
Реклама
Сейчас на сайте
Гостей: 10
На сайте нет зарегистрированных пользователей

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

Информационная система - транспортный парк на Turbo Pascal (База данных)...
База данных студентов на Turbo Pascal (Списки) + Пояснительная записка
Расчет размера дохода на одного человека в Turbo Pascal

Реклама



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

ПОДПИСЫВАЙСЯ на канал о программировании
Элементы коллекции CommandBars




Рассмотрим свойства коллекции CommandBars. Как и любая коллекция, она
содержит типичные свойства и методы. Свойство Count содержит количест-
во элементов коллекции, метод Add позволяет добавить новый элемент кол-
лекции (панель элементов управления), метод Item(i) возвращает ссылку на
элемент коллекции. К специфическим свойствам относятся те, которые по-
зволяют задавать режим отображения элементов коллекции. В табл. 16.1
представлены свойства и методы коллекции панелей элементов управления.
Таблица 16.1. Свойства и методы коллекции CommandBars

Рассмотрим некоторые свойства коллекции CommandBars, например, свой-
ства, определяющие общие визуальные характеристики панелей и элементов
управления. Свойство LargeButtons коллекции позволяет устанавливать раз-
меры кнопок на всех панелях (большие или маленькие). Для выбора боль-
шого размера кнопок установим значение этого свойства в True, для выбора
малого размера — в False. По умолчанию это свойство имеет значение False.
Следующая процедура позволяет задать большой размер для кнопок.
Изменение размера кнопок
procedure TForm1.LargeButtonsClick(Sender: TObject);
begin
E.CommandBars.LargeButtons:=LargeButtons.Checked;
end;



Выполнив данную процедуру, мы получим результат, который не нуждается
в комментариях и представлен на рис. 16.2.

Рис. 16.2. Выбраны большие кнопки для панелей управления
Другами общими свойствами коллекции CommandBars являются два свойства
логического типа, управляющие режимом подсказок для кнопок панелей.
Свойство DisplayTooltips определяет, включена или отключена всплываю-
щая подсказка. Свойство DisplayKeysInTooltips определяет присутствие в
подсказке сочетания "горячих" клавиш (этот режим в Excel не используется).
Изменение отображения режима подсказок определяется установкой этих
свойств в определенные состояния, что можно выполнить в приложении
Delphi. Рассмотрим следующую процедуру.
Изменение режима подсказок для кнопок
procedure TForm1.DisplayTooltipsClick(Sender: TObject);
begin
E.CommandBars.DisplayTooltips:=DisplayTooltips.Checked;
end;



На рис. 16.3 показана форма, использующая данную процедуру, а на
рис. 16.4 — главное окно Excel, в котором видна подсказка для кнопки
Открыть.

Рис. 16.3. Фрагмент формы приложения Delphi Рис. 16.4. Отображение подсказки для кнопки Открыть

Рассмотрим свойства коллекции, отображающие состояние элементов
управления, — ActionControl и ActiveMenuBar. Они являются ссылками на
объекты-элементы коллекции и позволяют определить, какой элемент пане-
ли активен (т. е. какая кнопка запустила на выполнение команду) и какая
панель, содержащая меню, активна в настоящее время. Далее представлен
исходный текст процедуры, которая возвращает и отображает имя панели,
на которой размещено активное меню.
Получение названия активного меню
procedure TForml.Buttonl6Click(Sender: TObject);
var name_:string;
begin
name_:=E.CommandBars.ActiveMenuBar.Name;
messagebox(handle,pchar(name_),'',0);
end;



Коллекция CommandBars также включает в себя список панелей управле-
ния, доступ к которым осуществляется с помощью метода Item(i), где i —
индекс или имя панели. Этот метод возвращает ссылку на элемент коллек-
ции.
Получим список всех элементов коллекции CommandBars. Для этого, ис-
пользуя свойство Count коллекции и свойство Name элемента коллекции,
загрузим список элементов в объект типа TCheckListBox (список с флажка-
ми). Свойство Name имеет строковый тип и представляет собой имя эле-
мента. Его можно использовать для доступа к любому элементу коллекции
так же, как индекс, имеющий числовой тип. Рассмотрим следующую про-
цедуру.
Получение списка панелей
procedure TOKBottomDlg2.FormCreate(Sender: TObject);
var a_:integer;
eee : string;
begin
COMMANDBARS:=Form1.E.COMMANDBARS;
for a_:=l to COMMANDBARS.Count do begin
eee_:=COMMANDBARS.Item[aJ.name+' = '+COMMANDBARS.Item[a_].NameLocal;
CheckListBox1.Items.Add(eee_);
CheckListBox1.Checked[a_-l]:=CommandBars.Item[a_].Visible;
end;
end;



Данная процедура, последовательно перебирая все элементы коллекции,
загружает их имена в объект CheckListBoxl.
После этого можно загрузить значения двух свойств элемента коллекции:
NameLocal — определяет имя, отображаемое в заголовке панели, которое
соответствует национальной версии Excel (в данном случае — русскоязыч-
ной версии); Visible — определяет режим отображения элемента в окне
Excel. Далее, после загрузки, перемещаясь по списку имен загруженных
в CheckListBoxl элементов, можно получить и изменить значения некото-
рых свойств выбранной панели. Можно использовать и другие свойства,
например Position, Left, Top, Width, Height:Integer (положение и размеры
панели) и Rowlndex:lnteger (номер строки, которую занимает панель, когда
панели собраны в какой-либо части главного окна). Если панель содержит
кнопки или другие элементы управления, то свойство Builtln.Boolean нахо-
дится в состоянии True, иначе — в состоянии False. Context:String — свой-
ство панели, которое содержит строку со ссылкой на файл шаблона. Свой-
ство Protection:Integer определяет режим защиты панели от изменений со
стороны пользователя. Возможные значения этого свойства, а также свойст-
ва Position описаны в Приложении 1.
Рассмотрим исходный текст процедуры, позволяющей скрывать/отображать
выбранные панели с помощью свойства Visible панели.
Выбор панели элементов управления и задание ее отображения
procedure TOKBottomDlg2.CheckListBoxlClick(Sender: TObject);
begin
try
CommandBars.Item[CheckListBoxl.Itemlndex+l].Visible:=
CheckListBoxl.Checked[CheckListBoxl.Itemlndex];
except
CheckListBoxl.Checked[CheckListBoxl.Itemlndex]:=
not CheckListBoxl.Checked[CheckListBoxl.Itemlndex];
messagebox(handle,'Ошибка изменения свойства Visible!','Внимание!',0);
end;
end;



Обработка исключительных ситуаций позволяет управлять значением свой-
ства Checked в случаях возникновения ошибок. На рис. 16.5 представлена
форма, которая отображает список элементов коллекции CommandBars
главного окна приложения Excel и позволяет изменять положение панелей
управления, выбранных в списке.

Рис. 16.5. Отображение списка панелей, изменение положения панели
Для управления положением панели предназначено свойство Position. Оно
имеет тип Integer, может принимать одно из нескольких значений констант
и определяет положение панели в главном окне редактора Excel. Панели
могут располагаться вдоль верхней, нижней, левой или правой стороны это-
го окна, а также в центральной части окна. В табл. 16.2 представлены кон-
станты, соответствующие различным положениям панели в главном окне
Excel.
Таблица 16.2. Возможные положения панели


Для изменения положения панели достаточно в свойство Position записать
то или иное значение, указанное в табл. 16.2, например, с помощью сле-
дующей процедуры.
Изменение положения панели
procedure TOKBottomDlg2.PositionClick(Sender: TObject);
begin
try
CommandBars.Item[CheckListBoxl.Itemlndex+l].Position:=Position.Itemlndex;
except
Position.Itemlndex:=CommandBars.Item[CheckListBoxl.Itemlndex+l].Position;
end;
end;



Обратите внимание на то, что в этой процедуре используется обработка ис-
ключительной ситуации. Это необходимо в тех случаях, когда положение
панели не может быть изменено. В таких случаях состояние объекта Position
будет восстановлено в первоначальное состояние. Используя эту процедуру,
изменим, положение панели Стандартная и поместим ее вдоль левой сторо-
ны главного окна (рис. 16.6).
Отметим некоторые особенности расположения панелей в главном окне
приложения Excel. He каждая панель может принимать все возможные по-
ложения, для некоторых панелей допустимы только определенные положе-
ния, а остальные являются недопустимыми. Для того чтобы выяснить, мож-
но или нельзя изменить положение панели, достаточно проанализировать
значение свойства Туре элемента коллекции CommandBars. Если значение
этого свойства равно msoBarTypeNormal, то панель может быть расположе-
на в центральной части главного окна (как обычное окно) или пристыкова-
на к одной из сторон главного окна (кроме некоторых панелей, например,
Цвет заливки). Если свойство Туре имеет другое значение, то расположить
панель можно только определенным образом.

Рис. 16.6. Изменение положения панели Стандартная
Панель Цвет заливки может находиться только в виде дочернего окна в
главном окне приложения (ее нельзя пристыковать к одной из сторон глав-
ного окна). При попытке изменить положение этой панели мы получим
ошибку выполнения, при этом панель останется на своем месте. В таких
случаях желательно обрабатывать ошибку с выводом сообщения пользовате-
лю, используя программные скобки try ... except, либо проверять свойство
Туре и затем изменять позицию панели. В следующем примере использует-
ся второй способ.
Использование свойства type
CoimandBar:=CommandBars.Item[CheckListBoxl.Itemlndex+l];
If CommandBar.Type=msoBarTypeNormal then
CommandBar.Position:=Position.Itemlndex;



На рис. 16.7 отображена панель Цвет заливки. Ее нельзя пристыковать к
какой-либо стороне главного окна, несмотря на то, что для нее значение
свойства Туре равно msoBarTypeNormal (т. е. 0).

Рис. 16.7. Отображаем панель Цвет заливки
В случае, когда панель не может быть размещена вдоль какой-либо стороны
главного окна (представляет собой дочернее окно), положение панели опре-
деляется только ее координатами. Для изменения координат используем
свойства Left и Тор.
Изменение горизонтальной координаты панели
procedure TOKBottomDlg2.Button3Click(Sender: TObject);
begin
CommandBar.Left:=ComraandBar.Left-10;
end;
procedure T0KBottomDlg2.Button3Click(Sender: TObject);
begin
CommandBar.Left: =CommandBar.Left+10;
end;



Используя представленные процедуры, мы сможем перемещать панель в
левую или в правую часть главного окна (рис. 16.8).

Рис. 16.8. Перемещаем панель вправо
Иногда требуется запретить или ограничить доступ пользователя к той или
иной панели. Ограничение доступа к панели может быть как полным, так и
частичным. Например, нужно заблокировать для пользователя возможность
перемещения панели. Для этих целей используем свойство Protection (тип
Integer), при этом способ блокировки определяется значением этого свойст-
ва и задается определенными константами или их комбинациями.
Рассмотрим еще одно свойство панели, позволяющее активировать/деакти-
вировать панель в главном окне приложения Excel. Свойство Enabled пане-
лей имеет тип Boolean и определяет возможность доступа пользователя к
ним. Когда свойство Enabled имеет значение False, пользователь не может
пользоваться данной панелью (она вообще не отображается). Если изменить
значение этого поля и установить его в True, то панель будет доступна и
займет свое прежнее место в главном окне приложения Excel.
Этими свойствами удобно пользоваться, чтобы блокировать доступ пользо-
вателя к некоторым элементам управления. Рассмотрим следующую про-
цедуру.
Отключение отображения панелей управления
procedure ToKBottomDlg2.CheckBoxlClick(Sender: TObject);
var a_:integer;
begin
for a_:=l to CommandBars.Count do
CommandBars.Item[a_].Enabled:=CheckBoxl.Checked;
end;



Данная процедура, перебирая все элементы коллекции CommandBars, уста-
навливает их свойства Enabled либо в значение True, либо в значение False.
Воспользуемся ею и установим для всех панелей свойство Enabled в значе-
ние False. Результат представлен на рис. 16.9.

Рис. 16.9. Отключаем отображение панелей управления
Мы рассмотрели некоторые свойства встроенных панелей приложения
MS Excel. Есть возможность программно создавать и удалять пользователь-
ские панели и меню. Работа со встроенными панелями и меню имеет неко-
торые особенности, например их нельзя удалить.
Далее рассмотрим создание пользовательской панели (или меню).
Опубликовал Kest October 05 2009 00:51:57 · 0 Комментариев · 9733 Прочтений · Для печати

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


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



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

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

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

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

Пароль



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

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

Случайные загрузки
Основы программир...
VksButton
PHP в примерах
WordReport
Delphi. Готовые а...
«Философия» прогр...
Win-Prolog 3.618
DS_Group
Удаление своего EXE
Панель Календарь
Фундаментальные а...
Email
В.Понамарев - COM...
Обучение Borland ...
Fig [Исходник на ...
Strawberry Prolog...
Библия хакера 2 К...
Шаблон для новост...
Пример клиента ФТ...
32 урока по Delphi

Топ загрузок
Приложение Клие... 100466
Delphi 7 Enterp... 86616
Converter AMR<-... 20077
GPSS World Stud... 12635
Borland C++Buil... 11753
Borland Delphi ... 8555
Turbo Pascal fo... 7037
Visual Studio 2... 4998
Калькулятор [Ис... 4759
FreeSMS v1.3.1 3541
Случайные статьи
Как пользоваться м...
Очереди с приорите...
Установка программ...
L2TP требует, чтоб...
Игра «Шахматы» [Vi...
Компьютерный форум.
Урок 1. Урок рисов...
Использование карк...
Исходя из сценария...
Power
Подсистема VM
Оператор Repeat; W...
Абстрактная реализ...
File access denied
"(" expected
Чтение сообщения и...
совместимый со ста...
Виды Интернет Рекл...
10 основных способ...
Получение XML-схем...
Порождение класса ...
Сведения, которые ...
Прямой метод решен...
по всему лесу
Основные игры в он...
Статистика



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


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