Графика
Начерталка

Математика

Лабы

Visual Foxpro 7 Электронный учебник Курс лекций начало

 

Создание панели инструментов

Панели инструментов являются неотъемлемой частью приложений Windows. Visual FoxPro также позволяет разрабатывать класс панели инструментов и применять его при создании объекта панели инструментов. Этот объект может использоваться в формах для управления перемещением по записям, поиска данных и т. п.

В качестве примера создадим класс панели инструментов, предназначенный для просмотра данных таблицы. На панели содержатся кнопки перемещения по записям и выхода из формы. Выполните следующие действия:

  1. Откройте проект sales.
  2. В окне проекта перейдите на вкладку Classes (Классы) и нажмите кнопку New (Новый).
  3. В диалоговом окне New Class (Новый класс) выберите базовый класс Toolbar (Панель управления), введите имя класса bcTabieTooiBar и укажите пользовательскую библиотеку классов ForForms, а затем нажмите кнопку ОК. В окне конструктора классов появляется панель инструментов, не содержащая ни одного объекта.
  4. Используя ранее созданные классы кнопок, разместите на создаваемой панели инструментов графические кнопки перемещения по записям и выхода из формы (рис. 19.29).
gl19-30.jpg

Рис. 19.29. Создание класса панели управления для перемещения по записям таблицы

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

  1. Откройте проект sales.
  2. В окне проекта перейдите на вкладку Classes (Классы) и нажмите кнопку New (Новый).
  3. В открывшемся диалоговом окне New Class (Новый класс) в поле ввода Class Name (Имя класса) введите имя создаваемого класса bcSingleTableToolbar. Из списка Based On (Базовый класс) выберите базовый класс Form (Форма), а затем в поле ввода Store In (Сохранить в) введите имя библиотеки классов Forms (Формы), в которой будет храниться создаваемый класс.
  4. Разместите в форме текст заголовка и объект Grid (Таблица).
  5. Нам необходимо создать в форме объект типа "панель" инструментов на основе созданного в предыдущем примере класса. Для этого определите новое свойство oTooiBar формы, выполнив команду New Property (Новое свойство) из меню Class (Класс), а затем в методе Activate (Активизация) формы создайте объект типа "панель инструментов" и отобразите его на экране:

* Создаем панель инструментов

_screen.ActiveForm.oToolBar=CREATEOBJECT("bcTableToolBar")

* Отображаем панель инструментов на экране

__screen.ActiveForm. oTooiBar. Show ()

  1. Сохраните созданный класс и закройте окно конструктора классов.
  2. Теперь приступим к созданию формы на основе созданного в этом примере класса. Для этого откройте диалоговое окно Options (Параметры), перейдите на вкладку Forms (Формы) и установите в поле ввода Form (Форма) имя пользовательского класса bcsingieTabieTooibar из библиотеки Forms (Формы).
  3. Откройте проект sales.
  4. В окне проекта выберите вкладку Documents (Документы), перейдите в раздел Forms (Формы) и нажмите кнопку New (Новый). На экране откроется окно конструктора форм, которое содержит объекты класса bcsingieTabieTooibar. Обратите внимание на то, что в форме панель инструментов отсутствует. Она создается при запуске формы на выполнение,
  5. Выберите текстовый объект, расположенный в верхней части формы, и измените его свойство caption (Надпись), введя Просмотр информации о клиентах,
  6. Добавьте в окружение формы таблицу customer.
  7. Установите свойства объекта Grid (Таблица). Для этого свяжите столбцы таблицы с полями таблицы customer и определите заголовки столбцов.
  8. На этом создание формы заканчивается. Сохраните ее и запустите на выполнение.

Совет

Если при запуске данной формы на выполнение появляется сообщение о том, что класс не найден, вам необходимо в методе Activate (Активизация) формы перед созданием объекта типа "панель инструментов" вставить команду SET CLASSLIB то с указанием папки расположения класса.

Delphi 7
Использование возможностей Shell API Помимо стандартных компонентов отображения данных в VCL Delphi имеются дополнительные компоненты, которые позволяют представлять данные в виде кросстаба. При этом заставить работать кросстаб с двумя и более полями почти так же просто, как и обычный компонент TDBGrid. Эти компоненты расположены на странице Decision Cube Палитры компонентов.
Использование возможностей Shell API
Понятие пространства имен
Размещение значка приложения на System Tray
Интерфейс IShellLink
Интерфейс IShellFolder
Добавление пунктов в системное контекстное меню

Машиностроительное черчение, инженерная графика, начертательная геометрия. Выполнение контрольной