Разработка прикладных программ для ОС WINDOWS с помощью интегрированных сред Delphi / C++Builder. Баканов В.М. - 75 стр.

                                      - 75 -


   Для использования предопределенных форм из галлереи следует выпол-
нить File|Remove File для удаления пустой формы из проекта и выбрать фор-
му из галлереи путем File|New Form и выбора нужной формы из списка. Для
сохранения собственной разработанной формы в галлерее следует вызвать
окно Save Form Template (путем нажатия правой кнопки 'мыши' и выбора
варианта Save As Template), выбрать из списка сохраняемую в виде шаблона
форму и ввести ее краткое описание. Классический пример шаблона формы -
форма About с информацией о данном приложении и фирме-разработчике.


10. ПРИМЕР СОЗДАНИЯ РЕАЛЬНОГО ПРИЛОЖЕНИЯ В Delphi

   Приведем пример разработки несложного (имеющего всего одну форму)
приложения - утилиты просмотра графических файлов, создаваемого (доста-
точно квалифицированным разработчиком) с помощью Delphi за несколько
минут.
   На рис.21 приведена копия экрана дисплея в DesignTime; на форме рас-
положены компоненты TPanel и (дочерний по отношению к TPanel компо-
нент TImage, причем свойство Align компонента TImage установлено в al-
Client, что гарантирует 'заполнение' компонентом TImage всего пространст-
ва компонента TPanel при любом изменении размеров последнего) и три
компонента TBitBtn (кнопки), для выбора файла изображения присутствует
TOpenDialog. Ниже приведен текст единственного Pascal-модуля
UNIT_1.PAS со спроектированными процедурами. Заметим, что разработчи-
ком написаны только тела процедур BitBtn1Click, BitBtn2Click и
BitBtn3Click (обработчики нажатий на кнопки Файл, Масштаб и Выход
соответственно); все остальное создано Delphi в период проектирования при-
ложения.

Unit Unit_1;

interface

uses
 SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics,
 Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls;

type TForm_1 = class(TForm)
 Panel1: TPanel;
 Image1: TImage;
 BitBtn1:TBitBtn;
 BitBtn2: TBItBtn;
 BitBtn3: TBitBtn;
 OpenDialog1: TOpenDialog;