70996

Розробка навчальної програми для вивчення Delphi

Курсовая

Информатика, кибернетика и программирование

Мета роботи: створити програму для вивчення Delphi з ілюстраціями та прикладами того, що можна робити з її компонентами. Завдання роботи: викласти навчальний матеріал про середовище програмування Delphi, його основні вікна та компоненти з можливістю наглядної демонстрації...

Украинкский

2014-10-31

887 KB

3 чел.

57

ПРИВАТНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД

ЕКОНОМІКО – ПРАВОВИЙ ТЕХНІКУМ при МАУП

КУРСОВА    РОБОТА

З ДИСЦИПЛІНИ „Основи програмування та алгоритмічні мови”

ТЕМА : „ Розробка навчальної програми для вивчення Delphi

ПОЯСНЮВАЛЬНА  ЗАПИСКА ДО КУРСОВОЇ РОБОТИ

(ШИФР КУРСОВОЇ РОБОТИ: 5.0804005, ЕПТ-09-06-КПР (3,10д),№75/1-0 від (12.10.2008,16))

                                                                                                                                          РОБОТУ ВИКОНАВ

                                                                                                                                           СТУДЕНТ ГР КПР-31    

                                                                                                                           Соболь Д. А.                                                                                                   

___________________

               (підпис)

                                                                                                                                           РОБОТУ ПЕРЕВІРИВ

                                                                                                                                                  Колесник Т. Г.

___________________

(підпис)

Київ 2009


Зміст

ВСТУП....................................................................................................................3

РОЗДІЛ І   Опис програми....................................................................................4

    1.1    Основні характеристики програми.........................................................4

    1.2    Опис використовуваних компонентів....................................................4

             1.2.1    Кнопки...........................................................................................4

             1.2.2    Надписи....... .................................................................................4

             1.2.3    Радіокнопки..................................................................................5

             1.2.4     Панелі...........................................................................................6

             1.2.5    Списки...........................................................................................6

             1.2.6    Багатосторінкові вікна.................................................................7

             1.2.7     Діалоги.........................................................................................8

             1.2.8    Малюнки.......................................................................................8

    1.3    Опис деяких цікавих процедур...............................................................8

РОЗДІЛ ІІ    Інструкції користувачеві................................................................11

ВИСНОВКИ.........................................................................................................15

СПИСОК ВИКОРИСТАНИХ ДЖЕРЕЛ............................................................17

ДОДАТОК А.  Блок-схема..................................................................................18   

ДОДАТОК Б.  Код програми..............................................................................19

Вступ

      Кожного дня на Землі збільшується кількість комп’ютерів. А вони працюють з програмами, кількість яких теж невпинно зростає. Всі програми написані з використанням мов програмування – С++, Delphi, Assembler та інші. Вивчення таких мов не дуже поступається складністю вивченню звичайних  людських. Це досить важкий та працемісткий процес.

      Для полегшення та спрощення створюються різні навчальні програми для швидшого вивчення мов програмування та створення приладжень за допомогою призначених для цього програм, що працюють з певними мовами програмування.

      Delphi – це об’єктно-орієнтоване середовище програмування з безліччю шаблонів компонентів для полегшення роботи користувача. Дана програма має дуже зручний інтерфейс і досить великі можливості. На мій погляд, це одна з найвдаліших програм не тільки компанії Borland, а й взагалі.

      Всі мови програмування мають свої відмінності, та взагалі, вони дуже схожі.

Тож якщо ви вивчите Delphi, у Вас буде гарна база для вивчення інших мов програмування. Якщо Ви раніше не мали досвіду роботи в подібних програмах,

то Delphi є прекрасною програмою, що на ній вчитися.

      В даній курсовій роботі розроблена інтерактивна навчальна програма з вивчення Delphi. Ця програма містить навчальні матеріали як по основній середі програмування, так і по деяким компонентам. Також є приклади того, що можна з ними робити.      

Мета роботи: створити програму для вивчення Delphi з ілюстраціями та прикладами того, що можна робити з її компонентами.

Завдання роботи: викласти навчальний матеріал про середовище програмування Delphi, його основні вікна та компоненти з можливістю наглядної демонстрації того, що можна з ними робити.      

РОЗДІЛ І    Опис програми

1.1    Основні характеристики програми

      Даний проект являє собою навчальну програму для вивчення основних вікон, меню, піктографічних кнопок та компонентів Delphi. Навчальний матеріал подано текстами та ілюстраціями, а для розглянутих компонентів

є приклади змін, які можна провести над ними.

      Приклади дають змогу не просто дивитися, що можна робити з компонентами, а самому провести ці зміни, бо дані приклади подано в якості комірок для введення даних, які пов’язані з прикладом цього компонента.

      Програма схожа на посібник. Матеріал поділено на теми. Перегортаючи сторінки, змінюються теми й з’являється відповідний матеріал.

  1.  Опис використовуваних компонентів

  1.  Кнопки

   Button                             “Кнопки” використовуються для створення кнопок,

                 котрими користувач викликає команди в приладженні.

                 Команди прописуються в процедурі коду компонента

                                      у вікні вікнi коду програми.

  1.  Надписи

   Label                              “Labelвикористовується для розміщення на формах              

                   та інших контейнерах тексту, котрий не змінюється       

                   користувачем.

  Memo                             “Memoвикористовується для вводу

                    багатострічкового  тексту. Можна розміщувати полоси  

                    прокрутки.

                                           

   Edit                                “Editвикористовується для вводу користувачем

                   однострічкових текстів. Може використовуватися для

                   відображення тексту.   

                              

SpinEdit                            “SpinEdit” є прикладом компонента, що

                 використовується для створення вікна редагування в

                 комбінації з кнопкою-лічильником.

  1.  Радіокнопки

RadioButton                     “RadioButton” пропонує користувачеві набір

                   альтернатив, з яких вибирається одна. Набір реалізується

                   затребуваною кількістю радіокнопок, розміщених в

                                     одному контейнері.

CheckBox                          “CheckBox” дозволяє користувачеві включати та

                   виключати різні опції.

  1.  Панелі

                                  

  Panel                               “Panel”  являється контейнером для групування

                    органів управління і менших контейнерів. Панель можна    

                   використовувати також для будування полос стану,      

                                     інструментальних панелей, палітр інструментів.             

RadioGroup                       “RadioGroup” є комбінацією групового вікна

                   GroupBox із набором радіокнопок RadioButton; слугує     

                   для  cтворення груп радіокнопок. Можна розміщувати й декілька радіокнопок, але жодні інші елементи управління не дозволені.

GroupBox                           “GroupBox” є контейнером, що обєднує групу

                    звязаних органів управління, таких як RadioButton,

                    CheckBox та інші.

1.2.5    Списки

 ListBox                             “ListBoxпредставляє собою стандартне вікно

                    списку Windows, що дозволяє користувачеві вибирати

                    розділи зі списку.

ComboBox                         “ComboBox” об’єднує функції ListBox i Edit.

                    Користувач може або ввести текст, або вибрати його

                    зі списку.

 ColorBox                           “ColorBox” є компонентом, подібним до ComboBox,

                 тільки він в собі має не текст, а кольори.

ScrollBox                            “ScrollBoxвикористовується для створення зон

                   із прокруткою.   

1.2.6    Багатосторінкові вікна

PageControl                       “PageControl” дозволяє створювати сторінки в стилі

                 Windows 95/98, що керуються закладками чи іншими ор-

                 ганами  керування, для економії місця на робочому столі.

TabSheet                            “TabSheet” – це сторінка, що входить до PageControl.

TabbedNotebook               “TabbedNotebook” використовується для створення

                   багатосторінкових  форм із закладками.

1.2.7    Діалоги

FontDialog                         “FontDialogпризначений для створення вікна діалогу

                  шрифтів – вибір атрибутів шрифта.

1.2.8    Малюнки

  Image                               “Imageвикористовується для відображення графіки:

                      піктограм, бітових файлів та метафайлів.

1.3    Опис деяких цікавих процедур

Процедура, що забороняє вводити літери у Edit:

Procedure TForm1.Edit1KeyPress(Sender: Tobject; var Key:

 Char); 

   VAR P, L : Byte;

     begin

  WITH Sender AS Tedit DO BEGIN

    L := Length(Text);      {Програма вираховує довжину тексту}

      P := Pos(‘.’, Text);  {Програма відшукує позицію крапки}

         END;

  CASE Key OF

    ‘0’..’9’ : IF (P>0) AND (L-P>1) THEN Key := #0;

                            {Програма пропускає цифри на вихід}

      ‘.’ : IF P > 0 THEN Key := #0;

                            {Програма пропускає крапку на вихід}

        #8 : {пробел};

          ELSE Key := #0;   {Всі інші символи не пропускає}      

            END;

              end;

    Ця процедура дає змогу заборонити програмі приймати символи крім цифр та крапки. Це дуже корисно, якщо в даний Edit, чи інший подібний компонент, користувач вводить координати чи розміри чогось. Адже якщо користувач запише там літеру, то програма висвітить помилку, а ця процедура позбавить Вас від цієї проблеми.

Процедура для перепитування виходу:

procedure Tform1.FormCloseQuery(Sender: Tobject; var   

 CanClose: Boolean);

   Begin

if MessageDlg(‘Ви вже вивчили Delphi?’,  

mtConfirmation, mbYesNoCancel, 0) = mrYes then

                                                         {Програма виводить віконце із запитанням    

                                                                                              та три кнопки-відповіді}

    CanClose := True   {Якщо натиснуто Yes, то здійснюється вихід}

  else

    CanClose := false; {Якщо натиснуто іншу кнопку, то програма    

end;                                                                                              не здійснює вихід}

     

  Дана процедура спрацьовує коли ви закриваєте програму. Вона виводить віконце, в котрому перепитує щось на зразок „ ХОЧЕТЕ ВИЙТИ ?” (користувач може задати будь-який однострічковий текст (в даному випадку „Ви вже вивчили Delphi?) ). А під запитанням є три кнопки-відповіді (Yes/No/Cancel).

Вийти можна натиснувши Yes”. Ця процедура корисна, коли Ви не бажаючи виходити, випадково натиснули „Хрестик”.

                           

РОЗДІЛ ІІ    Інструкції користувачеві

    Для правильної роботи даного продукту, Ваш комп’ютор має відповідати даним вимогам:

  •  Процесор Pentium ІІ або краще;
  •  Операційна система Windows 95 або вище;
  •  3 Мбайти вільної пам’яті або більше.

   Для запуску програми необхідно відкрити файл  VivDel.exe . Одразу ж зявиться вікно мал.1.

Мал.1

       Тут головне меню. Для входу в програму натисніть „Виконати програму”;

для виклику додаткової інформації – „HELP”, а для виходу – „Вихід”.

       Якщо Ви натиснете „HELP, то на екрані зявиться мал.2.

На ньому ми побачимо додаткову інформацію на синьому фоні.

Для повернення в головне меню, знизу зліва є кнопка – „Головне меню”.

Мал..2

            Кнопка                                                          Інформація

    „Головне меню”         

    Якщо Ви натиснете „Виконати програму”, то зявиться  вікно мал.3.

Це і є вікно програми. Зліва ви побачите список тем. Оберіть потрібну та натисніть на неї мишею. Тоді зявиться вікно з інформацією та прикладами по цій темі. Ще можна переключати теми за допомогою кнопок керування у нижньому правому куті екрану (Далі / Назад). В даному вікні теж є кнопка „Головне меню” (у правому нижньому куті). Вона також поверне Вас у головне меню.  

     Розглянемо випадок коли ви обрали тему „Надписи Label i StaticText”. Одразу ж зявиться вікно мал.4.

            Теми                             Вікно з інформацією по темі

Мал.3

           Кнопка                                                                     Кнопки керування

    „Головне меню”                                                                  сторінками

   

            Теми        Інформація по темі     Вводячи значення в ці поля, ви будете

                                                                   змінювати «приклад»

Мал.4

             Кнопка                                                                      Кнопки керування

     „Головне меню”                   Приклад                                    сторінками

    У сірому квадраті – „приклад”, який і буде змінюватись через ваші маніпуляції з розмірами та іншими командами. Для того, щоб краще бачити зміни, доцільніше було б не вводити дуже великі значення. У інших тем може бути й більше команд для зміни прикладу. Це визначається обраним в темі компонентом.

Висновки

    Підбиваючи підсумки з виконаної роботи, я можу стверджувати, що ця програма є непоганим посібником з Delphi.

    В цій програмі викладено чималу кількість інформації про Delphi, а саме:

піктографічні кнопки, основні вікна середовища, компоненти з поясненнями та прикладами в яких користувач має можливість сам вводити дані та бачити, як змінився даний приклад  та інше.

    Зважаючи на позитивні відгуки від колег та друзів, я роблю висновок, що ця програма розроблена вдало. А розроблена вона у середовищі програмування Delphi7.

    Дивлячись на структуру програми, можна побачити, що вона розроблена з використанням не малої кількості компонентів, які поєднані між собою за допомогою процедур.

    Даний продукт має досить універсальний код. Тобто його можна вдосконалювати, виправляти та доповнювати, не змінюючи основного тексту програми.

    Плюсами даної програми є те, що вона запускається без інсталяції та не потребує встановлення Delphi. Також є плюсом те, що Можна переходити від теми до теми без повернення в головне меню, а просто клацнувши на потрібну тему зі списку тем. Можливість переходити по темах за допомогою кнопок внизу екрану та кнопка виходу в головне меню без повторного запуску програми теж є вагомим плюсом до зручності даного продукту.   

    В перспективі дане приладження буде вдосконалюватись, а саме:

  •  Збільшиться кількість тем та розглядуваних компонентів;
  •  Покращиться інтерфейс;
  •  Буде більше можливостей роботи із „прикладами”;
  •  Поясненння про компоненти  буде додано більш детально;
  •  Буде додано інформацію про коди програм з поясненнями, прикладами та можливістю поекспериментувати над ними;
  •  Будуть і дані про підключувані модулі (Uses) та типи (Types);
  •  Додасться інформація й про типи змінних із детальними поясненнями та прикладами роботи з ними;
  •  Буде додано можливість запрограмувати якийсь компонент та подивитись, як він працюватиме;
  •  Добавиться справочне меню;
  •  Добавиться розділ для нотаток чи побажань;
  •  Буде додано й основи мови програмування Delphi;
  •  Додадеться кнопка переходу до попередньо вибраної сторінки.

     З даної програми можна підкреслити для себе, що Delphi має досить великі можливості, зручний користувацький інтерфейс і що працювати та починати навчання  об’єктно-орієнтованому програмуванню  в Delphi не важко.

Список використаних джерел

1.     Культин Н. Delphi 4. Программирование на Object Pascal. BHV, Санкт-  

       Петербург, 1999.

2.     Дэн Оузьер и др. Delphi 3. Освой самостоятельно. М.: “Издательство   

       БИНОМ”, 1998 г.

3.     Бондарев В. М., Рублинецкий В. И., Качко Е. Г. Основы   

       программирования. Харьков: Фолио; Ростов н/Д: Феникс, 1998 г.

4.     Справочная система Delphi

5.     Фаронов В. В. Delphi 4. Учебный курс. М.: «Нолидж», 1999 г.

6.      WWW.Studzona.com (Internet-сайт)

7.      Культин Н. „Основи програмування в Delphi7” „Санки-Петербург” 2007.

8.      М.Фленов – Библия Delphi, Санки-Петербург 2005.

9.      Сухареп М.В. – Основы Delphi. Санки-Петербург 2004.

10.     www.allbest.ru (Internet-сайт)

11.     www.referat-911.ru (Internet-сайт)

                                              

   ДОДАТОК   А.

Блок-схема

ДОДАТОК   Б.

Код програми

unit Unit1;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

 Dialogs, StdCtrls, ComCtrls, ExtCtrls, ColorGrd, jpeg, Spin, TabNotBk,

 Buttons;

type

 TForm1 = class(TForm)

   TabbedNotebook1: TTabbedNotebook;

   Panel1: TPanel;

   Button1: TButton;

   Button2: TButton;

   Button3: TButton;

   Panel2: TPanel;

   Image1: TImage;

   ListBox1: TListBox;

   Panel4: TPanel;

   Label1: TLabel;

   Panel3: TPanel;

   Panel8: TPanel;

   Image31: TImage;

   Edit19: TEdit;

   Edit20: TEdit;

   Edit22: TEdit;

   Image32: TImage;

   Button5: TButton;

   Memo14: TMemo;

   FontDialog1: TFontDialog;

   FontDialog2: TFontDialog;

   FontDialog3: TFontDialog;

   PageControl1: TPageControl;

   TabSheet1: TTabSheet;

   ScrollBox1: TScrollBox;

   Image2: TImage;

   Label15: TLabel;

   Image3: TImage;

   Label16: TLabel;

   Image4: TImage;

   Label17: TLabel;

   Image5: TImage;

   Image6: TImage;

   Image7: TImage;

   Image8: TImage;

   Image9: TImage;

   Image10: TImage;

   Image11: TImage;

   Image12: TImage;

   Image13: TImage;

   Image14: TImage;

   Image15: TImage;

   Image16: TImage;

   Image17: TImage;

   Image18: TImage;

   Image19: TImage;

   Image20: TImage;

   Image22: TImage;

   Image23: TImage;

   Image24: TImage;

   Image25: TImage;

   Image26: TImage;

   Image21: TImage;

   Image27: TImage;

   Label18: TLabel;

   Image28: TImage;

   Image29: TImage;

   Label19: TLabel;

   Label20: TLabel;

   Image30: TImage;

   Label21: TLabel;

   Memo4: TMemo;

   Memo5: TMemo;

   Memo6: TMemo;

   Memo8: TMemo;

   Memo7: TMemo;

   Memo9: TMemo;

   Memo10: TMemo;

   Memo11: TMemo;

   TabSheet2: TTabSheet;

   Memo1: TMemo;

   TabSheet3: TTabSheet;

   Label2: TLabel;

   Label3: TLabel;

   Label6: TLabel;

   Label9: TLabel;

   Memo2: TMemo;

   Panel5: TPanel;

   Button4: TButton;

   GroupBox1: TGroupBox;

   Label4: TLabel;

   Label5: TLabel;

   Edit1: TEdit;

   Edit2: TEdit;

   GroupBox4: TGroupBox;

   CheckBox1: TCheckBox;

   CheckBox2: TCheckBox;

   GroupBox2: TGroupBox;

   Label7: TLabel;

   Label8: TLabel;

   Label13: TLabel;

   Label50: TLabel;

   ColorBox1: TColorBox;

   Edit3: TEdit;

   Edit6: TEdit;

   GroupBox3: TGroupBox;

   Label10: TLabel;

   Label11: TLabel;

   Label12: TLabel;

   Edit4: TEdit;

   Edit5: TEdit;

   Button6: TButton;

   TabSheet4: TTabSheet;

   Label22: TLabel;

   Label23: TLabel;

   Label24: TLabel;

   Label25: TLabel;

   Memo3: TMemo;

   Panel6: TPanel;

   Label35: TLabel;

   GroupBox5: TGroupBox;

   Label26: TLabel;

   Label27: TLabel;

   Edit7: TEdit;

   Edit8: TEdit;

   GroupBox6: TGroupBox;

   Label28: TLabel;

   Label29: TLabel;

   Label30: TLabel;

   Label51: TLabel;

   ColorBox2: TColorBox;

   Edit9: TEdit;

   Edit10: TEdit;

   GroupBox7: TGroupBox;

   Label32: TLabel;

   Label33: TLabel;

   Label34: TLabel;

   Edit11: TEdit;

   Edit12: TEdit;

   GroupBox8: TGroupBox;

   CheckBox3: TCheckBox;

   CheckBox4: TCheckBox;

   Button7: TButton;

   TabSheet5: TTabSheet;

   TabSheet6: TTabSheet;

   TabSheet7: TTabSheet;

   TabSheet8: TTabSheet;

   Memo15: TMemo;

   Memo12: TMemo;

   Panel7: TPanel;

   RadioGroup1: TRadioGroup;

   Label14: TLabel;

   Label31: TLabel;

   Label36: TLabel;

   Label37: TLabel;

   GroupBox10: TGroupBox;

   Label40: TLabel;

   Label41: TLabel;

   Label42: TLabel;

   Edit15: TEdit;

   Edit16: TEdit;

   SpinEdit1: TSpinEdit;

   Label47: TLabel;

   Label49: TLabel;

   SpinEdit2: TSpinEdit;

   Label48: TLabel;

   Memo13: TMemo;

   GroupBox11: TGroupBox;

   Label43: TLabel;

   Label44: TLabel;

   Label45: TLabel;

   Label46: TLabel;

   ColorBox3: TColorBox;

   Edit17: TEdit;

   Edit18: TEdit;

   ColorBox4: TColorBox;

   Button8: TButton;

   GroupBox12: TGroupBox;

   CheckBox5: TCheckBox;

   CheckBox6: TCheckBox;

   GroupBox9: TGroupBox;

   Label38: TLabel;

   Label39: TLabel;

   Edit13: TEdit;

   Edit14: TEdit;

   Panel9: TPanel;

   Label53: TLabel;

   Label54: TLabel;

   GroupBox13: TGroupBox;

   Label55: TLabel;

   Label56: TLabel;

   Edit21: TEdit;

   Edit23: TEdit;

   GroupBox14: TGroupBox;

   CheckBox7: TCheckBox;

   CheckBox8: TCheckBox;

   GroupBox15: TGroupBox;

   Label57: TLabel;

   Label58: TLabel;

   Label59: TLabel;

   Label60: TLabel;

   ColorBox5: TColorBox;

   Edit24: TEdit;

   Edit25: TEdit;

   Label61: TLabel;

   Label62: TLabel;

   GroupBox16: TGroupBox;

   Label63: TLabel;

   Label64: TLabel;

   Label65: TLabel;

   Edit26: TEdit;

   Edit27: TEdit;

   Button9: TButton;

   Edit28: TEdit;

   FontDialog4: TFontDialog;

   Memo16: TMemo;

   FontDialog5: TFontDialog;

   Panel10: TPanel;

   Label66: TLabel;

   Label67: TLabel;

   Label68: TLabel;

   Label69: TLabel;

   GroupBox17: TGroupBox;

   Label70: TLabel;

   Label71: TLabel;

   Label72: TLabel;

   Edit29: TEdit;

   Edit30: TEdit;

   GroupBox18: TGroupBox;

   Label73: TLabel;

   Label74: TLabel;

   Label75: TLabel;

   Label76: TLabel;

   ColorBox6: TColorBox;

   Edit32: TEdit;

   GroupBox19: TGroupBox;

   Label77: TLabel;

   Label78: TLabel;

   Edit33: TEdit;

   Edit34: TEdit;

   GroupBox20: TGroupBox;

   CheckBox9: TCheckBox;

   CheckBox10: TCheckBox;

   Memo17: TMemo;

   Button10: TButton;

   Memo18: TMemo;

   GroupBox21: TGroupBox;

   ComboBox1: TComboBox;

   Label52: TLabel;

   ColorBox7: TColorBox;

   Label79: TLabel;

   Memo19: TMemo;

   Label80: TLabel;

   Panel11: TPanel;

   Label82: TLabel;

   Label83: TLabel;

   Label84: TLabel;

   GroupBox22: TGroupBox;

   Label85: TLabel;

   Label86: TLabel;

   Label87: TLabel;

   Edit31: TEdit;

   Edit35: TEdit;

   GroupBox23: TGroupBox;

   Label88: TLabel;

   Label89: TLabel;

   Label90: TLabel;

   Label91: TLabel;

   ColorBox8: TColorBox;

   Edit36: TEdit;

   Edit37: TEdit;

   GroupBox24: TGroupBox;

   Label92: TLabel;

   Label93: TLabel;

   Edit38: TEdit;

   Edit39: TEdit;

   GroupBox25: TGroupBox;

   CheckBox11: TCheckBox;

   CheckBox12: TCheckBox;

   Button11: TButton;

   CheckBox13: TCheckBox;

   FontDialog6: TFontDialog;

   GroupBox26: TGroupBox;

   Label81: TLabel;

   ColorBox9: TColorBox;

   CheckBox14: TCheckBox;

   TabSheet0: TTabSheet;

   ScrollBox2: TScrollBox;

   Image33: TImage;

   Label94: TLabel;

   Image34: TImage;

   Label95: TLabel;

   Image35: TImage;

   Label96: TLabel;

   Image36: TImage;

   Image37: TImage;

   Image38: TImage;

   Image39: TImage;

   Image40: TImage;

   Image41: TImage;

   Image42: TImage;

   Image43: TImage;

   Image44: TImage;

   Image45: TImage;

   Image46: TImage;

   Image47: TImage;

   Image48: TImage;

   Image49: TImage;

   Image50: TImage;

   Image51: TImage;

   Image52: TImage;

   Image53: TImage;

   Image54: TImage;

   Image55: TImage;

   Image56: TImage;

   Image57: TImage;

   Image58: TImage;

   Label97: TLabel;

   Image59: TImage;

   Image60: TImage;

   Label98: TLabel;

   Label99: TLabel;

   Image61: TImage;

   Label100: TLabel;

   Memo20: TMemo;

   Memo21: TMemo;

   Memo22: TMemo;

   Memo23: TMemo;

   Memo24: TMemo;

   Memo25: TMemo;

   Memo26: TMemo;

   Memo27: TMemo;

   procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

   procedure ListBox1Click(Sender: TObject);

   procedure Edit1Change(Sender: TObject);

   procedure Edit1KeyPress(Sender: TObject; var Key: Char);

   procedure ColorBox1Change(Sender: TObject);

   procedure ColorBox2Change(Sender: TObject);

   procedure ColorBox3Change(Sender: TObject);

   procedure ColorBox4Change(Sender: TObject);

   procedure ColorBox5Change(Sender: TObject);

   procedure ColorBox6Change(Sender: TObject);

   procedure ColorBox8Change(Sender: TObject);

   procedure Button2Click(Sender: TObject);

   procedure Button1Click(Sender: TObject);

   procedure Edit2Change(Sender: TObject);

   procedure Edit2KeyPress(Sendere: TObject; var Keye: Char);

   procedure Edit3Change(Sender: TObject);

   procedure Edit9Change(Sender: TObject);

   procedure Edit24Change(Sender: TObject);

   procedure Memo18Change(Sender: TObject);

   procedure Edit4Change(Sender: TObject);

   procedure Edit5Change(Sender: TObject);

   procedure Edit4KeyPress(Sender: TObject; var Key: Char);

   procedure Edit5KeyPress(Sender: TObject; var Key: Char);

   procedure Edit6Change(Sender: TObject);

   procedure Edit6KeyPress(Sender: TObject; var Key: Char);

   procedure Edit10Change(Sender: TObject);

   procedure Edit10KeyPress(Sender: TObject; var Key: Char);

   procedure Edit37Change(Sender: TObject);

   procedure Edit37KeyPress(Sender: TObject; var Key: Char);

   procedure Edit32Change(Sender: TObject);

   procedure Edit32KeyPress(Sender: TObject; var Key: Char);

   procedure Edit25Change(Sender: TObject);

   procedure Edit25KeyPress(Sender: TObject; var Key: Char);

   procedure CheckBox1Click(Sender: TObject);

   procedure CheckBox2Click(Sender: TObject);

   procedure CheckBox3Click(Sender: TObject);

   procedure CheckBox4Click(Sender: TObject);

   procedure CheckBox5Click(Sender: TObject);

   procedure CheckBox6Click(Sender: TObject);

   procedure CheckBox7Click(Sender: TObject);

   procedure CheckBox8Click(Sender: TObject);

   procedure CheckBox9Click(Sender: TObject);

   procedure CheckBox10Click(Sender: TObject);

   procedure CheckBox11Click(Sender: TObject);

   procedure CheckBox12Click(Sender: TObject);

   procedure Edit7Change(Sender: TObject);

   procedure Edit7KeyPress(Sender: TObject; var Key: Char);

   procedure Edit21Change(Sender: TObject);

   procedure Edit33Change(Sender: TObject);

   procedure Edit33KeyPress(Sender: TObject; var Key: Char);

   procedure Edit38Change(Sender: TObject);

   procedure Edit38KeyPress(Sender: TObject; var Key: Char);

   procedure Edit21KeyPress(Sender: TObject; var Key: Char);

   procedure Edit8Change(Sender: TObject);

   procedure Edit8KeyPress(Sendere: TObject; var Keye: Char);

   procedure Edit39Change(Sender: TObject);

   procedure Edit39KeyPress(Sendere: TObject; var Keye: Char);

   procedure Edit34Change(Sender: TObject);

   procedure Edit34KeyPress(Sendere: TObject; var Keye: Char);

   procedure Edit23Change(Sender: TObject);

   procedure Edit23KeyPress(Sendere: TObject; var Keye: Char);

   procedure Edit11Change(Sender: TObject);

   procedure Edit11KeyPress(Sender: TObject; var Key: Char);

   procedure Edit31Change(Sender: TObject);

   procedure Edit31KeyPress(Sender: TObject; var Key: Char);

   procedure Edit29Change(Sender: TObject);

   procedure Edit29KeyPress(Sender: TObject; var Key: Char);

   procedure Edit26Change(Sender: TObject);

   procedure Edit26KeyPress(Sender: TObject; var Key: Char);

   procedure Edit12Change(Sender: TObject);

   procedure Edit12KeyPress(Sender: TObject; var Key: Char);

   procedure Edit35Change(Sender: TObject);

   procedure Edit35KeyPress(Sender: TObject; var Key: Char);

   procedure Edit30Change(Sender: TObject);

   procedure Edit30KeyPress(Sender: TObject; var Key: Char);

   procedure Edit36Change(Sender: TObject);

   procedure Edit27Change(Sender: TObject);

   procedure Edit27KeyPress(Sender: TObject; var Key: Char);

   procedure Edit13Change(Sender: TObject);

   procedure Edit13KeyPress(Sender: TObject; var Key: Char);

   procedure Edit14Change(Sender: TObject);

   procedure Edit14KeyPress(Sendere: TObject; var Keye: Char);

   procedure Edit15Change(Sender: TObject);

   procedure Edit15KeyPress(Sender: TObject; var Key: Char);

   procedure Edit16Change(Sender: TObject);

   procedure Edit16KeyPress(Sender: TObject; var Key: Char);

   procedure Edit17Change(Sender: TObject);

   procedure Edit18Change(Sender: TObject);

   procedure Edit18KeyPress(Sender: TObject; var Key: Char);

   procedure SpinEdit1Change(Sender: TObject);

   procedure SpinEdit2Change(Sender: TObject);

   procedure Memo13Change(Sender: TObject);

   procedure RadioGroup1Click(Sender: TObject);

   procedure PageControl1Change(Sender: TObject);

   procedure Button3Click(Sender: TObject);

   procedure Button5Click(Sender: TObject);

   procedure Edit19Click(Sender: TObject);

   procedure Edit20Click(Sender: TObject);

   procedure Edit22Click(Sender: TObject);

   procedure Button6Click(Sender: TObject);

   procedure Button7Click(Sender: TObject);

   procedure Button8Click(Sender: TObject);

   procedure Button9Click(Sender: TObject);

   procedure Button10Click(Sender: TObject);

   procedure Button11Click(Sender: TObject);

   procedure ComboBox1Change(Sender: TObject);

   procedure ColorBox7Change(Sender: TObject);

   procedure CheckBox14Click(Sender: TObject);

   procedure CheckBox13Click(Sender: TObject);

   procedure ColorBox9Change(Sender: TObject);

 private

   { Private declarations }

 public

   { Public declarations }

 end;

var

 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ListBox1Click(Sender: TObject);

begin

 case form1.ListBox1.ItemIndex of

0:begin

   form1.PageControl1.ActivePageIndex := 1;

 end;

1:begin

   form1.PageControl1.ActivePageIndex := 2;

 end;

2:begin

   form1.PageControl1.ActivePageIndex := 3;

 end;

3:begin

   form1.PageControl1.ActivePageIndex := 4;

 end;

4:begin

   form1.PageControl1.ActivePageIndex := 5;

 end;

5:begin

   form1.PageControl1.ActivePageIndex := 6;

 end;

6:begin

   form1.PageControl1.ActivePageIndex := 7;

 end;

7:begin

   form1.PageControl1.ActivePageIndex := 8;

 end;

8:begin

   form1.PageControl1.ActivePageIndex := 9;

 end;end; end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

 ??????????????????????????????????????????????

?????

?

????????????????????????????????????????????????????????????????

?????????????????

 ??????

??????????????????????? ??????

???????????????????

?????????????????????

 ?????

????????????

 ????????????????????????????????????????????????

 ???????????????????????????????

    #8 : {пробел};

ELSE Key := #0;

 END; end;

procedure TForm1.Edit32KeyPress(Sender: TObject; var Key: Char);

VAR P, L : Byte;

 begin

WITH Sender AS TEdit DO BEGIN

L := Length(Text);

P := Pos('.', Text);

 END;

CASE Key OF

 '0'..'9' : IF (P>0) AND (L-P>1) THEN Key := #0;

 '.' : IF P > 0 THEN Key := #0;

   #8 : {пробел};

ELSE Key := #0;

 END; end;

procedure TForm1.Edit7Change(Sender: TObject);

begin

 form1.label35.Width  := strtoint(edit7.Text);

end;

procedure TForm1.Edit38Change(Sender: TObject);

beg???

 ??????????????????????????????????????????????????

?????

?

????????????????????????????????????????????????

??????

 ??????????????????????????????????????????????

?????

?

????????????????????????????????????????????????

??????

 ??????????????????????????????????????????????

?????

?

????????????????????????????????????????????????????????????????

?????????????????

 ??????

??????????????????????? ??????

???????????????????

?????????????????????

 ?????

????????????

 ????????????????????????????????????????????????

 '.' : IF P > 0 THEN Key := #0;

   #8 : {пробел};

ELSE Key := #0;

 END; end;

procedure TForm1.Edit38KeyPress(Sender: TObject; var Key: Char);

VAR P, L : Byte;

 begin

WITH Sender AS TEdit DO BEGIN

L := Length(Text);

P := Pos('.', Text);

 END;

CASE Key OF

 '0'..'9' : IF (P>0) AND (L-P>1) THEN Key := #0;

 '.' : IF P > 0 THEN Key := #0;

   #8 : {пробел};

ELSE Key := #0;

 END; end;

procedure TForm1.Edit33KeyPress(Sender: TObject; var Key: Char);

VAR P, L : Byte;

 begin

WITH Sender AS TEdit DO BEGIN

L := Length(Text);

P := Pos('.', Text);

 END;

CASE Key OF

 '0'..'9' : IF (P>0) AND (L-P>1) THEN Key := #0;

 '.' : IF P > 0 THEN Key := #0;

   #8 : {пробел};

ELSE Key := #0;

 END; end;

procedure TForm1.Edit21KeyPress(Sender: TObject; var Key: Char);

VAR P, L : Byte;

 begin

WITH Sender AS TEdit DO BEGIN

L := Length(Text);

P := Pos('.', Text);

 END;

CASE Key OF

 '0'..'9' : IF (P>0) AND (L-P>1) THEN Key := #0;

 '.' : IF P > 0 THEN Key := #0;

   #8 : {пробел};

ELSE Key := #0;

 END;end;

procedure TForm1.Edit13Change(Sender: TObject);

begin

 form1.RadioGroup1.Width  := strtoint(edit13.Text);

end;

procedure TForm1.Edit13KeyPress(Sender: TObject; var Key: Char);

VAR P, L : Byte;

 begin

WITH Sender AS TEdit DO BEGIN

L := Length(Text);

P := Pos('.', Text);

 END;

CASE Key OF

 '0'..'9' : IF (P>0) AND (L-P>1) THEN Key := #0;

 '.' : IF P > 0 THEN Key := #0;

   #8 : {пробел};

ELSE Key := #0;

 END;end;

procedure TForm1.ColorBox1Change(Sender: TObject);

begin

 form1.Button4.Font.Color := ColorBox1.Selected;

    end;

procedure TForm1.ColorBox2Change(Sender: TObject);

begin

 form1.label35.Font.Color := ColorBox2.Selected;

    end;

procedure TForm1.ColorBox8Change(Sender: TObject);

begin

 form1.CheckBox13.Font.Color := ColorBox8.Selected;

    end;

procedure TForm1.ColorBox6Change(Sender: TObject);

begin

 form1.memo17.Font.Color := ColorBox6.Selected;

   end;

procedure TForm1.ColorBox5Change(Sender: TObject);

begin

 form1.edit28.Font.Color := ColorBox5.Selected;

   end;

procedure TForm1.ColorBox3Change(Sender: TObject);

begin

 form1.RadioGroup1.Font.Color := ColorBox3.Selected;

   end;

procedure TForm1.ColorBox4Change(Sender: TObject);

begin

 form1.RadioGroup1.Color := ColorBox4.Selected;

   end;

procedure TForm1.Button2Click(Sender: TObject);

begin

 form1.PageControl1.TabIndex:=form1.PageControl1.TabIndex+1;

 Form1.ListBox1.ItemIndex:=Form1.ListBox1.ItemIndex+1;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

 form1.PageControl1.TabIndex:=form1.PageControl1.TabIndex-1;

 Form1.ListBox1.ItemIndex:=Form1.ListBox1.ItemIndex-1;

end;

procedure TForm1.Edit2Change(Sender: TObject);

begin

 form1.Button4.Height :=strtoint(edit2.Text);

end;

procedure TForm1.Edit2KeyPress(Sendere: TObject; var Keye: Char);

VAR Pe, Le : Byte;

 begin

WITH Sendere AS TEdit DO BEGIN

Le := Length(Text);

Pe := Pos('.', Text);

 END;

CASE Keye OF

 '0'..'9' : IF (Pe>0) AND (Le-Pe>1) THEN Keye := #0;

 '.' : IF Pe > 0 THEN Keye := #0;

   #8 : {пробел};

ELSE Keye := #0;

 END;end;

procedure TForm1.Edit8Change(Sender: TObject);

begin

 form1.label35.Height :=strtoint(edit8.Text);

end;

procedure TForm1.Edit39Change(Sender: TObject);

begin

 form1.CheckBox13.Height :=strtoint(edit39.Text);

end;

procedure TForm1.Edit23Change(Sender: TObject);

begin

 form1.edit28.Height :=strtoint(edit23.Text);

end;

procedure TForm1.Edit8KeyPress(Sendere: TObject; var Keye: Char);

VAR Pe, Le : Byte;

 begin

WITH Sendere AS TEdit DO BEGIN

Le := Length(Text);

Pe := Pos('.', Text);

 END;

CASE Keye OF

 '0'..'9' : IF (Pe>0) AND (Le-Pe>1) THEN Keye := #0;

 '.' : IF Pe > 0 THEN Keye := #0;

   #8 : {пробел};

ELSE Keye := #0;

 END;end;

procedure TForm1.Edit39KeyPress(Sendere: TObject; var Keye: Char);

VAR Pe, Le : Byte;

 begin

WITH Sendere AS TEdit DO BEGIN

Le := Length(Text);

Pe := Pos('.', Text);

 END;

CASE Keye OF

 '0'..'9' : IF (Pe>0) AND (Le-Pe>1) THEN Keye := #0;

 '.' : IF Pe > 0 THEN Keye := #0;

   #8 : {пробел};

ELSE Keye := #0;

 END;end;

procedure TForm1.Edit34KeyPress(Sendere: TObject; var Keye: Char);

VAR Pe, Le : Byte;

 begin

WITH Sendere AS TEdit DO BEGIN

Le := Length(Text);

Pe := Pos('.', Text);

 END;

CASE Keye OF

 '0'..'9' : IF (Pe>0) AND (Le-Pe>1) THEN Keye := #0;

 '.' : IF Pe > 0 THEN Keye := #0;

   #8 : {пробел};

ELSE Keye := #0;

 END;end;

procedure TForm1.Edit34Change(Sender: TObject);

begin

 form1.memo17.Height :=strtoint(edit34.Text);

end;

procedure TForm1.Edit23KeyPress(Sendere: TObject; var Keye: Char);

VAR Pe, Le : Byte;

 begin

WITH Sendere AS TEdit DO BEGIN

Le := Length(Text);

Pe := Pos('.', Text);

 END;

CASE Keye OF

 '0'..'9' : IF (Pe>0) AND (Le-Pe>1) THEN Keye := #0;

 '.' : IF Pe > 0 THEN Keye := #0;

   #8 : {пробел};

ELSE Keye := #0;

 END;end;

procedure TForm1.Edit14Change(Sender: TObject);

begin

 form1.RadioGroup1.Height :=strtoint(edit14.Text);

end;

procedure TForm1.Edit14KeyPress(Sendere: TObject; var Keye: Char);

VAR Pe, Le : Byte;

 begin

WITH Sendere AS TEdit DO BEGIN

Le := Length(Text);

Pe := Pos('.', Text);

 END;

CASE Keye OF

 '0'..'9' : IF (Pe>0) AND (Le-Pe>1) THEN Keye := #0;

 '.' : IF Pe > 0 THEN Keye := #0;

   #8 : {пробел};

ELSE Keye := #0;

 END;end;

procedure TForm1.Edit3Change(Sender: TObject);

begin

 form1.Button4.Caption :=edit3.text;

end;

procedure TForm1.Edit9Change(Sender: TObject);

begin

 form1.label35.Caption :=edit9.text;

end;

procedure TForm1.Edit36Change(Sender: TObject);

begin

 form1.CheckBox13.Caption :=edit36.text;

end;

procedure TForm1.Memo18Change(Sender: TObject);

begin

 form1.memo17.Lines :=memo18.Lines;

end;

procedure TForm1.Edit24Change(Sender: TObject);

begin

 form1.edit28.Text :=edit24.text;

end;

procedure TForm1.Edit17Change(Sender: TObject);

begin

 form1.    RadioGroup1.Caption :=edit17.text;

end;

procedure TForm1.Edit4Change(Sender: TObject);

begin

 form1.Button4.Left :=strtoint(edit4.Text);

end;

procedure TForm1.Edit5Change(Sender: TObject);

begin

 form1.Button4.Top :=strtoint(edit5.Text);

end;

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);

VAR P, L : Byte;

 begin

WITH Sender AS TEdit DO BEGIN

L := Length(Text);

P := Pos('.', Text);

 END;

CASE Key OF

 '0'..'9' : IF (P>0) AND (L-P>1) THEN Key := #0;

 '.' : IF P > 0 THEN Key := #0;

   #8 : {пробел};

ELSE Key := #0;

 END;end;

procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);

VAR P, L : Byte;

 begin

WITH Sender AS TEdit DO BEGIN

L := Length(Text);

P := Pos('.', Text);

 END;

CASE Key OF

 '0'..'9' : IF (P>0) AND (L-P>1) THEN Key := #0;

 '.' : IF P > 0 THEN Key := #0;

   #8 : {пробел};

ELSE Key := #0;

 END;end;

procedure TForm1.Edit11Change(Sender: TObject);

begin

 form1.label35.Left :=strtoint(edit11.Text);

end;

procedure TForm1.Edit31Change(Sender: TObject);

begin

 form1.CheckBox13.Left :=strtoint(edit31.Text);

end;

procedure TForm1.Edit29Change(Sender: TObject);

begin

 form1.memo17.Left :=strtoint(edit29.Text);

end;

procedure TForm1.Edit26Change(Sender: TObject);

begin

 form1.edit28.Left :=strtoint(edit26.Text);

end;

procedure TForm1.Edit15Change(Sender: TObject);

begin

 form1.RadioGroup1.Left :=strtoint(edit15.Text);

end;

procedure TForm1.Edit12Change(Sender: TObject);

begin

 form1.label35.Top :=strtoint(edit12.Text);

end;

procedure TForm1.Edit35Change(Sender: TObject);

begin

 form1.CheckBox13.Top :=strtoint(edit35.Text);

end;

procedure TForm1.Edit30Change(Sender: TObject);

begin

 form1.memo17.Top :=strtoint(edit30.Text);

end;

procedure TForm1.Edit27Change(Sender: TObject);

begin

 form1.edit28.Top :=strtoint(edit27.Text);

end;

procedure TForm1.Edit30KeyPress(Sender: TObject; var Key: Char);

VAR P, L : Byte;

 begin

WITH Sender AS TEdit DO BEGIN

L := Length(Text);

P := Pos('.', Text);

 END;

CASE Key OF

 '0'..'9' : IF (P>0) AND (L-P>1) THEN Key := #0;

 '.' : IF P > 0 THEN Key := #0;

   #8 : {пробел};

ELSE Key := #0;

 END;end;

procedure TForm1.Edit11KeyPress(Sender: TObject; var Key: Char);

VAR P, L : Byte;

 begin

WITH Sender AS TEdit DO BEGIN

L := Length(Text);

P := Pos('.', Text);

 END;

CASE Key OF

 '0'..'9' : IF (P>0) AND (L-P>1) THEN Key := #0;

 '.' : IF P > 0 THEN Key := #0;

   #8 : {пробел};

ELSE Key := #0;

 END;end;

procedure TForm1.Edit31KeyPress(Sender: TObject; var Key: Char);

VAR P, L : Byte;

 begin

WITH Sender AS TEdit DO BEGIN

L := Length(Text);

P := Pos('.', Text);

 END;

CASE Key OF

 '0'..'9' : IF (P>0) AND (L-P>1) THEN Key := #0;

 '.' : IF P > 0 THEN Key := #0;

   #8 : {пробел};

ELSE Key := #0;

 END;end;

procedure TForm1.Edit29KeyPress(Sender: TObject; var Key: Char);

VAR P, L : Byte;

 begin

WITH Sender AS TEdit DO BEGIN

L := Length(Text);

P := Pos('.', Text);

 END;

CASE Key OF

 '0'..'9' : IF (P>0) AND (L-P>1) THEN Key := #0;

 '.' : IF P > 0 THEN Key := #0;

   #8 : {пробел};

ELSE Key := #0;

 END;end;

procedure TForm1.Edit26KeyPress(Sender: TObject; var Key: Char);

VAR P, L : Byte;

 begin

WITH Sender AS TEdit DO BEGIN

L := Length(Text);

P := Pos('.', Text);

 END;

CASE Key OF

 '0'..'9' : IF (P>0) AND (L-P>1) THEN Key := #0;

 '.' : IF P > 0 THEN Key := #0;

   #8 : {пробел};

ELSE Key := #0;

 END;end;

procedure TForm1.Edit15KeyPress(Sender: TObject; var Key: Char);

VAR P, L : Byte;

 begin

WITH Sender AS TEdit DO BEGIN

L := Length(Text);

P := Pos('.', Text);

 END;

CASE Key OF

 '0'..'9' : IF (P>0) AND (L-P>1) THEN Key := #0;

 '.' : IF P > 0 THEN Key := #0;

   #8 : {пробел};

ELSE Key := #0;

 END;end;

procedure TForm1.Edit12KeyPress(Sender: TObject; var Key: Char);

VAR P, L : Byte;

 begin

WITH Sender AS TEdit DO BEGIN

L := Length(Text);

P := Pos('.', Text);

 END;

CASE Key OF

 '0'..'9' : IF (P>0) AND (L-P>1) THEN Key := #0;

 '.' : IF P > 0 THEN Key := #0;

   #8 : {пробел};

ELSE Key := #0;

 END;end;

procedure TForm1.Edit35KeyPress(Sender: TObject; var Key: Char);

VAR P, L : Byte;

 begin

WITH Sender AS TEdit DO BEGIN

L := Length(Text);

P := Pos('.', Text);

 END;

CASE Key OF

 '0'..'9' : IF (P>0) AND (L-P>1) THEN Key := #0;

 '.' : IF P > 0 THEN Key := #0;

 #8 : {пробел};

ELSE Key := #0;

 END;end;

procedure TForm1.Edit27KeyPress(Sender: TObject; var Key: Char);

VAR P, L : Byte;

 begin

WITH Sender AS TEdit DO BEGIN

L := Length(Text);

P := Pos('.', Text);

 END;

CASE Key OF

 '0'..'9' : IF (P>0) AND (L-P>1) THEN Key := #0;

 '.' : IF P > 0 THEN Key := #0;

   #8 : {пробел};

ELSE Key := #0;

 END;end;

procedure TForm1.Edit16Change(Sender: TObject);

begin

 form1.RadioGroup1.Top :=strtoint(edit16.Text);

end;

procedure TForm1.Edit16KeyPress(Sender: TObject; var Key: Char);

VAR P, L : Byte;

 begin

WITH Sender AS TEdit DO BEGIN

L := Length(Text);

P := Pos('.', Text);

 END;

CASE Key OF

 '0'..'9' : IF (P>0) AND (L-P>1) THEN Key := #0;

 '.' : IF P > 0 THEN Key := #0;

   #8 : {пробел};

ELSE Key := #0;

 END;end;

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

 form1.button4.Visible := checkbox1.Checked;

end;

procedure TForm1.CheckBox2Click(Sender: TObject);

begin

 form1.button4.Enabled := checkbox2.Checked;

end;

procedure TForm1.Edit6Change(Sender: TObject);

begin

 form1.Button4.Font.Size := strtoint(edit6.Text);

end;

procedure TForm1.Edit10Change(Sender: TObject);

begin

 form1.label35.Font.Size := strtoint(edit10.Text);

end;

procedure TForm1.Edit37Change(Sender: TObject);

begin

 form1.CheckBox13.Font.Size := strtoint(edit37.Text);

end;

procedure TForm1.Edit32Change(Sender: TObject);

begin

 form1.memo17.Font.Size := strtoint(edit32.Text);

end;

procedure TForm1.Edit25Change(Sender: TObject);

begin

 form1.edit28.Font.Size := strtoint(edit25.Text);

end;

procedure TForm1.Edit18Change(Sender: TObject);

begin

 form1.RadioGroup1.Font.Size := strtoint(edit18.Text);

end;

procedure TForm1.CheckBox3Click(Sender: TObject);

begin

 form1.label35.Visible := checkbox3.Checked;

end;

procedure TForm1.CheckBox4Click(Sender: TObject);

begin

 form1.label35.Enabled := checkbox4.Checked;

end;

procedure TForm1.CheckBox11Click(Sender: TObject);

begin

 form1.CheckBox13.Visible := checkbox11.Checked;

end;

procedure TForm1.CheckBox12Click(Sender: TObject);

begin

 form1.CheckBox13.Enabled := checkbox12.Checked;

end;

procedure TForm1.CheckBox9Click(Sender: TObject);

begin

 form1.memo17.Visible := checkbox9.Checked;

end;

procedure TForm1.CheckBox10Click(Sender: TObject);

begin

 form1.memo17.Enabled := checkbox10.Checked;

end;

procedure TForm1.CheckBox7Click(Sender: TObject);

begin

 form1.edit28.Visible := checkbox7.Checked;

end;

procedure TForm1.CheckBox8Click(Sender: TObject);

begin

 form1.edit28.Enabled := checkbox8.Checked;

end;

procedure TForm1.CheckBox5Click(Sender: TObject);

begin

 form1.RadioGroup1.Visible := checkbox5.Checked;

end;

procedure TForm1.CheckBox6Click(Sender: TObject);

begin

 form1.RadioGroup1.Enabled := checkbox6.Checked;

end;

procedure TForm1.Edit6KeyPress(Sender: TObject; var Key: Char);

VAR P, L : Byte;

 begin

WITH Sender AS TEdit DO BEGIN

L := Length(Text);

P := Pos('.', Text);

 END;

CASE Key OF

 '0'..'9' : IF (P>0) AND (L-P>1) THEN Key := #0;

 '.' : IF P > 0 THEN Key := #0;

   #8 : {пробел};

ELSE Key := #0;

 END;end;

procedure TForm1.Edit10KeyPress(Sender: TObject; var Key: Char);

VAR P, L : Byte;

 begin

WITH Sender AS TEdit DO BEGIN

L := Length(Text);

P := Pos('.', Text); END;

CASE Key OF

 '0'..'9' : IF (P>0) AND (L-P>1) THEN Key := #0;

 '.' : IF P > 0 THEN Key := #0;

   #8 : {пробел};

ELSE Key := #0;

 END;end;

procedure TForm1.Edit37KeyPress(Sender: TObject; var Key: Char);

VAR P, L : Byte;

 begin

WITH Sender AS TEdit DO BEGIN

L := Length(Text);

P := Pos('.', Text); END;

CASE Key OF

 '0'..'9' : IF (P>0) AND (L-P>1) THEN Key := #0;

 '.' : IF P > 0 THEN Key := #0;

   #8 : {пробел};

ELSE Key := #0;

 END;end;

procedure TForm1.Edit25KeyPress(Sender: TObject; var Key: Char);

VAR P, L : Byte;

 begin

WITH Sender AS TEdit DO BEGIN

L := Length(Text);

P := Pos('.', Text); END;

CASE Key OF

 '0'..'9' : IF (P>0) AND (L-P>1) THEN Key := #0;

 '.' : IF P > 0 THEN Key := #0;

   #8 : {пробел};

ELSE Key := #0;

 END;end;

procedure TForm1.Edit18KeyPress(Sender: TObject; var Key: Char);

VAR P, L : Byte;

 begin

WITH Sender AS TEdit DO

 BEGIN

L := Length(Text);

P := Pos('.', Text); END;

CASE Key OF

 '0'..'9' : IF (P>0) AND (L-P>1) THEN Key := #0;

 '.' : IF P > 0 THEN Key := #0;

   #8 : {пробел};

ELSE Key := #0;

 END;end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

 if MessageDlg('Ви вже вивчили Delphi?', mtConfirmation, mbYesNoCancel, 0) = mrYes then

   CanClose := True

 else

   CanClose := false;  end;

procedure TForm1.SpinEdit1Change(Sender: TObject);

begin

 form1.RadioGroup1.Columns :=SpinEdit1.Value;

end;

procedure TForm1.SpinEdit2Change(Sender: TObject);

begin

 form1.RadioGroup1.ItemIndex :=SpinEdit2.Value;

end;

procedure TForm1.Memo13Change(Sender: TObject);

begin

 form1.RadioGroup1.Items :=memo13.Lines;

end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

 form1.SpinEdit2.Value :=RadioGroup1.ItemIndex;

end;

procedure TForm1.PageControl1Change(Sender: TObject);

 begin

 case form1.PageControl1.ActivePageIndex of

1:begin

   form1.ListBox1.ItemIndex := 0;

 end;

2:begin

   form1.ListBox1.ItemIndex := 1;

 end;

3:begin

   form1.ListBox1.ItemIndex := 2;

 end;

4:begin

   form1.ListBox1.ItemIndex := 3;

 end;

5:begin

   form1.ListBox1.ItemIndex := 4;

 end;

6:begin

   form1.ListBox1.ItemIndex := 5;

 end;

7:begin

   form1.ListBox1.ItemIndex := 6;

 end;

8:begin

   form1.ListBox1.ItemIndex := 7;

 end;

9:begin

   form1.ListBox1.ItemIndex := 8;

 end; end; end;

procedure TForm1.Button3Click(Sender: TObject);

begin

 form1.Panel8.Color :=clBlack;

   form1.TabbedNotebook1.PageIndex :=0;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

 form1.Panel8.Color :=clBlack;

   form1.TabbedNotebook1.PageIndex :=0;

end;

procedure TForm1.Edit19Click(Sender: TObject);

begin

 form1.TabbedNotebook1.PageIndex :=2;

   form1.PageControl1.ActivePageIndex :=0;

     form1.Panel8.Color :=clSkyBlue;

end;

procedure TForm1.Edit20Click(Sender: TObject);

begin

 form1.TabbedNotebook1.PageIndex :=1;

end;

procedure TForm1.Edit22Click(Sender: TObject);

begin

 close; end;

procedure TForm1.Button6Click(Sender: TObject);

begin

 if form1.FontDialog1.Execute then

   button4.Font :=fontdialog1.Font;

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

 if form1.FontDialog2.Execute then

   label35.Font :=fontdialog2.Font;

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

 if form1.FontDialog5.Execute then

   memo17.Font :=fontdialog5.Font;

end;

procedure TForm1.Button11Click(Sender: TObject);

begin

 if form1.FontDialog6.Execute then

   checkbox13.Font :=fontdialog6.Font;

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

 if form1.FontDialog4.Execute then

   edit28.Font :=fontdialog4.Font;

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

 if form1.FontDialog3.Execute then

   radiogroup1.Font :=fontdialog3.Font;

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

case form1.ComboBox1.ItemIndex of

0:begin

   form1.memo17.ScrollBars := ssNone;

 end;

1:begin

   form1.memo17.ScrollBars := ssHorizontal;

 end;

2:begin

   form1.memo17.ScrollBars := ssVertical;

 end;

3:begin

   form1.memo17.ScrollBars := ssBoth;

 end; end;end;

procedure TForm1.ColorBox7Change(Sender: TObject);

begin

 form1.Memo17.Color :=colorbox7.Selected;

end;

procedure TForm1.CheckBox14Click(Sender: TObject);

begin

case form1.CheckBox14.State of

cbChecked:begin

   form1.CheckBox13.State :=cbChecked;

   end;

cbUnchecked:begin

   form1.CheckBox13.State :=cbUnchecked;

   end;end;end;

procedure TForm1.CheckBox13Click(Sender: TObject);

begin

 case form1.CheckBox13.State of

cbChecked:begin

   form1.CheckBox14.State :=cbChecked;

   end;

cbUnchecked:begin

   form1.CheckBox14.State :=cbUnchecked;

   end;end;end;

procedure TForm1.ColorBox9Change(Sender: TObject);

begin

 form1.CheckBox13.Color :=colorbox9.Selected;

end; end.


Початок

Вибір пункту меню

Вибір теми

Виведення тексту з HELP

Показати матеріал

Показати матеріал

Показати матеріал

Ввести зміни

Показати результат

Показати матеріал

Ввести зміни

Показати результат

Показати матеріал

Ввести зміни

Показати результат

Показати матеріал

Ввести зміни

Показати результат

Показати матеріал

Ввести зміни

Показати результат

Показати матеріал

Ввести зміни

Показати результат

кінець


 

А также другие работы, которые могут Вас заинтересовать

27080. Архитектура ERP-систем 134.57 KB
  Архитектура ERPсистем. Объяснить что такое ERP Что такое архитектура Как архитектура относится к классу данной системы 1. ERP – Enterprise Resource Planning Управление ресурсами предприятия – это методология эффективного планирования и управления всеми ресурсами предприятия которые необходимы для осуществления продаж производства закупок и учета при исполнении заказов клиентов в сферах производства дистрибьюции и оказания услуг. ERPсистема –это система реализующая эту концепцию.
27081. Архитектура MRP II 131.24 KB
  Архитектура MRP II Объяснить что такое MRP II Что такое архитектура Как архитектура относится к классу данной системы 1. Концепция MRP II– Manufacturing Resource Planning – Планирование производственных. В отличие от MRP рассматривающего производственные мощности как неограниченные MRP II содержит специальную функцию позволяющую согласовывать потребности в материалах с возможностями производства. Таким образом MRP II представляет собой сочетание планирования по MRP с функцией CRP включая управление складами снабжением продажами и...
27082. Архитектура MRP-систем 132.39 KB
  Архитектура MRPсистем. Объяснить что такое MRP. В 60е годы был разработан метод MRP Material Requirements Planning – Планирование потребностей в материалах позволяющий устранить недостатки простейших систем управления запасами. MRP базируется на данных основного производственного плана при составлении которого за исходную точку принимается ожидаемый спрос на готовую продукцию либо иные возникающие потребности в материалах.
27083. MRP II (Manufacturing Resources Planning) 34.44 KB
  В общем случае можно выделить следующие направления:  планирование бизнеса  планирование производства  формирование основного производственного планаграфика  MRP  CRP Системы MRP II предполагают вовлечение в информационную интеграцию финансовой составляющей планирование бизнеса. В системах MRP II предполагается специальный инструментарий формирования финансового плана и составления бюджетных смет прогнозирования и управления движением денежных средств на основании которых определяется возможность реализации производственного...
27084. MRP (Material Requirements Planning) 17.84 KB
  MRP Material Requirements Planning MRP системы интенсивная разработка теории которых осуществлялась с начала 60 годов в настоящее время присутствуют практически во всех интегрированных информационных системах управления предприятием. В настоящее время использование современных интегрированных систем на Российских предприятиях пока не нашло широкого распространения тем более функциональности планирования материальных ресурсов MRP В каких случаях использование MRP систем является целесообразным Прежде всего необходимо заметить что MRP...
27085. SCM 95.29 KB
  supply chain management SCM организационная стратегия и прикладное программное обеспечение предназначенные для автоматизации и управления всеми этапами снабжения предприятия и для контроля всего товародвижения. SCMсистемы охватывает весь товарный цикл: закупку сырья производство распространение товара. Выделяется шесть основных областей на которых сосредоточено управление цепями поставок: производство поставки месторасположение запасы транспортировка и информация В составе SCMсистемы можно условно выделить две подсистемы: SCP ...
27086. Информация в бизнесе. Информационная поддержка бизнеса 15.71 KB
  Информация сведения об объектах и явлениях окружающей среды их параметрах свойствах и состоянии которые воспринимают информационные системы живые организмы управляющие машины и др. Финансовоуправленческие системы включают подкласс малых интегрированных систем. Такие системы предназначены для ведения учета по одному или нескольким направлениям бухгалтерия сбыт склад кадры и т. Системы этого класса обычно универсальны цикл их внедрения невелик иногда можно воспользоваться коробочным вариантом купив программу и самостоятельно...
27087. Документооборот 14.98 KB
  Следует отметить что в этом определении упор делается на словах движение документов то есть их пути из одного подразделения или от одного сотрудника к другому. Автоматизация позволяет сократить время на обработку документов а также снижает риски случайной потери данных кроме того СЭД позволяет руководству контролировать выполнение управленческих решений. Возможность параллельного выполнения операций позволяющая сократить время движения документов и повышения оперативности их исполнения Непрерывность движения документа позволяющая...
27088. Корпоративная информационная система(КИС) 12.02 KB
  Основными блоками корпоративных информационных систем являются: система хранения база данных хранилище; система сбора и концентрации информации; системы поддержки принятия решений – бизнеслогика базируется на обработке; специальные взаимодействия.