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

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

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

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

Ввести зміни

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

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

Ввести зміни

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

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

Ввести зміни

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

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

Ввести зміни

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

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

Ввести зміни

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

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

Ввести зміни

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

кінець


 

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

65987. Финансовый рынок РФ анализ за 2009-2011 30.17 KB
  В 2009 году объем торгов на всех рынках РТС вырос на 5,59% по сравнению с 2008 годом и составил 799,3 млрд долларов. По итогам 2009 года рост основного индикатора российского фондового рынка Индекса РТС составил 128,6%, его значение на закрытие торговой сессии 31 декабря 2009 года составило 1 444,61 пункта.
65988. Бюджет Омской области с 2007 - по 2011год 22.22 KB
  Бюджет это совокупность доходов и расходов на определенный период времени обычно на один год. Важным понятие является государственный бюджет. В свою очередь доход бюджета это денежные средства поступающие в безвозмездном и безвозвратном порядке...
65991. Антикризисная политика Германии 43.5 KB
  Падение производства составило несколько процентов в том числе и в Германии. Для борьбы с кризисом 2008 года правительство Германии разработало пакет антикризисных мер которые решено было направить на развитие образования и экологических технологий.
65992. ВТО – вступление России: плюсы и минусы для обычного человека 20.44 KB
  ВТО вступление России: плюсы и минусы для обычного человека. Россия вступает во Всемирную Торговую Организацию ВТО: это можно сказать свершившийся факт. Между тем для обывателей ВТО это явление вроде важно а чем именно неясно.
65993. ДЕНЕЖНЫЙ РЫНОК И РЫНОК КАПИТАЛОВ РФ 15.69 KB
  Денежный рынок — составная часть финансового рынка, структура, в которую входит предоставление и получение краткосрочных (как правило, до года) кредитов. Такие кредиты берутся для поддержания ликвидности, то есть возможности организаций...
65994. Способы и формы приватизации 34.28 KB
  О приватизации государственного и муниципального имущества под приватизацией государственного и муниципального имущества понимается возмездное отчуждение имущества находящегося в собственности России далее федеральное имущество субъектов России муниципальных образований в собственность физических и или юр.
65995. Эволюция финансовой системы России с царских времен. Проблемы финансовой системы РФ 52.64 KB
  В Древнерусском государстве при реализации финансового хозяйства Законодательство устанавливало в качестве органа осуществляющего функции денежного контроля князя. При этом как следует из исторических документов организация самоуправления и система...